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От автора 


Предлагаемая вашему вниманию книга содержит все необходимое для того, чтобы 
вы самостоятельно или под руководством преподавателя научились пользоваться 
популярнейшей в мире системой программирования Ое|ры, разработанной кор- 
порацией Вог|апа (США). Эта корпорация славится своими системами програм- 
мирования для М$-ОО$ (ТигЬо Разса[, ТигБо С, ТигБо АззетЫег), \/т4о\5 
(Бер, С++ ВиЦИаег, ]ВиЙаег), Ипих (Куйх). 

Книга посвящена новейшей на сегодня (январь 2003 г.) версии ар! 7 Зи 10 
и состоит из четырех частей. 

В части [ вы познакомитесь с основными приемами программирования в среде 
Реры, а также с ее главными составными частями — галереей компонентов, хра- 
нилищем объектов, вспомогательным инструментарием. Эта часть фактически есть 
не что иное, как неформальное знакомство с Оеры. 

В части П описывается язык программирования Ое]р|1. Прочное освоение этой 
части гарантирует вам успешное решение с помощью Ое[рЫ! любых задач. 

Часть Ш посвящена компонентам — основным строительным «кирпичикам», 
из которых строится программа. В этой части описываются только компоненты 
общего назначения, которые пригодятся в любой программе. Многие специфич- 
ныекомпоненты (например, компоненты, представленные на вкладках Оес1$1оп СиБе, 
Асйуех, АБО и другие галереи компонентов) остались вне рамок книги. 

В части ТУ рассматриваются некоторые дополнительные возможности Веры — 
динамически подключаемые библиотеки, интерфейсы, технология СОМ и систе- 
ма Моде МакКег. 

Вне рамок книги остались темы программирования баз данных, создания про- 
грамм, использующих возможности Интернета, построения распределенных си- 
стем. В разделе «Литература», находящемся в конце книги, вы найдете перечень 
книг, в которых описываются эти возможности Ре. 
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Введение 


Это небольшое введение призвано дать самую общую характеристику системы 
программирования Бер и оценить особенности ее версии 7 Зи !о. 


Назначение и возможности Верш 


РерьЫ! представляет собой систему программирования. Как любая подобная си- 
стема, Оер предназначена для разработки программ и имеет две характерные 
особенности: создаваемые с ее помощью программы могут работать не только под 
управлением \/114о\5, а сама она относится к классу инструментальных средств 
ускоренной разработки программ (Кар!4 АррИсаНоп Оеуе|ортепе, ВАО). 


ПРИМЕЧАНИЕ Есть вариант РерЫ для работы под управлением ОС МУТ 1ВМ, атак- 
же версия для Глпих (она называется Куйх). Версии 6 и 7 способны 
создавать кроссплатформенные приложения, то есть программы, мо- 
гущие работать как под управлением \//п4о\5, так и под управлением 
Цпих (на уровне исходных текстов; сама среда Оеф!! б или 7 и создавае- 
мые ею программы работают только под \Мшп4о\з). Кроме того, в вер- 
сию 7 ЗиЧю включена поддержка новейшей техпологии М!сгозоЁ® 
МЕТ“, с помощью которой программу, созданную в Реры, можно 
передать по Интернету любому абоненту и, если он использует ту же 
технологию, выполнить на его компьютере независимо отего программ- 
но-аппаратных особенностей (то есть под управлением любой опера- 
ционной системы). Эта технология в книге не рассматривается. 


Инструмент ускоренной разработки программ 


Первый инструмент КАД создан корпорацией М1сгозой и называется \У1зца]| Ваз!с. 
Среда Ое]рЫ, созданная тремя годами позже, вместе стакими продуктами как \1зиа] 
С++, С++ ВиЙ4ег, ] Ви|4ег, РомегВи!аег также относится к классу инструментов 
ускоренной разработки программ. Это ускорение достигается за счет двух харак- 
терных свойств Ое|р: визуального конструирования форм и широкого использо- 
вания библиотеки визуальных компонентов (\15ца1| Сотропеп Г4Ьгагу, УСТ.). 
Визуальное конструирование форм избавляет программиста от многих аспек- 
тов разработки интерфейса программы, так как Ое]рЬ! автоматически готовит не- 
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обходимые программные заготовки и соответствующий файл ресурсов. Програм- 
мист использует специальное окно, которое называется окном формы, как прото- 
тип будущего окна программы и наполняет его компонентами, реализующими нуж- 
ные интерфейсные свойства (разного рода списки, кнопки, полосы прокрутки 
ит. п.). После размещения на форме очередного компонента Бер! автоматиче- 
ски вставляет в связанный с формой модуль ссылку на компонент и корректирует 
специальный файл описания формы с расширением ОЕМ, который после компиля- 
ции преобразуется в ресурсный файл \УЛп4о\5. 

Библиотека визуальных компонентов! предоставляет программисту огромное 
разнообразие созданных разработчиками ОерЬ! программных заготовок, которые 
немедленно или после несложной настройки готовы к работе в рамках вашей про- 
граммы. Компоненты характеризуются важным свойством: они включают в себя 
программный код и все необходимые для его работы данные, что избавляет про- 
граммиста от рутинной работы по «изобретению велосипедов» — нет нужды пи- 
сать то, что уже написано (и в подавляющем большинстве — очень грамотно!) дру- 
гими. Как уже упоминалось, с Дер! поставляется великое множество компонентов, 
рассчитанных на самые разные аспекты применения — от простеньких компонен- 
тов, создающих поясняющие надписи, до сложных текстовых процессоров или 
инструментов принятия решений. Если по каким-либо причинам в О@рёы нет ком- 
понента с нужной функциональностью, его можно создать средствами самой сре- 
ды Оеры и включить затем в УСТ. (другой вариант — обратиться к ресурсам Ин- 
тернета, где на тысячах сайтов предлагаются бесплатные, условно-бесплатные 
и платные компоненты, созданные специально для ОерЫ! как профессиональны- 
ми программистами, так и любителями). 

Использование компонентов не только во много раз сокращает сроки разработ- 
ки программ, но и существенно снижает вероятность случайных программных 
ошибок, от которых, увы, не защищен ни один крупный программный проект. Од- 
нако в их применении есть и оборотная сторона. Как правило, даже простые в функ- 
циональном отношении компоненты представляют собой лишь «вершины айсбер- 
гов», так как они создаются по объектно-ориентированной технологии и многие 
их функциональные черты наследуются от многочисленных родительских компо- 
нентов. В результате даже несложные программы, созданные в Ое|рЫ, редко име- 
ют объем меньше сотен килобайт. 

Ни один инструмент КАП не создается без средств прогона и отладки вновь 
созданной программы. Такими средствами традиционно оснащаются все инстру- 
менты, создаваемые корпорацией Вогапа. В Ое]рЫ эти средства доведены до со- 
вершенства. Вы можете начать исполнение программы и последовательно — опе- 
ратор за оператором — следить за ее выполнением по исходному тексту. В любой 
момент вы можете узнать текущее значение переменной и при необходимости из- 
менить его без перекомпиляции программы. Вы можете запустить программу, ус- 
тановив в ней нужные точки контрольного останова — при достижении такой точ- 


: Несмотря на слова «визуальных компонентов» в названии библиотеки УСТ, около трети входящих 
туда компонентов не имеют видимого воплощения в работающей программе (компоненты действий, 
хранилище изображений, таймер, компоненты связи с удаленными компьютерами, все источники 
данных ит. д.). 
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ки программа автоматически прервет свою работу и перейдет в отладочный ре- 
жим. Точки останова можно делать условными и объединять их в группы, разре- 
шая или запрещая их использование. В некоторых случаях нельзя непосредствен- 
но проследить за работой программы (например, обычно нельзя проследить за 
работой сервера, который автоматически запускается клиентом). В таких ситуа- 
циях можно заставить программу создать файл протокола работы, анализ которого 
затем позволит установить причину ошибки. Опытные программисты в трудных 
случаях могут использовать средства отладки на уровне машинных инструкций. 


Мощность и гибкость языка 


Мощность и гибкость языка программирования ОерЫ (в версиях 1...6 этот язык 
называется ОБуесе Разса|, однако в версии 7 он переименован в Реры; с точки 
зрения семантики и синтаксиса языки Оесе Разса]| у.6б и Ое|рЫ! у.7 почти иден- 
тичны) — безусловное достоинство Оеры, выгодно отличающее эту систему про- 
граммирования от других инструментов КА. Ядром языка Ое]р является язык 
Паскаль!, созданный профессором Цюрихского университета Никлаусом Виртом 
еще в конце 60-х гг. специально для обучения студентов программированию. 
В числе его студентов были Филипп Канн (Кап) и Андерс Хейлсберг (Не) |зЪегв). 
Первый основал корпорацию ВогГап4, второй стал ее главным программистом. За 
долгие годы А. Хейлсберг и программисты под его началом? превратили Паскаль 
в мощный современный объектно-ориентированный язык, пригодный для эффек- 
тивного создания программ любой сложности. 

От У\У!5ца| Вас язык ОерЫ отличают строгая типизированность, позволяю- 
щая компилятору еще на этапе компиляции обнаружить многие ошибки, а также 
средства работы с указателями. Последнее дает возможность использовать так на- 
зываемое раннее связывание с библиотеками типов в технологии СОМ, вто время 
как \15иа| Ваз!с (и ]ауа, в котором тоже не поддерживаются указатели) вынужде- 
ны при обращении к СОМ использовать более медленное позднее связывание и 
интерфейсы диспетчеризации. 

Синтаксис С++ прямо-таки провоцирует создание запутанных программ, в ко- 
торых трудно разобраться даже автору, в то время как простой и ясный синтаксис 
Ре]рЬ! позволяет последнему претендовать на роль языка, идеально подходящего 
для описания алгоритма (недаром Паскаль происходит от использующегося для 
этих целей алгоритмического языка АЛГОЛ-60). 

Если по каким-либо причинам возможности Бер! окажутся недостаточными, 
вы можете программировать на Ассемблере (машинно-зависимом языке програм- 
мирования), который органично вплетен в Ое|рр. 

Во всех случаях Оер|! имеет самый быстрый среди продуктов подобного рода 
оптимизирующий компилятор, позволяющий создавать быстрые и относительно 
компактные программы. 


' Назван в честь выдающегося средневекового философа и математика Блеза Паскаля. 


2 Несколько лет назад (в 1997 г.) А. Хейлсберг перешел в корпорацию М!сгозой, и его можно понять: 
вместо 200 000 долларов в год Б. Гейтс предложил ему 2 500 000. В настоящее время главным про- 
граммистом ВоПапа (и идеологом Ое]р|!) является ученик Хейлсберга Чак Яджевски (]а242е\$К!). 
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Инструмент создания приложений баз данных 


Система Ое]рЫ завоевала себе репутацию самого эффективного средства разра- 
ботки приложений баз данных, то есть программ, обслуживающих электронные 
хранилища информации. Эта репутация определяется тремя обстоятельствами: 
высокопроизводительной машиной доступа к данным разного формата (Воап4 
Ра(аБазе Епеше, ВПЕ!), наличием многочисленных компонентов и технологий, 
ориентированных на эту сферу применения, и поставкой вместе с ОерЫ компакт- 
ного, мощного и простого в администрировании сервера баз данных ПцегВазе. 

Машина ВОЕ является средством доступа к данным разного формата (локаль- 
ным таблицам типа АВАЗЕ, Рага4ох, к серверам баз данных ПцегВазе, М$ ЗОГ. 
Зегуег, Огае, шЮгпих и т. п.). Особенностью ВГЕ является использование соб- 
ственных высокопроизводительных драйверов для доступа к локальным табли- 
цам АВАЗЕ, Рага4ох, ЕохРго, а также ЗОТ-ориентированных драйверов для до- 
ступа ксерверам баз данных (этот набор драйверов называется ЗОТ. [лпК$). Вместо 
собственных драйверов при желании могут использоваться драйверы сторонних 
производителей, соответствующие стандарту ООВС (Ореп РааВазе Соппесйуку 
[ке{асе — открытый интерфейс взаимодействия с базами данных). Более того, 
в версиях би 7 Оеры! появилась возможность использования альтернативных ВОЕ 
средств доступа по технологиям АОО, [пцегВазе Ехргез$, АБЕхргез$. 

Многочисленные компоненты, поддерживающие разработку приложений баз 
данных, обеспечивают решение самых разных задач: выборку и сортировку дан- 
ных, их наглядное представление (в том числе и графическое), изменение и пуб- 
ликацию данных в виде отчетов (документов) и/или НТМГ-страниц в Интернете 
ИТ. Д. 

Поставляемый вместе с еары (в наиболее дорогостоящих вариантах постав- 
ки) сервер ПиегВазе фактически стал известен в России именно благодаря Оеры 
(до появления первой версии Пер его поставки в нашу страну были запрещены 
в связи с тем, что ПиегВазе широко используется в различных системах армии 
США). Этот сервер создан дочерним отделением Воапа — ПиегВазе ЗоЁл\хаге 
Согрогай оп, а его поставка вместе с Ое]рМ объясняется необходимостью дать раз- 
работчикам средство испытания программ, рассчитанных на архитектуру клиент- 
сервер. Сервер ИкегВазе в максимальной степени соответствует стандарту ЗОТ.-- 
92, которому в той или иной мере следуют все остальные серверы баз данных. 


Особенности версии Верн! 7 З4иаю 


Последняя на сегодня (начало 2003 г.) версия Оеры 7 ${и41о сохраняет почти пол- 
ную преемственность по языку программирования и интегрированной среде раз- 
работчика с версией 6. Ее характерное отличие — введение множества новых тех- 
нологий, облегчающих (и упрощающих) создание программ для баз данных 
и Интернета. 


' Корпорация Воап4 официально объявила о возможном отказе от этого инструмента в своих буду- 
щих разработках. 
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ПРИМЕЧАНИЕ В отличие от предыдущих версий, версия ОерЫ 7 Зато содержит 
минимальнос устанавливаемое ядро. Все описываемые далее техноло- 
гии не принадлежат этому ядру и требуют отдельной установки. В за- 
висимости от установленных компонентов меняется главное меню си- 
стемы. Дополнительные технологии в большинстве своем разработаны 
сторонними фирмами и поставляются на двух компакт-дисках. Болес 
того, некоторые технологии работают только под управлением \/т- 
Чо\$ МТ/2000/ХР, поэтому базовой платформой для развертывания 
этой версии Ое!рЫ должна быть одна из указанных операционных си- 
стем. 


Речь идет, прежде всего, об активно разрабатываемой корпорацией М!сгозой 
технологии МЕТ. Эта технология представляет собой совокупность стандартов 
и инструментов, позволяющих во многом упростить распространение программ 
по Интернету. В основе технологии лежит давно известная идея! создания некоего 
промежуточного языка программирования и среды выполнения этого языка. 
В Рары включен компилятор языка МЕТ, с помощью которого любая программа 
заново кодируется и затем с использованием стандартных протоколов НТТР 
и ЗОАР пересылается по Интернету адресату. Если адресат имеет среду выполне- 
ния этого языка, он сможет воспроизвести эту программу независимо от своих 
программно-аппаратных особенностей. Таким образом, программа, созданная под 
управлением \М14о\з, может исполняться под управлением Глпих, ОС Мас, $0]а11$ 
ИТ. Д. 

Инструмент САЗЁЕ (Сотрийпя А$$1${е4 ЗоЙ\аге Епршеегия — средство авто- 
матизированного программирования) под названием Мо4е|МакКег позволяет раз- 
работчикам программ сосредоточить свои усилия на творческой стороне процесса 
программирования, оставляя всю черновую работу Мо4е|Макег. С помощью Мо- 
4е]МакКег существенно упрощается создание любых сущностей проекта (классов, 
интерфейсов, модулей и т. д. — вплоть до практически готовой службы встроен- 
НОЙ ПОМОЩИ). 

Существенно изменены технологии создания приложений для Интернета. С по- 
мощью нового набора компонентов 1пга\МеБ можно готовить приложения, кото- 
рые не будут требовать обязательного посредничества веб-сервера между создан- 
ным вами приложением и браузером пользователя (только для режима 5(ап4 Аюпе 
Арр|сайоп; для остальных типов приложений наличие промышленных серверов 
обязательно). Введена поддержка промышленного сервера Арасре 2. 

Устранены любые отличия в версиях языка Веры для собственно Оеры 7 
и КуПх 3, что в еще большей степени упрощает процесс создания кросс-платфор- 
меннных приложений. Однако попытка унификации УСЬ и СГХ привела к тому, 
что из УСЁ исчезли компоненты ЧискККеро" и Га${Ме*, которые следует заменять 
компонентами вкладок Ка\уе и 1пду. 

Замечу, что детальный анализ новых технологий выходит за рамки темы дан- 
НОЙ КНИГИ. 


' Впервыс эта идея была высказана ещев 1958 г. американцем Мелвином Е. Конвеем (Соп\ау) в жур- 
нальной статье «Ргороза| Еог Ап ОМСОТ» («Предложение по универсальному компьютерно-ориен- 
тированному языку»). 
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От издательства 


Ваши замечания, предложения, вопросы отправляйте по адресу электронной поч- 
ты сотр@р\ег.сот (издательство «Питер», компьютерная редакция). 

Мы будем рады узнать ваше мнение! 

Все исходные тексты, приведенные в книге, вы сможете найти по адресу ПЁр:// 
мимим/.рег.сот/Чо\уп(оаа. 

Подробную информацию о наших книгах вы найдете на веб-сайте издательства 
ИЕр://мммим.рег.сот. 


Часть | 
Знакомство с Верш 


Главы этой части предназначены для неформального знакомства 
с системой программирования Ое|рЫ. Они дадут вам самое общее 
представление о среде разработчика, языке Ое]р| и основных при- 
емах визуального программирования 


Глава 1 
Среда разработчика 


Интегрированная среда разработчика (ИСР) ер! — это сложный механизм, обес- 
печивающий высокоэффективную работу программиста. Визуально она реализу- 
ется несколькими одновременно раскрытыми на экране окнами. Окна могут пере- 
мещаться по экрану, частично или полностью перекрывая друг друга, что обычно 
вызывает у пользователя, привыкшего к относительной «строгости» среды тексто- 
вого процессора \У!ог4 или табличного процессора Ехсе|, ощущение некоторого 
дискомфорта. После приобретения опыта работы с ДерЫ это ощущение пройдет, 
ивы научитесь быстро отыскивать нужное окно, чтобы изменитьте или иные функ- 
циональные свойства создаваемой вами программы, ибо каждое окно несет в себе 
некоторую финкииональность, то есть предназначено для решения определенных 
задач. 

Запустите Оеры — и вы увидите нечто похожее на рис. 1.1 с шестью наиболее 
важными окнами Оеры. 
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Рис. 1.1. Наиболее важные окна Берыш 
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Чтобы упорядочить окна так, как показано на рисунке, вам придется вручную 
изменить их положение и размеры, так как обычно окно кода программы почти 
полностью перекрыто окном формы. Впрочем, добиваться максимального сход- 
ства того, что вы видите на экране вашего компьютера, с изображением, показан- 
ным на рис. 1.1, вовсе необязательно: расположение и размеры окон никак не вли- 
яют на их функциональность; если вы не видите на экране окна кода, но хотите его 
увидеть, просто нажмите клавишу [12'. Повторное нажатие клавиши Ё12 вновь 
активизирует окно формы и т. д. — эта клавиша работает как двоичный переклю- 
чатель, попеременно показывая окно формы или окно кода программы. 

Замечу, что если в системе установлена технология Во]4, при первом запуске 
Реры поверх всех окон появится окно, показанное на рис. 1.2. 
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Рис. 1.3. Окно Веры Опес 


С помощью этого окна вы сможете получить доступ к справочной службе и веб- 
сайту шведской фирмы Во|Або& МПЕ АВ, которая разработала эту технологию. 
С периодичностью, определяемой элементами управления вкладки Шер Г/тес( диа- 
логового окна Епутоптеп* ОрЯоп$ (открывается командой Тоо($ »› Епутоптеп* Орйоп$), 
появляется окно Ое[рН1 ПЛтес* (рис. 1.3), предназначенное для просмотра самой све- 


' Если к этому моменту активным было окно инспектора объектов, вам придется нажать клавишу [12 
еще раз. 
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жей информации о корпорации и ее программных продуктах, копирования допол- 
нительных файлов, чтения ответов на наиболее часто задаваемые вопросы и т. д. 
Вы можете вызвать это окно из главного окна Оеры в любой момент с помощью 
команды Не{р ›» Ое[рН1 Г/тесЕ. 


Главное окно 


Главное окно осуществляет основные функции управления проектом создаваемой 
программы. Это окно всегда присутствует на экране и упрямо занимает его самую 
верхнюю часть. Не пытайтесь его распахнуть на весь экран: даже в развернутом 
состоянии его размеры и положение практически не отличаются от обычных. 

Связано это с функциональностью главного окна: с одной стороны, оно несет 
в себе элементы, которые всегда должны быть «под рукой» у программиста, с дру- 
гой, — окно не должно отнимать у остальных окон Ое|р! значительного простран- 
ства экрана. Свертывание главного окна приводит к исчезновению с экрана других 
окон ОерьЬ!, а его закрытие означает окончание работы программиста с системой 
программирования. 

В главном окне располагается главное меню Оеры, набор инструментальных 
кнопок и палитра компонентов. 

Главное меню? содержит все необходимые средства для управления проектом. 
Все пункты главного меню открывают доступ к меню второго уровня (подменю). 
Для начального знакомства с Хер мы вполне обойдемся инструментальными 
кнопками и нам не понадобится обращаться к главному меню, вот почему подроб- 
ное описание его команд вы найдете не здесь, а в приложении А. 


"Тоба Соттапд$ Орнопз | | | 


{апдагд 


Оапдаг4 
лем 
[7] Бе 
Сизют | СЕ. Никете! 
Согпропеи! Раеке | 
ОезКорз$ 


|ицегие! 


Сизюогмеге... 


РРР РУЧЕТУЧА ЕТУ ТТУ ТУЧЕТ УТУ ТУЧИ ИТЕК УУЧЕНУ ТУ ТУРИН 


Рис. 1.4. Настройка инструментальных панелей: слева — контекстное меню; 
справа — окно настройки 


' Эти окна появятся, Как только главное окно будет восстановлено в размерах. 


* Помимо главного меню в е]рЫ! широко используется система контекстных меню, доступ к которым 
осуществляется по щелчку правой кнопкой мыши. 
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|| Все элементы главного окна располагаются на специальных панелях, в левой 
3} или верхней части которых имеются вешки перемещения, позволяющие с по- 
мощью мыши перетаскивать панели вместе с находящимися на них элементами. 
Любую панель (кроме главного меню) можно убрать из окна (сделать ее невиди- 
мой) или «пустить плавать» по экрану в отдельном окне. Для этого нужно лишь 
«стащить» панель с помощью мыши за вешку из пределов главного окна. Для из- 
менения состава представленных на панели кнопок нужно предварительно щелк- 
нуть на ней правой кнопкой мыши. В появившемся после этого контекстном меню 
(рис. 1.4, слева) перечислены названия всех панелей и указан их статус (отмечен- 
ные флажками панели видны в главном окне; если флажок снять, панель исчез- 
нет). После выбора команды Сизфотйте (Настройка) появляется окно настройки 
(рис. 1.4, справа). Теперь можно «стаскивать» с панелей ненужные кнопки или, 
перейдя на вкладку Соттап4$, выбирать в списке названия нужных кнопок и пере- 
таскивать их на экран. 

Для примера на рис. 1.5 показаны элементы главного окна с нестандартным 
расположением панелей и представленных на них кнопок. При его компоновке 
мне хотелось, с одной стороны, получить больше места для размещения страниц 
галереи компонентов, а с другой — поместить в главное окно кнопки часто исполь- 
зуемых мною команд меню: 


3 
с — Ргоесё » Виа Рго]есЕ (полная перекомпиляция проекта); 


‚ — Рго]есЕ > 5уп(ах СПесК (проверка синтаксиса кода программы); 
$. — \Лем › БеБид МАпдом$ › ММа{спез (доступ к окну наблюдения отладочного ре- 
жима); 


} — \ем › БеБид ММпдом$ › ВгеаКротп$ (доступ к окну точек останова). 


+{› 


РО 


Рис. 1.5. Нестандартное расположение элементов в главном окне 


Инструментальные кнопки 


Инструментальные кнопки открывают быстрый доступ к наиболее важным коман- 
дам главного меню. По функциональному признаку они разделены на 7 групп. 
Каждая группа занимает отдельную панель. В табл. 1.1 описаны команды, реали- 
зуемые стандартным набором кнопок. 


Таблица 1.1. Стандартный набор кнопок панелей инструментов Берн 


Группа апаата 


_ Открывает доступ к хранилищу объектов. Эквивалент команды 
[Ёе ›» №ем » О{Пег 


Главное окно 29 


Кнопка опивание 


Открывает существующий файл. Эквивалент команды 
Е(е › Ореп Ее 


Сохраняет файл на диске. Эквивалент команды Ее ›» $ауе Ше 
(клавиши быстрого доступа — (+5) 


Сохраняет все файлы проекта. Эквивалент команды [Ее › 
Зауе АЦ 


Открывает созданный ранее проект программы. Эквивалент 
команды Ее › Ореп Рго]ес* (клавиши быстрого доступа — 
СЕ +Е11) 


Добавляст повый файл к проекту. Эквивалент команды 
Ргоуес+ » АЧЧ Хо РгодесЕ (клавиши быстрого доступа — $МЁ-+Е11) 


Удаляет файл из проекта. Эквивалент команды — 
Ргозесё » Кетоуе тот Рго]есё. 


Группа Иеш 


Выбирает модуль из списка модулей, связанных с текущим 
проектом. Эквивалент команды \Мем > Цп {5 (клавиши 
быстрого доступа — $МИ+Е12) 


Выбирает форму из списка форм, связанных с текущим 
проектом. Эквивалент команды \е\м ›» Гогт$ (клавиши 
быстрого доступа — С+Ё12) 


Переключает активность между окном формы и окном кода 
программы. Эквивалент команды \ем › Тодд[е Еогт/Уп 
(клавиша быстрого доступа — Ё12) 


Создает новую форму и добавляст ее к проекту. Эквивалент 
команды Ее ›» №ем › Рюгт 


Группа ОефиЕ 


Компилирует и выполняет программу. Эквивалент команды 
Кип › Кип (клавиша быстрого доступа — Г 9) 


Приостанавливает выполнение отлаживаемой программы. 
Эквивалент команды Кип › Ргодгат Раизе 


Осуществляет пошаговую трассировку программы 
с вызываемыми подпрограммами. Эквивалент команды 
Кип › Ттасе [по (клавиша быстрого доступа — Е7) 


Осуществляет пошаговую трассировку программы без 
трассировки вызываемых подпрограмм. Эквивалент команды 
Кип › 5{ер Оуег (клавиша быстрого доступа — Ё8) 


Открывает достуи к встроенной справочной службе. 
Эквивалент команды Нер » дер Нер 


Слисок для выбора возможных вариантов настройки 


остальных окон Оеры 
продолжение #7 
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Таблица 1.1 (продолжение) 


з: 


Сохраняст текущую настройку окон ОерЫ! 


Выбирает настройку окон, соответствующую отладочному 
режиму 


Начинает создание нового приложения по технологии 
\У/е6$ пар (приложения для Иитериета) 


Создает новую страницу приложения УМеБ$ пар 


Создает новый модуль данных приложения \/еь$ пар 


Настройка окон 


Начиная с версии 5 главное окно обогатилось тремя новыми интерфейсными 
элементами, перечисленными в группе ОезК{ор$ табл. 1.1. С помощью этих инстру- 
ментов программист может подготовить несколько вариантов расположения ос- 
тальных окон Оеры и сохранить их в настроечном файле. 

Обычно выбирается две или три основные конфигурации окон: для режима 
разработки форм, для кодирования и для отладки. При разработке формы на экра- 
не должна быть видна сама форма, дерево объектов и инспектор объектов. Настро- 
ив соответствующие размеры и положение этих окон, такую настройку можно со- 
хранить под именем, например, 0ез1дп0езК. Для режима кодирования обычно нужно 
только максимально раскрытое окно кода с браузером кода и пристыкованное к не- 
му окно дерева объектов. Такую конфигурацию можно сохранить под именем 
СодедезК. Наконец, в отладочном режиме к окну кода желательно «прицепить» 
некоторые отладочные окна, такие как \Ма&сВе$ (окно наблюдений за перемен- 
ными/выражениями) и ВгеаКро!п{5 (окно создания/настройки точек контроль- 
ного останова). Такую конфигурацию можно сохранить под именем ОеБидд0езК, 
например. Теперь при переходе ктому или иному режиму достаточно раскрыть 
список и выбрать в нем имя нужной конфигурации. Если вы предварительно 
с помощью кнопки Ё т настроите конфигурацию для отладочного режима, эта 


НХ 


конфигурация появится автоматически, как только среда перейдет в режим 
отладки. 


Палитра компонентов 


Палитра компонентов — это главное богатство ОерВ!. Она занимает правую часть 
главного окна и имеет вкладки, обеспечивающие быстрый поиск нужного компо- 
нента. Под компонентом понимается некий функциональный элемент, содержа- 
щий определенные свойства и размещаемый программистом в окне формы. С по- 
мощью компонентов создается каркас программы, во всяком случае, — еевидимые 
на экране внешние проявления: окна, кнопки, списки и т. д. 

Как и инструментальная панель, палитра компонентов может настраиваться. 
Для этого используется специальный редактор (рис. 1.6), окно которого появляется 
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Рис. 1.6. Окно редактора палитры компонентов 


на экране после щелчка правой кнопкой мыши на любой кнопке в палитре компо- 
нентов и выбора команды Ргоре Че$ (Свойства). 


ПРИМЕЧАНИЕ Содержимое вкладок (страниц) палитры компонентов в Оерь! 7 зави- 
сит от целевой платформы создаваемого приложения (\Мп4о\5$ или 
[лпих), а также от того, что в данный момент присутствует в окне фор- 
мы (собственно форма, модуль данных и т. д.). 


Нет смысла удалять какой-то из компонентов, а создавать новые мы с вами пока 
еще не умеем, поэтому я не рекомендую вам экспериментировать с редактором 
палитры. Тем не менее, один совет все-таки дам. В стандартном наборе вкладок 
палитры компонентов есть вкладка 5$атр(ез, содержащая часто используемые ком- 
поненты. В то же время ее ярлычок в палитре закрыт двумя небольшими кнопка- 
ми «прокрутки» вкладок палитры. Имеет смысл поменять ее местами с менее ис- 
пользуемой вкладкой, например, с АБО. Вы можете «перетащить» пункт 5атр(ез в 
верхнюю часть списка Раде$ редактора палитры, «положив» его на пункт Аб0О. Пос- 
ле такой перестановки ярлычок 5атр(ез станет доступным в любой момент. Если, 
к тому же, вы не планируете использовать в своих проектах технологию АБО для 
доступа к базам данных, перетащите пункт АО0 в самый конец списка. 


Окно формы 


Окно формы представляет собой проект окна будущей программы. Вначале это 
окно пусто. Точнее, оно содержит стандартные для \Ит4о\з$ интерфейсные эле- 
менты — кнопки вызова системного меню, развертывания, свертывания и закры- 
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тия окна, строку заголовка и габаритную рамку. Вся рабочая область окна обычно 
заполнена точками координатной сетки, служащей для упорядочения размещае- 
мых на форме компонентов (эти точки отображаются только на этапе конструиро- 
вания программы; вы можете их убрать, вызвав с помощью команды Т00{$ » Епм- 
гоптепё Орйоп$ соответствующее окно настроек и сняв флажок 015р(ау Спа на вкладке 
Ое51дпег). 

Значительную часть времени программист занят увлекательным занятием, на- 
поминающим работу с набором деталей конструктора Г.его: он «достает» из палит- 
ры компонентов, как из коробки с деталями, нужный компонент и размещает его 
на «наборном поле» окна формы, постепенно заполняя форму интерфейсными 
элементами. Собственно, именно в этом процессе наполнения формы и заключа- 
ется главная изюминка визуального программирования. Программист в любой 
момент времени контролирует вид окна создаваемой программы и может внести 
в него необходимые изменения. 


Окно дерева объектов 


Это окно предназначено для наглядного отображения связей между отдельными 
компонентами, размещенными на активной форме или в активном модуле дан- 
ных. Щелчок на любом компоненте в этом окне активизирует соответствующий 
компонент в окне формы и отображает свойства этого компонента в окне инспек- 
тора объектов. Двойной щелчок приводит к срабатыванию механизма Со4е [п$15[%, 
который вставляет в окно кода заготовку для обработчика события ОпСИск. Нако- 
нец, компонент можно «перетащить» в окне на другое место и таким образом по- 
менять его владельца (свойство Рагеп{ — родитель). В предыдущих версиях такую 
замену можно сделать только с помощью межпрограммного буфера обмена (сПр- 


Боага). 


Окно инспектора объектов 


Любой размещаемый на форме компонент характеризуется некоторым набором 
параметров: положением, размером, цветом и т. д. Часть этих параметров, напри- 
мер, положение и размеры компонента, программист может изменять, манипули- 
руя компонентом в окне формы. Для изменения других параметров предназначено 
окно инспектора объектов. Это окно содержит две вкладки — РгорегЧе$ (Свойства) 
и Емеп+5 (События). Вкладка Ргоре ез служит для установки нужных свойств ком- 
понента, вкладка Еуеп{5 позволяет определить реакцию компонента на то или иное 
событие. Совокупность свойств отображает видимую сторону компонента: поло- 
жение относительно левого верхнего угла рабочей области формы, его размеры 
и цвет, шрифт и текст надписи на нем ит. п.; совокупность событий — его поведен- 
ческую сторону: будет ли компонент реагировать на щелчок мыши или на нажатие 
клавиш, как он будет вести себя в момент появления на экране или в момент изме- 
нения размеров окна ит. п. 

Каждая вкладка окна инспектора объектов представляет собой таблицу из двух 
колонок: левая колонка содержит название свойства или события, а правая — кон- 
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кретное значение свойства или имя подпрограммы!', обрабатывающей соответству- 
ющее событие. 

Строки таблицы выбираются щелчком мыши, и в них могут отображаться про- 
стые или сложные свойства. К. простым относятся свойства, определяемые един- 
ственным значением — числом, строкой символов, значением Тие (Истина) или 
Га[5е (Ложь) и т. п. Например, свойство Сарйоп (Заголовок) представляется стро- 
кой символов, свойства НетдрЕ (Высота) и ММав (Ширина) — числами, свойство 
ЕпаЫе4д (Доступность) — значениями Тие или Габе. Сложные свойства определя- 
ются совокупностью значений. Слева от имени таких свойств указывается значок 
«+», а щелчок мышью на нем приводит к раскрытию списка составляющих слож- 
ного свойства. Чтобы закрыть раскрытый список, нужно щелкнуть на значке «—», 
в который после щелчка превращается значок «+». 

Щелчок мышью на правой колонке любой строки таблицы активизирует ука- 
занное в ней значение свойства, при этом в правом конце строки может появиться 


свойства. 

В верхней части окна инспектора объектов располагается раскрывающийся 
список всех помещенных на форму компонентов. Поскольку форма сама по себе 
является компонентом, ее имя также присутствует в этом списке. В отличие от 
предыдущих версий, раскрывающийся список версий 6 и 7 содержит не только 
имена компонентов, но и названия их классов (подробнее о классах мы поговорим 
в главе 8). 

В контекстном меню окна, которое появляется после щелчка на нем правой 
кнопкой мыши, имеется ряд команд, позволяющих настроить окно. В частности, 
после выбора команды 5{ау оп Тор окно инспектора объектов будет «плавать» над 
всеми другими окнами независимо от его активности. Такое состояние окна удоб- 
но при частом его использовании, например, при конструировании сложной фор- 
мы, содержащей множество компонентов. Если выбрать в контекстном меню коман- 
ду Атапде ›» Ву Саедоту, все строки окна инспектора объектов будут представлять собой 
раскрывающиеся списки свойств и событий, упорядоченные по категориям (рис. 1.7). 

Любые категории можно скрыть. Для этого нужно в контекстном меню рас- 
крыть вложенное меню \Мем и убрать флажок слева от имени категории. 

С помощью команды Ргоре е$ контекстного меню окна инспектора объектов 
можно отменить возможность представления в этом окне сложных свойств. Для 
этого в списке 5рее@5еЯпдз на вкладке ОБ}ес* Тпзрес+ог соответствующего диалого- 
вого окна нужно выбрать пункт ОерН 5 етщаНоп (Эмуляция Реры 5). 

Поэкспериментируйте самостоятельно с контекстным меню инспектора объ- 
ектов, чтобы понять назначение тех или иных его команд. Если вы случайно или 
намеренно сделаете окно невидимым, нажмите клавишу Ё11 или выберите коман- 
ду Мем ›» ОБесеЕ Тпзресфог, чтобы оно вновь появилось на экране. 


' Если вам сще не знаком этот термин, считайте, что подпрограмма — это просто относительно неболь- 


шой фрагмент программы. 


34 Глава 1. Среда разработчика 


Рис. 1.7. Списки свойств, упорядоченные по категориям 


Окно кода программы 


Окно кода предназначено для создания и редактирования текста программы. Этот 
текст составляется по специальным правилам и описывает алгоритм работы про- 
граммы. Совокупность правил записи текста называется языком программирова- 
ния. В системе РерёЫ используется язык программирования Оеры, который пред- 
ставляет собой значительно расширенную версию широко распространенного 
языка Паскаль, впервые предложенного швейцарским профессором Н. Виртом еще 
в 1970 г. и усовершенствованного сотрудниками корпорации Вопап4 (созданные 
ими языки назывались ТигБо Разса|, Вог|ап4 Разса| и ОБуесе Разса|; последний 
в версии 7 переименован в Ое!р}1). Несмотря на то, что визуальная среда Пер! 
берет на себя многие рутинные аспекты программирования, знание языка Оеры 
является непременным условием для любого программиста, работающего с этой 
системой. 

Первоначально окно кода содержит минимальный исходный текст, обеспечи- 
вающий нормальное функционирование пустой формы в качестве полноценного 
окна \/1т4о\/°-программы. В ходе работы над проектом программист вносит в него 
необходимые дополнения, чтобы придать программе нужную функциональность. 
Поскольку для создания даже простых программ вам понадобится создавать и из- 
менять (редактировать) код программы, ниже описываются основные приемы ра- 
боты с окном кода. 

Сразу после открытия нового проекта в нем будут строки, показанные в лис- 
тинге 1.1. 


Листинг 1.1. Код для пустой формы! 


401 00161; 


1п$егЕасе 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу НЁр: 
//мммм.рег.сот/Чомип{оа4д. — Примеч. ред. 
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о -- 
И1паом$, Меззадвдез, $5у$0%11$, С1аззез, СгарН1с$, Сопфго1$, 
Рогиз, П0О1а109$; 


Суре 
ТЕогм1 = С1аз$$ (ТЕогп) 
рг1уафе 
{ РклуаЕе аес]агхаЕтоп$ } 
рУр11с 
{ РаБ11с аес]агаЕлоп$ } 
епа; 
уаг 


Гоги1: ТЕоги1; 
1пр1етепва®1оп 
{$К *.ОЕМ} 


епа. 


Эти строки РерЫ автоматически вставляет в окно кода для новой формы. Как 
уже говорилось, окно кода определяет поведенческую сторону окна программы 
(то есть окна, появляющегося после начала работы программы), а окно формы — 
его внешние проявления. Оба окна тесно связаны друг с другом, причем ОерЬ1 
«хозяйничает» в его верхней части, вставляя необходимые строки между строка- 
ми чп1е 0Оп1Е1 и 1тр1емепва®1 оп. 

Пока не стоит изменять эту часть текста. В дальнейшем мы будем вставлять 
в окно текст программы между строками (586 *.РЕМ} и епа. 

Чтобы вставить в окно новую строку (строки), нужно сначала с помощью кла- 
виш управления курсором или щелчком мыши установить текстовый курсор (ми- 
гающую вертикальную черту) в нужное место, а затем ввести текст с клавиатуры. 
Обычно текст кода программы располагается в нескольких строках. Для перехода 
на новую строку используйте клавишу Епег. 

Если в процессе ввода вы ошиблись и тут же заметили свою ошибку, удалите 
ошибочный символ клавишей ВасК$расе. Клавиша ВасК5расе удаляет символ слева 
от курсора, а клавиша Ое{е{е — справа от него. Если понадобится удалить сразу 
всю строку текста, установите курсор в любое место строки, нажмите клавишу С 
и, не отпуская ее, клавишу \. Такое совместное нажатие клавиш в дальнейшем бу- 
дем обозначать символами С#+\. Чтобы отменить последнее изменение текста, 
нажмите клавиши (+2 или выберите команду ЕЧЁ ›» Упдо. 

Более полное руководство по работе с текстовым редактором окна кода приво- 
дится в приложении А. 

Вместе с окном кода обычно активизируется также и окно браузера кода, об- 
легчающее поиск нужных элементов в случае, когда в окне набрано много строк 
кода (рис. 1.8). 
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СОВЕТ Текстовый редактор ОерЫ версии 7 имеет расширенные «интеллектуальные» 
возможности Со4е [шя1[е, связанные с контролем текста по мере его ввода про- 
граммистом. К сожалению, этот контроль отнимает у компьютера определенные 
ресурсы. Чтобы избавиться от раздражающих пауз в процессе набора кода, осо- 
бенно заметных на компьютерах с памятью менее 32 Мбайт, оснащенных про- 
цессорами с тактовой частотой 100 МГц и менее, выберите в главном меню ко- 
манду 1005 > ЕпутоптепЕ ОрНоп$, в открывшемся окне перейдите па вкладку Соае 
пд и снимите флажки Соде Сотр(еЯ оп, Со4е Рагате{ег$ и Тоор 5утБо! [п$19 ИЕ. 
Увы! Вы лишитесь чудесных возможностей режима Со4е т, но зато обре- 
тетс полный контроль над клавиатурой. Флажок Тоор Ехргез$1оп ЕуашаЯ оп раз- 
решает/запрещает вычисление и показ значения переменной в режиме отладки, 
когда над переменной останавливается указатель мыши. Снимать этот флажок 


не имеет смысла, так как на этапе ввода текста программы этот сервис среды 
заблокирован И активизируется лишь после перехода в режим отладки. 


Еы Тбоыаюд > — .. ны ее И ПО А А НЫ 
+ 2% ТСотпопбаюд С! 


"| — ТЕи0за0д 7 | [АНА ИИНИННЯНННИЯ НАНА ИИ Я НИНА АнАчня я} 
+ #5 ТГопОаю9 :{ } 
+. Фа ТМеззадеРогт а Бог?апа Резри2 \У15ца1 Сотропейё Гаргагу } 
и %5 ГОреп/аю9 Е } 
|+ 5$ ТРадебе!р0 1809 ({ СоруЕЛОВЕ (с) 1995-2001 Вог2апа боЁёжаке Согрогазёлов } 
3. 55 ТРиОаюд < } 
[4 5 ТРицегбеир0иа09 :: НЯНЯ НЯ няня ния няни нняниянянких } 
+ #5 ТВедиесо\/тдом 


{+ ы- ТВерасе'аю9 


‘128 р:а1098; 
4. = 5% Тб аме1а09 : 


Е а нь 
:* Г Турез Е А} 
5 3 УапаЫез/Сопяатз :: {!. 

1 СЭ зе |: „ ЗлфекЕасе 


в т {ЗЛЕШЕК БЕЧИА» 
зе 91105113, Ш1паоуз, Меззацез, 53у30$113, Соцаир19, 
ЕЯ, С1аззез, СгарН1с3, Сопого13, Гогиз, 55аСсЕ]13; 
мы изитНрсма, 


ОТАР 


и8ез У1паочз, Меззадез, $у30$113, Сошир1ч4, 


: :1:71.. . а и “Аозей | о \Соде/ `. а гие ор а Е. НИЕ — о Е 


Рис. 1.8. Окно кода с расположенным слева окном браузера кода 


Двойной щелчок мышью на элементе в окне браузера приводит к позициони- 
рованию текстового курсора в окне кода на описание соответствующего объекта 
или на строку сего первым упоминанием. Окно браузера можно закрыть щелчком 
на кнопке 34 в его верхнем правом углу. Восстановить закрытое окно можно щелч- 
ком правой кнопки мыши в окне кода и последующим выбором команды \Мем 
Ехр(огег в контекстном меню. Замечу, что окно браузера располагается на вспомо- 
гательной панели и имеет вешку перемещения в верхней части окна. «Схва- 
тив» ее мышью, вы можете перетащить окно на любое свободное место экрана или 
«причалить» его к окну инспектора объектов. 

В версиях би 7 на нижней кромке окна кода располагаются ярлычки двух вкла- 


док — Со4е и Отадгат. Щелчок на ярлычке ГЛад:гат активизирует вкладку диаграмм 
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(рис. 1.9). Первоначально эта вкладка пуста. Чтобы наполнить ее, нужно перета- 
щить мышью два и более компонентов из окна дерева объектов (на рисунке это 
окно пристыковано к верхней части окна браузера). Чтобы перетащить компонен- 
ты на вкладку диаграмм, нужно нажать клавишу $МИ и, удерживая ее, выполнить 
щелчки мышью на нужных компонентах (выбрать их), затем отпустить клавишу 
5МИ и перетащить мышью выбранные компоненты на вкладку диаграмм. 


чмок. 


$ .. 
аникнимелниних =! Бивед1 


щие” и ВВ т | Пример связи компнентов 
я 


|| резспрцоа 


|. +: 1 Мапа/ех/Сопжаги$ .: 


Рис. 1.9. Пример страницы диаграмм 


Для сложных форм с множеством компонентов можно подготовить несколько 
диаграмм. Дав каждой диаграмме уникальное имя, можно в любой момент с по- 
мощью раскрывающегося списка выбрать нужную. 

Вкладку диаграмм можно напечатать. 


Глава 2 


Основы визуального 
программирования 


Программирование в Ое!р|! строится на тесном взаимодействии двух процессов: 
процесса конструирования интерфейса, или визуального проявления, программы 
(то есть ее окна) и процесса написания кода, придающего элементам этого окна 
и программе в целом необходимую функциональность. Для написания кода ис- 
пользуется окно кода, для конструирования программы — остальные окна Оеры 
и, прежде всего, окно формы. 

Между содержимым окон формы и кода существует неразрывная связь, кото- 
рая строго отслеживается Пер. Это означает, что размещение на форме компо- 
нента приводит к автоматическому изменению кода программы и наоборот — уда- 
ление тех или иных автоматически вставленных фрагментов кода может привести 
к удалению соответствующих компонентов. Помня об этом, программисты внача- 
ле конструируют форму, размещая на ней очередной компонент, и только после 
этого переходят, если это необходимо, к написанию кода, обеспечивающего требу- 
емое поведение компонента в работающей программе. Вот почему наше знаком- 
ство с программированием в Бер! мы начинаем с окна формы. 


Пустая форма и ее модификация 


Как уже говорилось, окно формы содержит проект окна программы. Важно пом- 
НИТЬ, ЧТО с Самого начала работы над новой программой Оеры! создает минималь- 
но необходимый код, обеспечивающий ее нормальное функционирование в \/т- 
4о\5. Таким образом, простейшая программа готова сразу после выбора команды 
Ре › №ем » АррИсайоп, и нам остается просто запустить программу. Однако до это- 
го советую выполнить две важные вещи: создать собственный рабочий каталог 
(папку) и нужным образом настроить Ое|р|1. 


Настройка Берш 


В процессе работы над проектами программ, описываемых в этой книге, вам пона- 
добится создавать множество форм и модулей. Полезно сохранять эти данные 
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в виде файлов в отдельной папке на диске. Более того, для каждой программы в этой 
папке имеет смысл создать свою вложенную папку. Тогда, чтобы освободить место 
на диске для серьезной программы, вам будет достаточно уничтожить основную 
папку, а чтобы передать ту или иную учебную программу своему коллеге, — пере- 
писать на дискету содержимое соответствующей вложенной папки. Создайте пап- 
ку с именем, например, МУ_ОЕЕРН, а в ней — вложенную папку для вашей первой 
программы. Чтобы не утруждать себя придумыванием подходящих имен для «без- 
ликих» учебных программ, советую использовать для папки имя РбМ_1 или что- 
нибудь подобное. 

Второе, что нам предстоит сделать, — это внести изменения в стандартную на- 
стройку среды Перы. Это необходимо для того, чтобы среда автоматически со- 
храняла на диске последнюю версию создаваемой вами программы. Выберите 
в главном меню команду Тоо([5 » Епмтоптеп+ Орйоп$ и убедитесь, что в появившем- 
ся диалоговом окне активна вкладка Рге{егепсе$. В левом верхнем углу этой вклад- 
ки в группе Ацфозауе ОрНоп$ есть флажки Ед ог Рез и ВезКор. Установка флажков 
приведет к автоматическому сохранению текста окна кода программы и общего 
расположения окон Ое|рЫ! перед началом очередного прогона создаваемой про- 
граммы, что избавит вас от возможных потерь в случае ее «зависания». Советую 
установить эти флажки, щелкнув на каждом мышью. Чтобы следить за ходом ком- 
пиляции, установите также флажок 5По\м Сотриег Ргодгез$ в группе Сотр1пд апа 
Кипп1пд. Далее, мне кажется полезным сохранять в коде программы комментарии — 
текстовые фрагменты, которые не влияют на работу программы, но делают ее текст 
более понятным. Если вы, как и я, предпочитаете писать комментарии на русском 
языке, следует выбрать соответствующий шрифт для отображения кода програм- 
мы. По умолчанию редактор ОерЫ использует шрифт Соичег Ме\, в котором 
может не быть символов кириллицы (для версии \/ 1 4о\ 95, например). В этом 
случае выберите команду Т00[$ » Е4Йог ОрНоп$, в открывшемся диалоговом окне 
перейдите на вкладку О1зр(ау и в списке ЕЧ\ог Гоп* выберите пункт Соийег № м Суг. 

Теперь все готово для прогона вашей первой программы. Щелкните мышью на 


их 


кнопке _„ в главном окне или, что проще, нажмите клавишу [Г 9: именно таким спо- 
собом подготовленная в Ое|рЬ! программа последовательно проходит три главных 
этапа своего жизненного цикла — этапы компиляции, компоновки и исполнения. 
На этапе компиляции осуществляется преобразование подготовленного в окне кода 
текста программы на языке Ое|рЫ в последовательность машинных инструкций, 
на этапе компоновки к ней подключаются необходимые вспомогательные подпро- 
граммы, а на этапе исполнения готовая программа загружается в оперативную па- 
мять и ей передается управление. 

Как только вы нажмете клавишу ГЕ9, появится диалоговое окно $ауе УпИ1 Аз, 
в котором Ое|рЬ] попросит вас указать имя файла для модуля Упй1.ра$ и папку его 
размещения. 

Лучше не идти «на поводу» у ОерёЫ и не соглашаться с предложенным именем 
ОИМТТ1.РА$, а присвоить модулю какое-нибудь более запоминающееся имя. Напри- 
мер, назовем модуль М\_15Т_О, что, по мысли автора, должно расшифровываться 
как «мой первый модуль» (разумеется, вам в голову может придти более подходя- 
щее имя). Если в окне $ауе /п {1 А$ вы укажете такое имя и нажмете клавишу Еп(ег, 
Рерьы! попросит задать имя еще и для проекта программы в целом. Под этим име- 
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нем будет создан исполняемый (ЕХЕ) файл и здесь нет предела для вашей изобре- 
тательности, например, Н®ТРбМ — вполне достойное имя для вашей первой про- 
граммы в Оеры. 


Именав Оерш 


Поскольку речь зашла об именах, я должен объяснить свою странную привержен- 
НОСТЬ К сОоКращенным англоязычным именам. Дело в том, что ерЫ принципи- 
ально не признает ни русских, ни французских, ни китайских, ни вообще каких бы 
то ни было имен, в которых используются символы, отличные от латинских букв, 
цифр и знака подчеркивания, причем имя не должно начинаться цифрой, но может 
начинаться знаком подчеркивания. Так как в этом перечне нет пробела, имена не 
могут также состоять из нескольких слов. Далее, сокращения до восьми симво- 
лов — это дань ограничениям ОерЫ версии 1. Эта версия рассчитана на работу 
под управлением операционной системы \УМт4о\уз 3.х, которая не признает длин- 
ных имен файлов. Если вы работаете с 32-разрядной версией Ое]р|! (то есть с лю- 
бой из версий ОерЫ от 2 до 7), можете не сокращать имена и написать МУ_ЕВ$Т_УМТ 
или даже МОУ _РЕВ\УТ_МОВИЕ, потому что эти версии рассчитаны на современные 
32-разрядные операционные системы, разрешающие использовать длинные име- 
на файлов. | 

Если вы тем или иным способом решили проблемы с именами модуля и про- 
граммы, на экране появится окно вашей формы, как и следовало ожидать, пустое, 
но обладающее всеми атрибутами нормального окна \/ш4о\$-программы: оно 
может изменять свое положение и размеры и, закрываясь, выгружает программу 
из оперативной памяти. 


Изменение свойств формы 


Итак, первый и самый простой шаг при программировании в ОерЫ вами уже сде- 
лан: вами создана нормальная \/Лпо\з-программа. Разумеется, эта программа не 
реализует придуманного вами алгоритма, она вообще ничего путного не умеет де- 
лать, но это — не беда! Впереди много времени и эта толстая книга, в которой как 
раз и рассказывается о том, как заставить вашу программу делать что-нибудь 
стоящее. | 

Теперь попробуем разобраться с тем, что такое модуль. В первом приближении 
мы можем считать модулем самостоятельный раздел программы, в чем-то подоб- 
ный главе в книге. Модуль создается каждый раз, когда вы создаете новую форму 
(в программе может быть и часто бывает не одна, а несколько — иногда несколько 
десятков — форм и связанных с ними модулей). При компиляции программы Оеры 
создает файлы с расширениями РА$, ОЕМ и 0СЦ! для каждого модуля: РА5-файл 
содержит копию текста из окна кода программы, в файле с расширением ОЕМ хра- 
нится описание содержимого окна формы, ав ОСО-файле — результат преобразо- 
вания в машинные инструкции текста из обоих файлов. ОСО-файлы создаются 
компилятором и дают необходимую базу для работы компоновщика, который пре- 
образует их в единый загружаемый файл с расширением ЕХЕ. 


' Реры 6 и 7 создает еще ОРР-файл, в котором хранится информация о связанных с модулем диаг- 
раммах. 
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Попробуем модифицировать программу, например, изменим заголовок ее окна. 
По умолчанию (то есть без каких-либо усилий с нашей стороны) заголовок окна 
совпадает с заголовком формы — Рюгт1. Чтобы изменить заголовок, нужно обра- 
титься к окну инспектора объектов. Закройте окно работающей программы ГЮюгт1 
(если вы еще не сделали этого) и щелкните мышью в строке Сар оп (Заголовок) 
окна инспектора объектов. Теперь правая колонка этой строки с текстом Гогт1 
выделена цветом и справа от выделенного виден текстовый мигающий курсор. 
Переключите клавиатуру в режим ввода кириллицы и введите заголовок Моя пер- 
вая программа, после чего еще раз нажмите клавишу [9. При новом прогоне про- 
граммы создается окно с заголовком Моя первая программа, что несет в себе гораздо 
больше информации, чем просто ГЕогт1. 

Итак, простым изменением содержимого строки в окне инспектора объектов 
мы добились важной перемены: изменили одно из свойств окна программы — его 
заголовок. Таким же образом можно изменять любое другое свойство формы. 


Размещение нового компонента 


Разместить на форме новый компонент нетрудно. Для этого сначала нужно его 
выбрать (щелкнуть на нем мышью) в палитре компонентов, а затем щелкнуть мы- 
шью на точке рабочего пространства формы, где должен располагаться левый верх- 
ний угол компонента. 

Попробуем таким способом включить в окно программы компонент [аБе| (Мет- 
ка), предназначенный для размещения различного рода надписей. Убедитесь в том, 


Рис. 2.1. Размещение компонента [аЪе! 
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что в палитре компонентов выбрана вкладка 5{апдага, и щелкните мышью на кноп- 

АА (эта кнопка отображает компонент [аБе|! в палитре компонентов). Теперь 
щелкните мышью на форме так, чтобы компонент появился на форме и распола- 
гался левее и выше ее центра (рис. 2.1). Первоначальные размеры и положение 
компонента на форме легко изменяются мышью, поэтому добиваться полного сход- 
ства с рисунком не обязательно. 

Новый компонент имеет стандартное имя [аБе!1 и надпись на нем повторяет 
это имя. Изменим эту надпись: с помощью строки СарЙоп окна инспектора объек- 
тов введите надпись Я программирую на Верн. Как только вы начнете вводить но- 
вую надпись, вид компонента на форме начнет меняться, динамически отражая 
все изменения, производимые вами в окне инспектора объектов. 

Выделим надпись цветом и сделаем ее шрифт более крупным. Для этого щелк- 
ните мышью на строке Гоп* окна инспектора объектов и с помощью кнопки [3 в пра- 
вой части строки раскройте диалоговое окно настройки шрифта. В списке $12е (Раз- 
мер) этого окна выберите высоту шрифта 24 пункта!, а с помощью списка Соог 
(Цвет) выберите нужный цвет (например, красный), после чего закройте окно 
щелчком на кнопке ОК. 

Надпись на компоненте в окне формы тут же соответствующим образом изме- 
нит свои свойства. Ое|рЫ обладает замечательной способностью визуальной реа- 
лизации любых изменений свойств компонента не только на этапе прогона про- 
граммы, но и на этапе проектирования формы. 

Нажмите левую кнопку мыши внутри обрамляющих надпись черных прямо- 
угольников и, не отпуская кнопку, сместите указатель мыши так, чтобы он распо- 
ложился левее в центре окна, после чего отпустите кнопку. Таким способом мож- 
но буксировать компонент по форме, добиваясь нужного его положения. 

С помощью обрамляющих черных квадратиков можно изменять размеры ком- 
понента. Для этого следует поместить указатель мыши на один из них (в этот мо- 
мент указатель меняет свою форму на двунаправленную стрелку), затем нажать 
левую кнопку мыши и, не отпуская ее, буксировать сторону или угол компонента 
в нужном направлении, после чего отпустить кнопку. 

Замечу, что все видимые компоненты: имеют свойства |еЙ (Слева), Тор (Сверху), 
Май (Ширина) и Нед ВЕ (Высота), числовые значения которых определяют поло- 
жение левого верхнего угла компонента и его размеры в так называемых пикселах, 
то есть в минимальных по размеру точках экрана, светимостью которых может 
управлять программа. При буксировании компонента или изменении его разме- 
ров мышью эти значения автоматически меняются и наоборот — изменение этих 
свойств в окне инспектора объектов приводит к соответствующему изменению 
положения и размеров компонента. В Реры 7 значения (ей и Тор автоматически 
появляются во всплывающей подсказке (небольшом окне рядом с указателем 
мыши) при буксировке компонента по форме. 


' Пункт — И», дюйма, тоесть приблизительно 0,04 мм. Таким образом, 24 пупкта означает высоту шриф- 
та чуть более 9 мм. 


? В РерНы могут использоваться как видимые, Так и невидимые компоненты. Невидимые компоненты 
не имеют визуального отображения на этапе прогона программы. 
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Реакция на события 


Настало время познакомиться с языком программирования Ое!р1, так как только 
с его помощью мы можем придать программе нужную функциональность и заста- 
вить ее выполнять полезную работу. Как уже говорилось, функциональность про- 
граммы определяется совокупностью ее реакций на те или иные события. В связи 
с этим каждый компонент помимо свойств характеризуется также набором собы- 
тий, на которые он может реагировать. 


Модификация формы 


Проведем очередную модернизацию нашей первой программы: вставим в ее фор- 
му еще один компонент — кнопку и заставим ее откликаться на событие, связан- 
ное со щелчком левой кнопки мыши. 

Компонент кнопка изображается значком [0%] на вкладке 5{апдаг4 палитры ком- 
понентов. Поместите этот компонент на форму и расположите его ниже метки и по- 
середине формы (рис. 2.2). 


Рис. 2.2. Форма с вставленной кнопкой 


Обработчик события ОпСИск 


При щелчке на кнопке мышью в работающей программе возникает событие 
ОпС11ск (По щелчку). Пока это событие никак не обрабатывается программой 
и поэтому щелчок на кнопке не приведет ни к каким последствиям. Чтобы заста- 
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вить программу реагировать на щелчок, необходимо написать на языке Оеры фраг- 
мент программы, который называется обработчиком события. Этот фрагмент дол- 
жен представлять собой последовательность текстовых строк, в которых програм- 
мист указывает, что именно должна делать программа в ответ на щелчок на кнопке. 
Фрагмент оформляется в виде специальной подпрограммы языка Ое]р}! — проце- 
дуры. 

Чтобы заставить Ое]рЫ! самостоятельно сделать заготовку для процедуры об- 
работчика события ОпС11скК, дважды подряд без заметной паузы щелкните мы- 
шью на вновь вставленном компоненте'. В ответ Ое]р}! активизирует окно кода, 
и вы увидите в нем такой текстовый фрагмент: 


ргоседиге ТГоги1.Виесоп1С11сК (бепаег: ТОБ)ес®); 
Ъед1п 


епа; 


Попробуем разобраться в том, что он содержит. Слово рхоседаге извещает 
компилятор о начале подпрограммы-процедуры — в Ое!р|1 могут использоваться 
также подпрограммы-функции; в этом случае вместо слова ргосе4мге (процеду- 
ра) используется слово Еапс1оп (функция); разницу между процедурами и функ- 
циями мы обсудим в главе 7. За ним следует имя процедуры ТГогм1 .Ваеоп1- 
С11скК. Это имя — составное: оно состоит из имени класса ТКоги1 и собственно 
имени процедуры Ва оп1С11ск. 

Классами в Оеры называются функционально законченные фрагменты про- 
грамм, служащие образцами для создания подобных себе экземпляров. Однажды 
создав класс, программист может включать его экземпляры (копии) в разные про- 
граммы или в разные места одной и той же программы. Такой подход способствует 
максимально высокой продуктивности программирования за счет использования 
ранее написанных фрагментов программ. В состав Оеры входит несколько сотен 
классов, созданных программистами корпорации Во[ап4 (так называемых стан- 
дартных классов). Совокупность стандартных классов определяет мощные возмож- 
ности этой системы программирования. 

Каждый компонент принадлежит к строго определенному классу, а все конк- 
_ретные экземпляры компонентов, вставляемые в форму, получают имя класса 
с добавленным числовым индексом. По используемому в Ое|рЫ! соглашению все 
имена классов начинаются с буквы Т. Таким образом, имя ТГогт1 означает имя 
класса, созданного по образцу стандартного класса ТКогм. Если вы посмотрите 
начало текста в окне кода, то увидите следующие строки: 

Суре 

ТРГогм1 = с1а$$ (ТГогп) 
Ваебоп1: ТВоееоп; 
Таре11: ТЬаре1; 


' Уначинающего пользователя \\ 114о\$ не всегда получается двойной щелчок. Этот нехитрый прием 
широко используется и в Ут 4о\5, и в ОерЫ, так что вам придется потренироваться в его освоении: 
без него ОерЫ не вставит заготовку процедуры, и вам понадобится не только самостоятельно писать 
текст заготовки, но и производить дополнительные манипуляции с инспектором объектов и окном 
кода. 
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ргосеааге Воееоп1С11сК (бепаег: ТОБ]ес®); 


рг1уаее 
{ РгтуаЕе аес]агаЕтоп$ } 
ручЬ11с 
{ РиЬ]11с аес]агаЕтоп$ } 
епа; 
уаг 


ГКогт1: ТГоги1; 
Представленная ниже строка определяет новый класс ТГогм1: 
ТРГогм1] = СТаз$$ (ТЕГогп) 


Этот класс порожден от (создан по образцу) стандартного класса ТКогп. А сле- 
дующая строка создает экземпляр этого класса с именем Еоги1: 


Роги]: ТЕГогщ1; 


Стандартный класс ТГогм описывает пустое окно программы, в то время как 
класс ТЕогт1 описывает окно с уже вставленными в него компонентами метка и 
кнопка. Описание этих компонентов содержат строки: 


Ва оп1: ТВоаЕЕоп; 
Таре11: ТГаре1; 


Эти строки указывают, что компонент Ваз оп1 (Кнопка1) представляет собой 
экземпляр стандартного класса ТВае оп, а компонент Табе11 (Метка1) — экзем- 
пляр класса ТТаре1. 

За именем процедуры ТЕоги1 .Виеоп1С11скК вкруглых скобках следует опи- 
сание параметра вызова: 


Зепаег: ТОБ)есе 


Это описание означает, что параметр с именем 5епаег принадлежит классу 
ТО) ес. Как мы увидим дальше, процедуры могут иметь не один, а несколько 
параметров вызова или не иметь их вовсе. Параметры вызова (если они есть) слу- 
жат для настройки реализованного в процедуре алгоритма на выполнение конк- 
ретной работы. Параметр 5$епаег вставлен Ое]рЫ «на всякий случай»: с его по- 
мощью программист может, при желании, определить, какой именно компонент 
явился источником события ОпС11ск. 

Вся строка в целом называется заголовком процедуры: 


ргосеааге ТГогм1.Воееоп1С11сК (бепаег: ТОБ]ес®); 


Ее завершает символ точки с запятой (;), который играет важную рольв Ое|ры, 
так как показывает компилятору на конец предложения языка. Из отдельных пред- 
ложений составляется весь текст программы. В конце каждого предложения нуж- 
но ставить точку с запятой — это обязательное требование синтаксиса языка. 

Три следующие строки определяют тело проиедуры: 


Бед1п 


епа; 
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Слово Ъед1п (начало) сигнализирует компилятору о начале последовательно- 
сти предложений, описывающих алгоритм работы процедуры, а слово епа (ко- 
нец) — о конце этой последовательности. В нашем случае тело процедуры пока 
еще не содержит описания каких-либо действий, что и неудивительно: среда Оеры 
лишь создала заготовку для процедуры, но она ничего «не знает» о том, для чего 
эта процедура предназначена. Наполнить тело нужными предложениями — зада- 
ча программиста. 

Для нас важно то обстоятельство, что каждый раз при щелчке на кнопке Ви оп1 
управление будет передаваться в тело процедуры, а значит между словами Беда п 
иепа мы можем написать фрагмент программы, который будет выполняться в от- 
вет на это событие. 

Чтобы убедиться в этом, сделаем нашу кнопку «звучащей»: напишите в пустой 
строке между словами Ъедлёп и епа следующее предложение: 


МеззадеВеер (МВ_ОК); 


Выполните прогон программы, предварительно включив звуковую систему 
компьютера. Теперь в ответ на щелчок на кнопке Ви&оп1 в динамике компьютера 
будет раздаваться звуковой сигнал, так как вставленная строка реализует обраще- 
ние к стандартной процедуре, которая умеет извлекать из динамика различные 
стандартные для \\!!14о\$ звуки. 


Динамическое изменение свойств компонента 


Поскольку кнопка Ви оп1 в нашей программе способна «звучать», полезно изме- 
нить ее надпись: вместо умалчиваемой надписи Виоп1, которую автоматически 
формирует ОерыЫ! по имени компонента, назовем кнопку, например, Звук. Проще 
всего это сделать с помощью окна формы и инспектора объектов, то есть на этапе 
конструирования формы (для этого нужно просто изменить свойство СарЯоп ком- 
понента Ви Коп1 в окне инспектора объектов), но для более полного знакомства 
с Р@ерЫ мы рассмотрим другой способ — способ динамического! изменения надпи- 
си на этапе прогона программы. Для этого создадим обработчик события ОпСгеа&е 
(По созданию) для формы и изменим в нем это свойство. 

Событие ОпСгеа{е возникает после создания окна программы, но до появле- 
ния этого окна на экране. Чтобы создать обработчик этого события, раскройте спи- 
сок компонентов в верхней части окна инспектора объектов, выберите компонент 
Рогт1 и дважды щелкните на свойстве ОпСгеа*е вкладки Е\еп{5 этого компонен- 
та (щелкать нужно на правой части строки ОпСгеахе). В ответ Ое|рЫ вновь акти- 
визирует окно кода и покажет вам заготовку для процедуры ТГогт1 .ЕКогпСгеаее. 
Отредактируйте ее следующим образом: 


ргоседиге ТГогп1.ЕогтСгеа®е (бепаег: ТОБ)ес®); 
Бед1п 
Вое$оп]1.СарЕ1оп := 'Звук!; 
епа; 
_ Единственная вставленная нами строка представляет собой так называемый 
оператор присваивания языка Оеры. В левой части оператора указывается свой- 


' Изменения на этапе конструирования называются статическими, а в ходе прогона программы — 
динамическими. 
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ство Вас оп1.Саре1ог, а в правой части — значение Звук, которое мы хотим 
придать этому свойству. Связывает обе части комбинация символов «:=», кото- 
рая читается как «присвоить значение». Символы «:=» всегда пишутся слитно, 
без разделяющих пробелов, хотя перед двоеточием и после знака равенства можно 
для удобочитаемости программы вставлять пробелы, что мы и сделали. Как и лю- 
бое другое предложение языка, оператор присваивания завершается точкой с за- 
пятой. 

Составное имя Ви *оп1 .Сар&1оп необходимо для точного указания компи- 
лятору, о каком свойстве идет речь: в нашей программе используются три компо- 
нента (включая саму форму), каждый из которых имеет свойство Сар&1оп; уточ- 
няющий префикс Ва оп1 заставит изменить это свойство у кнопки, а не у метки 
или формы. Присваиваемое свойству значение является текстовой строкой. По 
правилам Ое]рЬ! текстовая строка должна заключаться в обрамляющие апостро- 
фы. Внутри апострофов можно написать любое количество произвольных симво- 
лов — именно они (без обрамляющих апострофов) будут определять новую над- 
пись на кнопке, 

После очередного прогона программы вы увидите измененную надпись на кноп- 
ке, амы сделаем важный вывод: любое свойство любого компонента можно изме- 
нять динамически, то есть в ходе исполнения программы. 
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Перед тем как навсегда расстаться с нашей первой программой, сформулируем 
главные выводы, полученные в ходе работы с ней. 


*” Процесс создания программы в Рер}! разбивается на две фазы: фазу констру- 
ирования формы и фазу кодирования. 


* Конструирование формы осуществляется путем выбора компонентов в палит- 
ре и размещения их на форме. 


" Программист может перемещать любой размещенный на форме компоненти из- 
менять его размеры с помощью мыши. 


"” Чтобы придать компоненту нужные свойства, используется вкладка Ргоре!4ез 
инспектора объектов. 


*” Чтобы компонент мог откликаться на то или иное событие, программист дол- 
жен создать обработчик события и указать его имя на вкладке Е\уеп{5 инспекто- 
ра объектов. 


„; Обработчик события оформляется в виде процедуры, имеющей составное имя. 
Первая часть имени представляет собой имя класса для формы, вторая часть 
отделяется от первой точкой и может быть произвольной. Если Оеры автомати- 
чески формирует заготовку для обработчика, то вторая часть имени представляет 
собой объединение имени компонента и имени события без префикса Ол. 


Тело процедуры ограничено словами Ъед:п и еп@ и состоит из отдельных пред- 
ложений (операторов) языка ОерН. В конце каждого предложения ставится 
точка с запятой. 


Глава 3 


Знакомство 
с компонентами 


Как мы уже выяснили, компоненты представляют собой элементы, из которых 
конструируется видимое изображение, создаваемое работающей программой. За- 
мечу, что существует значительное количество компонентов, которые не создают 
видимого изображения, но которые, тем не менее, играют важную роль в тех или 
иных случаях. Правильнее думать о компонентах как о заранее приготовленных 
для вас фрагментах программы, которые можно вставлять, если в этом есть необ- 
ходимость, в разрабатываемую программу. В этой главе представлен начальный 
обзор компонентов, который даст вам самое общее представление о богатстве воз- 
можностей Пер. 

Библиотеки компонентов для разных версий Ое!рЬ! строятся по принципу рас- 
ширения: в первой версии было около 70 компонентов, в то время как в состав 
ПерЫ 7 входит более 300 компонентов. 


ПРИМЕЧАНИЕ Даже простое перечисление вссх компонентов одной из последних вер- 
сий заняло бы много места и вряд ли дало вам что-либо полезное. По- 
этому ниже перечисляются лишь функциональные группы (вкладки 
палитры) компонентов и описываются те из пих, что будут рассматри- 
ваться в рамках этой книги. 


Компоненты перечисляются для комплектации Оеры 7 $ и41о АгсЬ еси. 


Вкладка Зфапаага 


На вкладке ${апдаг4 палитры компонентов сосредоточены стандартные для \Мт- 

4о\з интерфейсные элементы, без которых не обходится практически ни одна про- 

грамма. 

\ Рате — фрейм. Наравне с формой служит контейнером для размещения дру- 
гих компонентов. В отличие от формы, может размещаться в палитре компо- 
нентов, создавая заготовки компонентов. 
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и МатМепи — главное меню программы. Компонент способен создавать и обслу- 
живать сложные иерархические меню. 


—_ РорирМепи — контекстное, или локальное, меню. Обычно это меню появляется 
после щелчка правой КНОПКИ МЫШИ. 


"" [аБе|! — метка. Этот компонент используется для размещения в окне не очень 
длинных однострочных надписей. 


ЕЁ — однострочное редактируемое текстовое поле. Предназначено для ввода, 
отображения или редактирования одной текстовой строки. 


 Мето — многострочное редактируемое текстовое поле. Используется для ввода 
и/или отображения многострочного текста. 


"; Вимоп — кнопка. Обработчик события ОпС11сК этого компонента обычно ис- 
пользуется для реализации некоторой команды. 


 СНескВох — флажок. Щелчок мышью на этом компоненте в работающей про- 
грамме изменяет его логическое свойство СпескКед. 


; КафоВи оп — переключатель. Обычно объединяется как минимум еще с одним 
таким же компонентом в группу. Щелчок на переключателе приводит к авто- 
матическому освобождению ранее выбранного переключателя в той же группе. 


= |15$Вох — список. Содержит список предлагаемых вариантов (пунктов списка) 
и дает возможность проконтролировать текущий выбор. 


# СотБоВох — комбинированный список. Представляет собой комбинацию спис- 
ка и однострочного текстового поля. 


”. ЭсгоЦВаг — полоса прокрутки. Представляет собой вертикальную или горизон- 
тальную полосу, напоминающую полосы прокрутки по бокам окна программы. 


" бгоирВох — панель группировки. Этот компонент используется для группиров- 
ки нескольких связанных по смыслу компонентов. 


}; Кадобгоир — группа переключателей. Содержит специальные свойства для об- 
служивания нескольких связанных переключателей. 


* Рапе[ — панель. Этот компонент, как и бгоирВох, служит для объединения не- 
скольких компонентов. Содержит внутреннюю и внешнюю кромки, что позво- 
ляет создать эффекты «вдавленности» и «выпуклости». 


” Асиоп$ — список действий. Служит для централизованной реакции програм- 
мы на действия пользователя, связанные с выбором одного из группы однотип- 
ных управляющих элементов, таких как команды меню, графические кнопки 
ИТ. п. 


Вкладка Ааа Нюпа| 


На вкладку Ада\опа[ помещены 26 дополнительных компонентов, с помощью ко- 
торых можно разнообразить вид диалоговых окон. 


" ВВ — кнопка с изображением. 


"' Зрее4Ви оп — кнопка панели инструментов. Обычно используется для быстро- 
го доступа к тем или иным командам главного меню. 
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>) МазКЕЧ — поле с маской ввода. Этот компонент способен фильтровать вводи- 
мый текст, например, для правильного ввода даты. 


# 5&пд9бпа — текстовая таблица. Этот компонент обладает мощными возможно- 
стями для представления текстовой информации в табличном виде. 


# Огамбйа — произвольная таблица. В отличие от $11 пд9бп4, ячейки этого компо- 
нента могут содержать произвольную информацию, в том числе и рисунки. 


” [таде — изображение. Этот компонент предназначен для отображения рисун- 
ков, в том ЧИСЛЕ значков и метафайлов. 


и ЭПаре — стандартная фигура. С помощью этого компонента вы можете вставить 
в окно правильную геометрическую фигуру — прямоугольник, эллипс, окруж- 
НОСТЬ ИТ. П. 


”» Веуе| — кромка. Служит для выделения отдельных частей окна трехмерными 
рамками или полосами. 


) эсгоЦВох — панель с полосами прокрутки. В отличие от компонента Рапе|, авто- 
матически вставляет полосы прокрутки, если размещенные в нем компоненты 
отсекаются его границами. 


» Спески${Вох — список флажков. Отличается от стандартного компонента [1$Вох 
наличием рядом с каждым пунктом списка флажка СПесКВох, что дает возмож- 
ность выбора сразу нескольких пунктов. 


* ЭрИЩег — вешка разбивки. Этот компонент размещается на форме между двумя 
другими видимыми компонентами и дает возможность пользователю во вре- 
мя прогона программы перемещать границу, отделяющую компоненты другот 
друга. 


и ЭфайсТехе — текстовая метка. Отличается от стандартного компонента [аБе! на- 
личием собственного оконного ресурса, что позволяет обводить текст рамкой 
или выделять его в виде «вдавленной» части формы. 


"} Соп\го[Ваг — контейнер для панелей инструментов. Служит контейнером для 
«причаливаемых» (ОПга&ОосК) компонентов. 


" АррИсаНопЕуеп*5 — обработчик сообщений УЛп4о\з. Если этот компонент по- 
мещен на форму, он будет получать все предназначенные для программы сооб- 
щения \\!114о\%$ (без этого компонента сообщения принимает глобальный объ- 
ект-программа Арр11саЕ1оп)Д. 

_ Уашейн$ Е Ког — специализированный редактор списков, содержащих пары имя 

= значение. Пары такого типа широко используются в \/м4о\5, например, в фай- 

лах инициализации, в системном реестре ит. п. 


з ГареедЕЧИ — комбинация однострочного поля и метки. 


 СоотВох — список выбора цвета. Специальный вариант компонента СотроВох 
для выбора одного из системных цветов. 


(Пай — диаграмма. Этот компонент облегчает создание специальных панелей 
для графического представления данных. 


„ АсйопМападег — менеджер действий. Совместно с тремя следующими компо- 
нентам обеспечивает создание приложений, интерфейс которых (главное меню 
и инструментальные кнопки) может настраиваться пользователем. 
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” АсИопМатпМепиВаг — строка меню для действий. Команды меню создаются с по- 
мощью компонента АсЯопМападег. 


„ АсНопТоо[Ваг — панель инструментов для действий. Служит контейнером для 
кнопок, создаваемых с помощью компонента АсйопМапацет. 


# Сизфотухе0{3 — диалоговое окно настройки. С помощью этого компонента пользо- 
ватель может по своему вкусу настроить интерфейс работающей программы. 


® ХРСо[огМар — совместно с тремя следующими компонентами впервые введен 
в версии 7 для настройки цветов и наполнения панелей АсЯопТоо(Ваг. 


Вкладка \\Мп3 2 


Вкладка \п32 содержит интерфейсные элементы для 32-разрядных операцион- 
ных систем \Мт4о\з 95/98 /МТ/2000/ХР. 


ное поле с надписью и/или рисунком. Выбор той или иной вкладки распоз- 
нается программой и используется для управления содержимым окна ком- 
понента. 


ми 


*” РадеСопто|! — набор страниц с вкладками. Каждая страница может содержать 
свой набор интерфейсных элементов и выбирается щелчком на связанной с ней 
вкладке. 


ем 


 ТтадеН${ — хранилище изображений. Представляет собой хранилище для не- 
скольких рисунков одинакового размера. 


з_ ЮспЕЧЕ — поле формата КТЕ. В отличие от компонента Мето вкладки 5*апдага, 
текст в компоненте КАсВЕЧ\ подчиняется правилам расширенного текстового 
формата (ВлсЬ Тех Еогта, КТР) и может изменять такие свои характеристи- 
ки, как шрифт, цвет, выравнивание ит. д. 


 ТаскВаг — ползунок. Используется для управления значениями некоторых ве- 
личин в программах. Например, с его помощью удобно изменять громкость зву- 
чания в мультимедийных программах. 


”” Ргодгез$Ваг — индикатор процесса. С помощью этого компонента можно отобра- 
жать ход исполнения достаточно длительного по времени процесса, например, 
процесса переноса данных на дискету. 


% Урбомт — счетчик. Две кнопки этого компонента предназначены для увеличе- 
ния (верхняя) или уменьшения (нижняя) связанной с компонентом числовой 
величины. 


 Но{Кеу — клавиша быстрого выбора. Компонент используется для ввода управ- 
ляющих клавиш, таких как Ё1, А{+А, С +5 А+ 1 ит. п. 


Ап1тае — анимация. Компонент предназначен для отображения последователь- 
но сменяющих друг друга кадров движущихся изображений (видеоклипов). 
Компонент не может сопровождать видеоклип звуком. 
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2 ОаетеР1сКег — ввод и отображение времени/даты. Этот компонент предназ- 
начен для ввода и отображения даты или времени. 


# МопЕНСа(епааг — календарь. Служит для выбора/отображения даты. 


 Тее\Лем — иерархическое дерево. Представляет собой совокупность связанных 
в древовидную структуру значков и строк. Обычно используется для просмот- 
ра структуры каталогов (папок) и других подобных элементов, связанных иерар- 
хическими отношениями. 


" И5 Лем — иерархический список. Организует просмотр нескольких значков 
и выбор нужного. Этот компонент способен располагать значки в горизонталь- 
ных или вертикальных рядах и показывать их в крупном или мелком масштабе. 


*_ Неа4дегСопго{ — управляющий заголовок. Представляет собой горизонтальную 
или вертикальную полосу, разделенную на ряд смежных секций с надписями. 
Размеры секций можно менять мышью на этапе работы программы. Обычно 
используется для изменения размеров столбцов или строк в разного рода таб- 
лицах. 


':_ Эфафи$Ваг — строка состояния. Предназначена для размещения разного рода слу- 
жебной информации в окнах редактирования. Посмотрите на нижнюю часть 
окна кода ОерЫ или текстового редактора \/ог4 и вы увидите этот компонент 
в действии. 


'" Тоо{Ваг — инструментальная панель. Этот компонент служит контейнером для 
кнопок Тоо(Ви оп и способен автоматически изменять их размеры и положение 
при удалении кнопок или при добавлении новых. 


"2 Соо{Ваг — инструментальная панель. В отличие от Тоо[Ваг, используется как кон- 
тейнер для размещения стандартных интерфейсных компонентов \Мш4о\5, 
таких как Еац, [15Вох, Сот@оВох и т. д. 


"" РадесгоЦег — панель с кнопками прокрутки. Служит для размещения узких 
инструментальных панелей. При необходимости автоматически создает по кра- 
ям панели стрелки прокрутки. 


 СотБоВохЕх — компонент в функциональном отношении подобен СотБоВох 
(вкладка 5*апдага), но имеет расширенные возможности. 


Вкладка Зуз4ет 


На вкладке 5у${ет представлены компоненты, которые имеют различное функци- 
ональное назначение, в том числе компоненты, поддерживающие стандартные для 
М/т4о\з технологии межпрограммного обмена данными ОГ.Е (ОБесё лю 11$ ап4 
ЕтЬеа 11$ — связывание и внедрение объектов) и ООЕ (Оупапис Оака ЕхсВапре — 
динамический обмен данными). Технология ОПЕ всовременных программах пол- 
ностью вытеснена гораздо более мощной технологией СОМ и поэтому соответ- 
ствующие им компоненты в книге не рассматриваются. 


: Тутег — таймер. Этот компонент служит для отсчета интервалов реального вре- 
мени. 

\ Рам\Вох — окно для рисования. Создает прямоугольную область, предназна- 
ченную для прорисовки графических изображений. 
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_ МедтаР{ауег — медиаплейер. С помощью этого компонента можно управлять раз- 
ЛИЧНЫМИ и мультимедийными устройствами. 


емых объектов. 


Вкладка О!аю95$ 


Компоненты вкладки 01а(09$ реализуют стандартные для \/14о0\з диалоговые окна. 


' Ореп0Та(09 — окно открытия файла. Реализует стандартное диалоговое окно от- 
крытия файла. 


" Зауе[аюд — окно сохранения файла. Реализует стандартное диалоговое окно 
сохранения файла. 


* ОрепРусиге0ла1од — окно открытия изображения. Реализует специальное окно 
выбора графических файлов с возможностью предварительного просмотра изоб- 
ражений. 


1 бамеР1ситеТа[0д — окно сохранения изображений. Реализует специальное окно 
сохранения графических файлов с возможностью предварительного просмот- 
ра рисунков. 


 ГопОТаод — окно выбора шрифта. Реализует стандартное диалоговое окно вы-. 
бора шрифта. 


"‚ СоогО1а(од — окно выбора цвета. Реализует стандартное диалоговое окно выбо- 
ра цвета. 


з Рип*ОТа1од — окно настройки параметров печати. Реализует стандартное диало- 
говое окно выбора параметров для печати документа. 


_ Рипег5ефирЛа(0д — окно настройки параметров принтера. Реализует стандарт- 
ное диалоговое окно для настройки печатающего устройства. 


‚‚ Ап@0ОТа(09 — окно поиска. Реализует стандартное диалоговое окно поиска тек- 
стового фрагмента. 


*” Верасе0та1од — окно поиска и замены. Реализует стандартное диалоговое окно 
поиска и замены текстового фрагмента. 


Вкладка \МИт31 


Большинство компонентов вкладки \!1п31 введены для совместимости с версией 1 
Реры. В современных программах вместо них рекомендуется использовать соот- 
ветствующие компоненты вкладки \п32. 


}‚ Табе — набор вкладок. В приложениях для 32-разрядных версий \У/1п4о\ ре- 
комендуется использовать компонент ТаБСоп{го(. 


"_ ОцИпе — иерархическая структура. В приложениях для 32-разрядных версий 
\Мт4о\гз рекомендуется использовать компонент Тгее\Ме\. 


} ТабБе4МофеБоок — набор страниц с вкладками. В приложениях для 32-разряд- 
ных версий \/т4о\з рекомендуется использовать компонент РадеСоп\го(. 
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2 МовеБоок — набор страниц без вкладок. В приложениях для 32-разрядных вер- 
сий \/т4о\з рекомендуется использовать компонент РадеСоп\го. 


‚) Неадег — управляющий заголовок. В приложениях для 32-разрядных версий 
\!!п4о\$ рекомендуется использовать компонент НеадегСопёго(. 


" Рей$Вох — панель с именами файлов. 


"" О1тескогул${Вох — панель с именами каталогов (папок). 


 ОпуеСотБоВох — список устройств. 


 АЩегСотБоВох — список с расширениями файлов. 


Вкладка Затр]е$ 


Вкладка Затр(ез содержит компоненты разного назначения. 


} баиде — индикатор величины. Подобен компоненту Ргодгез$Ваг (вкладка \п32), 
но отличается большим разнообразием форм. 


 Соогбпа — таблица цветов. Этот компонент предназначен для выбора основно- 
го и фонового цветов в 16-цветной палитре. 


* ортВиКоп — спаренные кнопки. Дает удобное средство управления некоторой 
числовой величиной. 


"" ЭртЕДИ — поле со спаренными кнопками. Обеспечивает отображение и редак- 
тирование целого числа с возможностью его изменения с помощью спаренных 
КНОПОК. 


 Отесфогуди{Ипе — структура каталогов. Отображает в иерархическом виде струк- 
туру каталогов дискового накопителя. 


} Саепдаг — календарь. Предназначен для показа и выбора дня в месяце. 


Вкладка АсНнуеХх 


Компоненты АсйуеХ являются «чужими» для Ое|рЫ!: они создаются другими ин- 
струментальными средствами разработки программ (например, С++ или У15иа| 
Ваз1с) и внедряются в Ое|рН! с помощью технологии ОГЕ. На вкладке АсН\уеХ пред- 
ставлены лишь 4 из великого множества компонентов АсИуеХ, разрабатываемых 
повсюду в мире компаниями-производителями программных средств и отдельны- 
ми программистами. 


и СПагЁх — интерактивный график. Дает программисту удобное средство вклю- 
чения в программу интерактивных (диалоговых) графиков. 


" \У55ре{ — система проверки правописания. Осуществляет орфографическую 
проверку правильности написания английских слов. 


„: [1ВооК — электронная таблица. Позволяет создавать и использовать рабочие 
книги электронных таблиц, подобно тому, как это делает М$ Ехсе]. 


2 \СНаг — мастер диаграмм. Обеспечивает мощные средства построения двух- 
и трехмерных диаграмм по результатам табличных вычислений. 


Глава 4 
Введение в язык Барт 


Основательному изучению языка Пе]р! посвящена часть [] этой книги. Назначе- 
ние данной главы — предоставить вам возможность неформального знакомства 
с основными свойствами языка программирования без точного описания и углуб- 
ленного изучения его конструкций. 
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При описании свойств языка мне понадобится иллюстрировать их небольшими 
примерами. В таких примерах чаще всего реализуются простые действия по вводу 
некоторых данных, их преобразованию и выводу результатов на экран. Для реали- 
зации этих действий создадим форму, которая будет содержать все необходимые 
для учебных примеров интерфейсные элементы. Чтобы эта форма была доступна 
в любой учебной программе, мы поместим ее в так называемое хранилище объек- 
тов ОерЫ! — архив, в котором сохраняются заготовки для новых программ. 

Вид формы для учебной программы показан на рис. 4.1. 

На форме размещена панель (Рапе!), две кнопки (ВИВ\п), однострочное поле 
(ЕЧ1®), метка (ТаБе!) и многострочное поле (Мето). Панель понадобилась для того, 
чтобы размещенные на ней кнопки, поле ввода и метка всегда располагались в ниж- 
ней части окна, даже если окно развернуто на весь экран. Левая кнопка (ОК) слу- 
жит для сообщения программе о том, что в поле ввода подготовлен текст. Обра- 
ботчик события ОпС11ск этой кнопки станет тем самым местом программы, куда 
мы будем помещать учебные фрагменты. Правая кнопка ((10$е) служит для завер- 
шения работы программы. Ее функции аналогичны функциям системной кнопки 
закрытия окна и поэтому ее можно было бы и не размещать на форме. Однако 
я предпочитаю использовать крупную, бросающуюся в глаза кнопку, чтобы даже 
неопытный пользователь сразу увидел интерфейсный элемент, с помощью кото- 
рого он сможет прекратить работу с программой. Метка располагается над полем 
ввода и пока не видна на экране. Она предназначена для размещения коротких 
сообщений, которые будет формировать программа. Для вывода многострочных 
сообщений служит многострочное поле Мето, занимающее все остальное место 
окна. 
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Рис. 4.1. Форма для учебной программы 


Конструирование формы 


Вы можете самостоятельно сконструировать форму для учебной программы, ру- 
ководствуясь приведенным выше описанием размещенных на ней компонентов 
и рис. 4.1. Для облегчения этого процесса ниже для каждого компонента указаны 
свойства, значения которых отличаются от умалчиваемых. Компоненты перечис- 
лены в порядке их размещения, то есть вначале подготавливаются свойства фор- 
мы, потом на форму помещается панель, на нее помещаются кнопки и строка вво- 
да, а метка и многострочное текстовое поле — на свободное место формы над 
панелью. 

Размеры компонентов установлены с учетом разрешения экрана 1024х768. Для 
другого разрешения эти размеры, возможно, потребуется скорректировать. 

Форма. 


" СарИоп — Учебная программа. 
'з Нетдпе — 480. 


\ Мате — ГтЕхатр(е. 


„" Роз\оп — ро5сгеепСеп\ег. 
и Ума — 696. 


Панель (компонент Рапе! на вкладке 5{апдага) помещается на любое свободное 
место формы. 
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”» АНдп — аВоКом. 


" Веуе[Ои*ег — БуМопе. 


Кнопка ОК (компонент В\В4п на вкладке АЧЧ1опа() помещается на любое сво- 
бодное место панели. 
" Кша — БКОК. 
"" [ей -— 32. 
# Мате — ЬБКип. 
Тор - 48. 
Кнопка ((05е (компонент В"В&п на вкладке АЧаопа|) помещается на любое сво- 
бодное место панели. 
"" Кша — БКС о$е. 
№ [еК-— 128. 
" Мате — БЫЦозе. 
= Тор — 48. 
Поле ввода (компонент Е@\ на вкладке 5{апдаг4) помещается на любое свобод- 
ное место панели. 


} Мате — е4Тпри*. 
= 1еН — 200. 


": Техё— очистить. 
” Тор - 16. 
2 МЧ — 289. 


Метка (компонент [ГаБе! на вкладке 5{апдаг4) помещается на любое свободное 
место формы. 


” АПдп — а\ВоКом. 
”_ Сарйоп — очистить. 
”” Мате — [БОшри. 
Многострочное поле (компонент Мето на вкладке З{апдаг4)) помещается на лю- 
бое свободное место формы. 


и Мате — ттОи&рш. 

"" осгоЦВаг$ — $5Во{В. 

 \Мога\М!тар — Га{5е. 

Следует прокомментировать сделанные нами изменения значений свойств. 


Размеры формы Неа (Высота) и МАЧН (Ширина) выбраны так, чтобы форма 
не казалась слишком маленькой или слишком большой на экранах с разным раз- 
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решением — они оптимальны для распространенного на сегодня разрешения 
1024х768. Свойство Роз оп (Положение) управляет размещением формы относи- 
тельно границ экрана. Значение по умолчанию ро0е$1дпед требует разместить форму 
так, как она была размещена на этапе конструирования, рекомендуемое значение 
ро5сгеепСет{ег — симметрично по центру экрана. 

Свойство АЙдп (Выравнивание) указывает способ выравнивания компонента 
относительно того контейнера, в котором он размещается. Контейнером называет- 
ся компонент, предназначенный для размещения в нем других компонентов. Пус- 
тая форма представляет собой контейнер для других компонентов. Таким же кон- 
тейнером является компонент Рапе(. Мы разместили на форме панель и для ее 
свойства АЙдп установили значение аВо от (Внизу). После установки этого зна- 
чения компонент (в данном случае — панель) прижимается к нижней границе фор- 
мы и растягивается по всей ее длине. Теперь панель и все размещенные на ней 
компоненты будут примыкать к нижнему краю окна, даже если окно разворачива- 
ется на весь экран. Если бы мы разместили поле ввода и кнопки не на панели, а не- 
посредственно на форме, они не имели бы свойства перемещения и оставались бы 
на своих местах при изменении размеров окна'. В результате значительная часть 
полностью развернутого окна осталась бы пустой и не использовалась. 

Свойство Сар оп ( Заголовок) присуще многим видимым элементам. Для пане- 
ли оно определяет текст, который размещается в ее центре. Поскольку мы не наме- 
рены размещать на панели никаких текстовых сообщений, это свойство у нее сле- 
дует очистить. 

Чтобы панель и расположенная над ней метка воспринимались как единое це- 
лое, в свойстве ВеуеОщег (Внешняя кромка) панели установлено значение Б\У№ пе 
(нет кромки). 

Свойства [ей (Слева), Тор (Сверху) и ММВ (Ширина) определяют положение 
левого верхнего угла компонента относительно такого же угла своего контейнера 
и его (компонента) ширину. Указанные в списке значения этих свойств для поля 
ввода обеспечат симметричное по горизонтали расположение поля относительно 
сторон восстановленного (неразвернутого) окна (если, разумеется, вы установили 
рекомендуемую ширину формы 696). К сожалению, симметрия будет нарушена, 
если окно развернется. В Бер есть средства изменения значений указанных 
свойств непосредственно в работающей программе. Создав обработчик события 
ОпВез12е (По изменению размера) для формы, мы при желании могли бы на- 
учить программу реагировать на изменение размеров окна и соответствующим 
образом изменять значение свойства [ей для строки ввода. 

Свойство Мате (Имя) определяет имя, под которым компонент будет известен 
программе. Я настоятельно рекомендую вам давать компонентам, на которые ссы- 
лается код программы, осмысленные имена вместо однотипных имен, которые 
«придумывает» Оеры. Более того, по принятому в современной практике про- 
граммирования стилю именам обычно предшествует двухбуквенный префикс. 
Заложенная в префиксе мнемоника служит напоминанием программисту о типе 
поименованного компонента или его свойства. Например, все возможные значе- 


' Насамом деле это не совсем так. Компонент действительно не будет перемещаться при стандартных 
(умалчиваемых) значениях его свойства АпсНог$. 
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ния свойства АЙдп имеют стандартный для Шер префикс а| (от Абдп), за кото- 
рым следует вполне понятное английское слово: а\Во от, аТор, аЩей и т. д. Поле 
ввода будет непременным участником кода большинства учебных программ, вот 
почему я предлагаю назвать этот компонент именем е]прш: префикс е4 — это со- 
кращение английского названия типа компонента Е@\, слово [при* означает ввод 
данных в программу. Такими же осмысленными являются предлагаемые имена 
для метки ({Б — от [аБе|, Ошёри( — вывод программы), многострочного поля (тт — 
от Мето), кнопки ОК (ББ — от ВИВ\п, Кип — пуск программы) и кнопки С(о5е. Панель 
вряд ли будет упоминаться в программном коде, который вы будете писать, поэто- 
му для нее можно оставить созданное Ое]рЫ умалчиваемое имя Рапе(1. 

Свойство Техё (Текст) у компонента ЕЧЁ определяет текст, который будет со- 
держать текстовое поле в момент появления на экране. Следует очистить это свой- 
ство, чтобы начальный текст не мешал вводу данных для программы. Точно так же 
следует очистить свойство Сар оп у метки и Ипе$ (Строки) у многострочного поля. 
Чтобы очистить свойство тт0иёриЁ.Ипез, щелкните в строке этого свойства в окне 
инспектора объектов и вызовите диалоговое окно изменения свойства. Затем уда- 
лите умалчиваемый текст Мето1 (или ттОшёрщ, если к этому моменту вы уже дали 
компоненту рекомендуемое имя) и закройте окно щелчком на кнопке ОК. 

Свойство 5$сгоЦВаг$ (Полосы прокрутки) у компонента ттОшёрш имеет значе- 
ние $$Во{1 (обе). Такое значение заставит Бер! поместить в компонент обе поло- 
сы прокрутки — вертикальную и горизонтальную. Наличие полос поможет вам 
увидеть текст, отсекаемый границами компонента. В то же время для свойства 
МогаМ/тар (Перенос слов) советую установить значение Га(5е, чтобы отказаться от 
переноса слов на другую строку многострочного поля в длинных текстовых сооб- 
щениях. Для этого компонента свойство Айдп имеет значение а([СПеп\, что потребу- 
ет откомпонента занять всю оставшуюся незаполненной часть формы независимо 
от размеров окна. 

Для компонентов В\В&п свойство Клпа (Сорт) определяет типовые функции, 
которые реализует кнопка в диалоговых окнах. Значение БКЦо$е определит типо- 
вой значок и надпись (105е, которые Ое|рЫ разместит на кнопке, а также типовую 
функцию закрытия окна, которая будет связана с этой кнопкой. В результате без 
малейших усилий с нашей стороны мы получили кнопку, которая завершает рабо- 
ту программы. Значение БКОК заставит кнопку В1В+п закрывать диалоговое окно 
с результатом тгОК. Поскольку наша форма не является диалоговым окном, кноп- 
ка ОК небудет выполнять эту свою функцию: мы использовали значение БКОК только 
для того, чтобы кнопка получила нужные значок и надпись. 


Перенос формы в хранилище 


После указанных выше изменений сохраните форму в файле с именем Ехатре 
в каталоге хранилища Деры. Этот каталог имеет имя ОБгеро$ и размещается в ка- 
талоге размещения Оеры (по умолчанию — с:\Ргодгат ЕЦе5\ВоЦапа\БефрН17). Хра- 
нилище Ое]рЬ! служит для накопления типовых форм и проектов. Использование 
типовых заготовок стандартизует вид окон и способствует формированию собствен- 
ного для программиста стиля оформления своих программных проектов. 
Перенос формы в каталог ОБ]теро$ еще не обеспечивает включение этой формы 
в хранилище. Чтобы вызвать диалоговое окно регистрации формы в хранилище 
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Рис. 4.2. Диалоговое окно регистрации формы в хранилище 


(рис. 4.2), щелкните на форме правой кнопкой мыши и в появившемся контекст- 
ном меню выберите команду Ад4 То Керо$оту. 

Не советую пользоваться командой Рго]есё ›» АЧА То Веро$1Я гу главного меню, так 
как в этом случае в хранилище будет добавлен проект, а не форма. Проекты из 
хранилища копируются целиком вместе с многочисленными родительскими клас- 
сами, что замедляет время создания нового проекта и приводит к неоправданным 
затратам дисковой памяти. 

В поле Пе введите имя формы 1тЕхатр(е, в поле ВезсирЯоп — пояснение, на- 
пример Прототип главной формы для учебной программы, раскройте список Раде 
и выберите в нем пункт ГЕогтз. Если хотите, укажите в поле Аш{Пог свою фамилию 
и закройте окно регистрации щелчком на кнопке ОК. Теперь форма зарегистриро- 
вана, и вы в любой момент сможете выбрать ее с помощью команды Ее › М№ем ›» О{Пег 
главного меню Оеры. Однако я предлагаю не успокаиваться на этом и определить 
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Рис. 4.3. Окно редактора хранилища 
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нашу форму как главную, тогда Оер при выборе команды Ее ›» №ем » АррИсаоп 
главного меню будет именно ее показывать вместо пустой типовой формы. Для 
этого с помощью команды 1005 » Керо$\огу вызовите диалоговое окно, показанное 
на рис. 4.3. 

В списке Раде$ этого окна щелкните на пункте Рюгт$ и разыщите в самом конце 
списка объектов ОБес5 нашу форму 1тЕхатр(е. Щелкните на ней, установите фла- 
жок Мат Гогт (Главная форма) и закройте окно щелчком на кнопке ОК. Когда нам 
в дальнейшем понадобится создавать проекты, основанные на стандартных пус- 
тых формах, вам потребуется вновь выбрать команду Тоо[5 » Кероз\оту и в открыв- 
шемся окне редактора хранилища снять флажок Мат Гогт. 

Чтобы убедиться в правильности ваших действий, закройте проект, ответив 
щелчком на кнопке № в ответ на предложение Ое|рЫ сохранить файл проекта, 
и выберите команду Ее ›» №ем > АррИсаНоп — на экране должна появится уже зна- 
комая нам форма учебной программы. 


Структура программ Берш 


Любая программа в Ое|рЫ! состоит из файла проекта (файл с расширением 4рг) 
и одного или нескольких модулей (файлы с расширениями раз). Каждый из таких 
файлов описывает программную единииу Оерны:. 


Структура проекта 


Файл проекта представляет собой программу, написанную на языке Оеры и пред- 
назначенную для обработки компилятором. Эта программа автоматически созда- 
ется Реары и содержит лишь несколько строк. Чтобы увидеть их, запустите ер 
и выберите команду Рго}ес › \Ме\ми боигсе в главном меню. ОерЫ покажет окно кода 
с вкладкой Рго]ес{1, содержащей такой текст: 


ргодгам Рго}ес®1; 


изе$ 
Когм$, 
01181 1п '00161.раз' {ЕтЕхатр1е}; 


{$В *.ВЕЗ]} 


Бед1п 
Арр]11са®е1оп.1п161а112е; 
Арр11са&1оп.СгеафеГогпм (ТЕмЕхапр1е, ЕтЕхапр]1е); 
Арр11сае1оп.Вип; 

епа. 


В окне кода жирным шрифтом выделяются так называемые зарезервирован- 
ные слова, а курсивом — комментарии (также выделяются зарезервированные слова 
и комментарии в книге). Как видим, текст программы начинается зарезервирован- 
ным словом ргодгам и заканчивается словом епа с точкой за ним. Замечу, что 
сочетание епа со следующей за ней точкой называется терминатором программ- 
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ной единицы: как только в тексте программы встретится такой терминатор, компи- 
лятор прекращает анализ программы и игнорирует оставшуюся часть текста. 

Зарезервированные слова играют важную роль в Оеры, придавая программе 
в целом свойство текста, написанного на почти естественном английском языке. 
Каждое зарезервированное слово (а их в ОерЫ несколько десятков) несет в себе 
условное сообщение для компилятора, который анализирует текст программы так 
же, как читаем его и мы: слева направо и сверху вниз. 

Комментарии, наоборот, ничего не значат для компилятора, и он их игнориру- 
ет. Комментарии важны для программиста, который с их помощью поясняет те 
или иные места программы. Наличие комментариев в тексте программы делает ее 
понятнее и позволяет легко вспомнить особенности реализации программы, кото- 
рую вы написали несколько лет назад. В ДерЫ! комментарием считается любая 
последовательность символов, заключенная в фигурные скобки. В приведенном 
выше тексте таких комментариев два, но следующая строка на самом деле не явля- 
ется комментарием: 


($К *.ВЕЗ}] 


Этот специальным образом написанный фрагмент кода называется директи- 
вой компилятора (в нашем случае — это указание компилятору на необходимость 
подключения к программе так называемого файла ресурсов). Директивы начина- 
ются символом $, который стоит сразу за открывающей фигурной скобкой. 

Поскольку речь зашла о комментариях, замечу, что в Ое|р|! в качестве ограни- 
чителей комментария могут также использоваться пары символов (*, *) и //. 
Скобки (*...*) используются подобно фигурным скобкам, то есть комментарием 
считается находящийся в них фрагмент текста, а символы / / указывают компиля- 
тору, что комментарий располагается за ними и продолжается до конца текущей 
строки: 


{ Это комментарий } 
(* Это тоже комментарий *) 
// Все символы до конца этой строки составляют комментарий 


Слово ргодгам со следующим за ним именем программы и точкой с запятой 
образуют заголовок программы. За заголовком следует раздел описаний, в котором 
программист (или Оерь!) описывает используемые в программе идентификато- 
ры. Идентификаторы обозначают элементы программы, такие как типы, перемен- 
ные, процедуры, функции (подробнее об элементах программы мы поговорим чуть 
позже). Здесь же с помощью предложения, которое начинается зарезервирован- 
ным словом чзез (используется) программист сообщает компилятору о тех фраг- 
ментах программы (модулях), которые необходимо рассматривать как неотъемле- 
мые составные части программы и которые располагаются в других файлах. 
Следующие строки указывают, что помимо файла проекта в программе должны 
использоваться модули Гогтз и 0п1 1: 


изе$ 
ЕКогм$, 
0п1$1 1п '0п161.раз' {ЕтЕхатр1е}; 
Модуль Гогтз является стандартным (то есть уже известным Оеры), а мо- 
дуль Чп1{1 — новым, ранее неизвестным, и Реры в этом случае указывает также 
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имя файла с текстом модуля (1п '0п181.раз') и имя связанного с модулем файла 
описания формы {ЕтЕхатр]е }. 

Собственно тело программы начинается со слова Ъед1п (начать) и ограничи- 
вается терминатором еп4 с точкой. Тело состоит из нескольких операторов языка 
Реры1. В каждом операторе реализуется некоторое действие — изменение значе- 
ния переменной, анализ результата вычисления, обращение к подпрограмме ит. п. 
В теле нашей программы — три исполняемых оператора: 


Арр11са®1оп.1п1%1а117е; 
Арр11са®1оп.Сгеа$еГогпм (ТЕпЕхатр1е, ЕмЕхапр1е); 
Арр11сае1оп.Воп; 


Каждый из них реализует обращение к одному из методов объекта Арр11- 
са 1оп. Я вынужден забежать вперед и хотя бы кратко пояснить только что вве- 
денные термины, которые определяют важные для Пер! понятия. Объектом на- 
зывается специальным образом оформленный фрагмент программы, заключающий 
в себе данные и подпрограммы для их обработки. Данные называются полями объ- 
екта, а подпрограммы — его методами. Объект в целом предназначен для решения 
какой-либо конкретной задачи и воспринимается в программе как неделимое це- 
лое (иными словами, нельзя из объекта «выдернуть» отдельное поле или метод). 
Объекты играют чрезвычайно важную роль в современных языках программиро- 
вания. Они придуманы для того, чтобы увеличить производительность труда про- 
граммиста и одновременно повысить качество разрабатываемых им программ. Два 
главных свойства объекта — функциональность и неделимость — делают его само- 
стоятельной или даже самодостаточной частью программы и позволяют легко пе- 
реносить объект из одной программы в другую. Разработчики Веры придумали 
для нас с вами сотни объектов, которые можно рассматривать как кирпичики, из 
которых программист строит многоэтажное здание программы. Такой принцип 
построения программ называется объектно-ориентированным программировани- 
ем (ООП). 

В объекте Арр11саЕ1оп собраны данные и подпрограммы, необходимые для 
нормального функционирования \/Л1т40о\$-программы в целом. Ое!рЬ! автомати- 
чески создает объект-программу Арр1 1саЕ1оп для каждого нового проекта. Сле- 
дующая строка означает обращение к методу 1п1Е1а1127е объекта Арр11са&1оп: 


Арр11са®1оп.1п1%1а117е; 


Прочитав эту строку, компилятор создаст код, который заставит процессор пе- 
рейти к выполнению некоторого фрагмента программы, написанного для нас раз- 
работчиками Реры. После выполнения этого фрагмента (программисты говорят: 
после выхода из подпрограммы) управление процессором перейдет к следующей 
строке программы, в которой вызывается метод СгеафеЕГогп и Т. д. 


ПРИМЕЧАНИЕ Метод Арр11сае1оп. 1п1%1а112е вызывается «на всякий случай»: 
в реальной программе он обычно ничего не делает. Его назначение — 
выполнить подпрограмму, имя которой размещается в системной пе- 
ременной Тп1 ЕРгос. В некоторых специальных случаях один из мо- 
дулей программы в своей инициирующей секции может присвоить 
переменной имя программы, которая должна выполняться сразу после 
загрузки всех модулей, но перед началом работы основной программы. 
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Метод СгеахеГогм объекта Арр11са%*1оп создает и показывает на экране окно 
главной формы, а метод Воп реализует бесконечный цикл получения и обработки 
поступающих от \/1140\5 сообщений о действиях пользователя. Когда пользова- 
тель щелкнет на кнопке (1озе, \/114о\з передаст программе специальное сообще- 
ние, которое, в конечном счете, заставит программу прекратить работу и освобо- 
дить назначенные ей системные ресурсы (память и процессор). 

Следует сказать, что файл проекта полностью формируется самой средой Ое|рь! 
и в большинстве случаев не предназначен для редактирования. Именно по этой 
причине файл проекта имеет особое расширение и обычно не виден в окне кода. 
При разработке сложных проектов этот файл можно использовать для выполне- 
ния некоторых специфических действий перед началом работы программы. 


Структура модуля 


Модули — это программные единицы, предназначенные для размещения отдель- 
ных частей программ. С помощью содержащегося в них программного кода реали- 
зуется вся поведенческая сторона программы. 

Любой модуль имеет следующую структуру!': 

1) заголовок; 

2) секция интерфейсных объявлений; 
3) секция реализаций; 

4) терминатор. 

Заголовок открывается зарезервированным словом ап1, за которым следует 
имя модуля и точка с запятой. Секция интерфейсных объявлений открывается 
зарезервированным словом 1пфегхасе, а секция реализаций — словом 1тр1е- 
пмепфа*1оп. Терминатором модуля, как и терминатором программы, является слово 
епа с точкой. Следующий фрагмент программы является синтаксически правиль- 
ным вариантом модуля: 


9016 0п1(1; 

1п$егЕасе 

// Секция интерфейсных объявлений 
1пр1етепва®1оп 

// Секция реализаций 

епа. 


В секции интерфейсных объявлений описываются программные элементы (ти- 
пы, классы, процедуры и функции), которые будут «видны» другим программным 
модулям, а в секции реализаций раскрывается механизм работы этих элементов. 
Разделение модуля на две секции обеспечивает удобный механизм обмена алго- 
ритмами между отдельными частями одной программы. Он также реализует сред- 
ство обмена программными разработками между отдельными программистами. 
Получив откомпилированный «посторонний» модуль, программист получает до- 
ступ только к его интерфейсной части, в которой, как уже говорилось, содержатся 
объявления элементов. Детали реализации объявленных процедур, функций, клас- 
сов скрыты в секции реализаций и недоступны другим модулям. 


' Более точное описание структуры модуля приводится в главе 11. 
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Перейдите на вкладку Цп\1 окна кода, и вы увидите такой текст: 


11016 0011; 
1п$егЕасе 


азе$ 
И1пАом$, Меззадез, $5у$0&11$, С1аз5ез, СгарН1с5$, Сопего]1$, 
Рогм$, 0О1а1049$, 56аСег15$, Ваееоп$, ЕхеСег15; 


фуре 
ТЕмЕхамр1е = с1аз$$ (ТЕГогп) 
Рапе]11: ТРапе]1; 
ЮБВоп: ТВ1ЕВЕП; 
БЬС1озе: ТВ1ЕВеп; 
еаТприе: ТЕазе; 
1Ю0йЕрае: ТЬаре1; 
птОпериае: ТМепо; 


рг1уаке 
{ РилуаЕе аес1агаё1оп$ } 
руЬ11с 
{ РиБ]11с аес]агаЕтоп$ } 
епа; 
уаг 


ЕтЕхапр1е: ТЕпЕхапмр1е; 
1пр1ептепфа®1оп 
{$6 *.ОЕМ} 


епа. 


Весь этот текст сформирован Пер, но, в отличие от файла проекта, програм- 
мист может его изменять, придавая программе нужную функциональность. 
В интерфейсной секции описан один тип (класс ТЕпЕхатр1е) и один объект 
(переменная ЕмЕхатр1е). 
Вот описание класса: 
фсуре 
ТЕМЕхатр1е = с1а$$ (ТЕогм) 
Рапе11: ТРапе]1; 
ЮБКоп: ТВУЕВЕП; 
ЮЬС1озе: ТВ1ЕВЕП; 
еаТприе: ТЕа1е; 
160о6рае: ТЬаре1; 
пиОйерае: ТМепо; 
рглуа%ее 
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{ РегуаЕе аес]агаё1топ$ } 
рчЬ11с 

{ РчЬ11с аес]агаЕ1оп$ } 
епа; 


“ 


Как мы увидим дальше, классы служат основным инструментом реализации 
мощных возможностей Оеры. Класс является образцом, по которому создаются 
объекты, и наоборот, объект — это экземпляр реализации класса. Образцы для со- 
здания элементов программы в Ое|рЫ называются типами, таким образом класс 
ТЕиЕхатр1е1 — это тип. Перед его объявлением стоит зарезервированное слово 
фуре (тип), извещающее компилятор о начале раздела описания типов. 

Стандартный класс ТРогм реализует все нужное для создания и функциониро- 
вания пустого окна программы. Класс ТЕмЕхапр1е1 порожден от этого класса, 
о чем свидетельствует строка: 


ТЕпЕхапр1е = с1азз (ТЕогп) 


В этой строке за зарезервированным словом с1азз в скобках указывается имя 
родительского класса. Термин «порожден» означает, что класс ТЕмЕхапр1е унас- 
ледовал все возможности родительского класса ТГоги и добавил к ним собствен- 
ные в виде дополнительных компонентов, которые, как вы помните, мы вставили 
в форму ЕпЕхапр1е. Перечень вставленных нами компонентов и составляет зна- 
чительную часть описания класса. 

Свойство наследования классами-потомками всех свойств родительского класса 
и обогащения их новыми возможностями является одним из фундаментальных 
принципов объектно-ориентированного программирования. От наследника может 
быть порожден новый наследник, который внесет свою лепту в виде дополнитель- 
ных программных заготовок и т. д. В результате создается ветвящаяся иерархия 
классов, на вершине которой располагается самый простой класс ТОБЗес® (все 
остальные классы в ОерЫ порождены от этого единственного прародителя), а на 
самой нижней ступени иерархии — мощные классы-потомки, которым по плечу 
решение любых проблем. 

Объект ЕпЕхатр1е формально относится к элементам программы, которые 
называются переменными. Вот почему перед объявлением объекта стоит зарезер- 
вированное слово уаг (от английского оапа Ме; — переменные). 


СОВЕТ Текст модуля доступен как ОерЫ, так и программисту. Ое]рЫ автоматически 
вставляет в текст модуля описание любого добавленного к форме компонента, 
а также создает заготовки для обработчиков событий; программист может до- 
бавлять свои методы в рансе объявленные классы, наполнять обработчики со- 
бытий конкретным содержанием, вставлять собственные переменные, типы, кон- 
станты и т. д. Совместное с Ое]рЫ владение текстом модуля окажется вполне 
успешным, если программист будет соблюдать простое правило: он не должен 
удалять или изменять строки, которые вставлены не им, а ОерЫ. 


Элементы программы 


Элементы программы — это минимальные неделимые ее части, имеющие опреде- 
ленное значение для компилятора. К элементам относятся: 
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— зарезервированные слова, 


* идентификаторы; 


® ТИПЫ; 


их 
ах 


константы, 

>) переменные; 
метки; 
 Подпрограммы; 


* комментарии. 

Зарезервированные слова — это английские слова, указывающие компилятору 
на необходимость выполнения определенных действий. Зарезервированные сло- 
ва не могут использоваться в программе ни для каких иных целей кроме тех, для 
которых они предназначены. Например, зарезервированное слово Ъед1.п означает 
для компилятора начало составного оператора. Программист не может создать 
в программе переменную с именем Бед:п, константу Бед2п, метку Бед:п или во- 
обще какой бы то ни было другой элемент программы с именем Ъед1.п. 

Идентификаторы — это слова, которыми программист обозначает любой дру- 
гой элемент программы, кроме зарезервированного слова, идентификатора или 
комментария. Идентификаторы в Ое|р могут состоять из латинских букв, араб- 
ских цифр и знака подчеркивания. Никакие другие символы или специальные зна- 
ки не могут входить в идентификатор. Из этого простого правила следует, что иден- 
тификаторы не могут состоять из нескольких слов (нельзя использовать пробел) 
или включать в себя символы кириллицы (русского алфавита). 

Типы — это специальные конструкции языка, которые рассматриваются ком- 
пилятором как образцы для создания других элементов программы, таких как пе- 
ременные, константы и функции. Любой тип определяет две важные для компи- 
лятора вещи: объем памяти, выделяемый для размещения элемента (константы, 
переменной или возвращаемого функцией результата), и набор допустимых дей- 
ствий, которые программист может совершать над элементами данного типа. За- 
мечу, что любой определяемый программистом идентификатор должен быть опи- 
сан в разделе описаний (перед началом исполняемых операторов). Это означает, 
что компилятор должен знать тот тип (образец), по которому создается определя- 
емый идентификатором элемент. 

Константы определяют области памяти, которые не могут изменять своего зна- 
чения в ходе работы программы. Как и любые другие элементы программы, кон- 
станты могут иметь свои собственные имена. Объявлению имен констант должно 
предшествовать зарезервированное слово сопз*+ (от английского соп5&ап{5 — кон- 
станты). Например, мы можем определить следующие константы: 


соп$е 
Круфе = 1024; 
Мрусе = Крубе*Круее; 


сруфе = 1024*МЬуее; 
Эти константы позволят вместо длинных чисел 1048576 (1024х1024) и 
1073741824 (1024х1024х1024) писать в тексте программы, соответственно, Мруке 
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и Сруее. Тип константы определяется способом ее записи и легко распознается 
компилятором в тексте программы, поэтому программист может не использовать 
именованные константы (то есть не объявлять их в программе явно). 

Переменные связаны с изменяемыми областями памяти, то есть с такими ее 
участками, содержимое которых будет меняться в ходе работы программы. В от- 
личие от констант, переменные всегда объявляются в программе. Для этого после 
идентификатора переменной ставится двоеточие и имя типа, по образу которого 
должна строиться переменная. Разделу объявления переменной (переменных) 
должно предшествовать слово уах. Например: 


уаг 
1пУа1ое: Тпфедег; 
руУа1ое: Ву%е; 


Здесь идентификатор 1пУа1ие объявляется как переменная типа Тпфедек, 
а идентификатор БуУа1ще — как переменная типа Ву%е. Стандартный (то есть за- 
ранее определенный в Оер}|:!) тип тпеедег задает четырехбайтовый участок па- 
мяти, содержимое которого рассматривается как целое число в диапазоне от 
—147 483 648 до +2 147 483 647, а стандартный тип Вуке — участок памяти длиной 
1 байт, в котором размещается беззнаковое целое число в диапазоне от 0 до 255. 

Метки — это имена операторов программы. Метки используются очень редко 
и только для того, чтобы программист смог указать компилятору, какой оператор 
программы должен выполнятся следующим. Метки, как и переменные, всегда 
объявляются в программе. Разделу объявлений меток предшествует зарезервиро- 
ванное слово 1аЪе1 (метка). Например: 


1аБе1 
Тоор; 
Бед1п 
дофео Гоор;// Программист требует передать управление 
// оператору, помеченному меткой Гоор. 
... // Эти операторы будут пропущены 
Тоор: // Оператору, идущему за этой меткой, 
... // будет передано управление 
еп; 


Подпрограммы — это специальным образом оформленные фрагменты програм- 
мы. Замечательной особенностью подпрограмм является их значительная незави- 
симость от остального текста программы. Говорят, что свойства подпрограммы 
локализуются в ее теле. Это означает, что если программист что-либо изменит в под- 
программе, ему, как правило, не понадобится в связи с этим изменять что-либо вне 
подпрограммы. Таким образом, подпрограммы являются средством структуриро- 
вания программ, то есть расчленения программ на ряд во многом независимых 
фрагментов. Структурирование неизбежно для крупных программных проектов, 
поэтому подпрограммы используются в программах на Ое|рН! очень часто. 

В Рары есть два сорта подпрограмм: процедуры и функции. Функция отлича- 
ется от процедуры только тем, что ее идентификатор можно наряду с константами 


Типы 69 


и переменными использовать в выражениях, так как функция имеет выходной ре- 
зультат определенного типа. Пусть, например, определена функция: 


Еапсе1оп МуРГипсе1оп: Тпеедег; 
Кроме того, пусть определена переменная: 


уаг 
Хх: Трсеаег; 


Тогда возможен такой оператор присваивания: 

Х := 2*МуЕопс®10оп-1; 

Имя процедуры нельзя использовать в выражении, так как процедура не имеет 
связанного с нею результата: 


Ргосеаиге МуРгоседоге; 


Х := 2*МуРгосеаоге-1; // Ошибка! 


Типы 


Типы в Ое]р! играют огромную роль. Связано это с тем, что лежащий в основе 
языка ОерЬ язык Разса! был специально придуман как средство обучения сту- 
дентов программированию. Поскольку начинающий программист легко может 
допустить ошибку или неточно описать свои действия, компилятор Разса| должен 
был иметь средства контроля за действиями программиста, чтобы вовремя предо- 
стеречь его от последствий неверных действий. Первоначально типы как раз и пред- 
назначались для того, чтобы программист явно указывал компилятору, какого раз- 
мера память нужна ему в программе и что он собирается делать с этой памятью. 
Практика применения типов показала их высокую эффективность для защиты 
программы от случайных ошибок, так что практически все современные языки 
программирования в той или иной степени реализуют механизм типов. В Оеры 
значение типов возросло в еще большей степени, так как с их помощью определя- 
ются классы — основной инструмент программиста. 


Строковый и символьный типы 


Свое знакомство с типами мы начнем со строкового типа $&г1п9. Этот тип опре- 
деляет участок памяти переменной длины, каждый байт которого содержит один 
символ. Для символов в ОерЬ! используется тип Сваг, таким образом, тип 
ЗЕх1п4а — это цепочка следующих друг за другом символов типа Свак. Каждый 
символ в $&г1па пронумерован, причем первый символ имеет номер 1. Програм- 
мист может обращаться к любому символу строки, указывая его порядковый но- 
мер в квадратных скобках сразу за именем переменной: 


уаг // Начало раздела описания переменных 
5: $51149; // Объявление переменной строкового типа 
Ьед1п // Начало раздела исполняемых операторов 
5 := 'Строка символов'; // Переменная $ содержит 


// значение ”Строка символов” 
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$[6] := \'и'!; // Теперь переменная содержит 
// значение ”Строки символов” 
епа; // Конец раздела исполняемых операторов 


Наличие комментариев избавляет меня от необходимости подробного описа- 
ния назначения каждой строки текста. Напомню, что программист обязан объя- 
вить любой вводимый им идентификатор. Идентификатор $ неизвестен Пер — 
он введен нами для переменной строкового типа. После его объявления в разделе 
переменных Пе|рЬ! выделит для него начальную область памяти минимальной 
длины и будет контролировать использование этого идентификатора в разделе 
исполняемых операторов. Например, пусть в разделе исполняемых операторов 
встретилось следующее выражение: 

2*5-1 

Компилятор сразу забьет тревогу, так как строка не может быть участником мате- 
матических вычислений: она предназначена для хранения символов, а не чисел. 

В первом операторе присваивания в переменную $ будет помещено значение 
строковой константы 'Строка символов'. Строковые константы содержат про- 
извольные символы, заключенные в обрамляющие апострофы, причем сами апо- 
строфы не входят в значение константы, поэтому после присваивания переменная 
примет значение Строка символов без апострофов. Если понадобится включить 
в текстовую константу апостроф, он удваивается: 'Символ '' — это апо- 
строф'. После первого присваивания $ будет занимать участок памяти длиной 
15 байт — по одному байту на каждый символ значения'. Переменность размера 
области памяти, выделяемой для размещения строки символов, — характерная 
особенность типа $+х1п9. Пусть, например, во втором операторе мы обратились 
бы нек 6-му по счету символу, а ко всей строке в целом: 


5 := 'и!; 

Тогда эта переменная стала бы занимать 1 байт, а следующие за ним 14 байтов 
оказались бы свободными. Длина строковой переменной в программе меняется 
автоматически при каждом присваивании переменной нового значения и может 
составлять от 0 до 2 Гбайт. 

Над строковым типом определена операция сцепления (+): 


5 := '0ОБ)]есе'+' Разса1'; // $ содержит "ОБдесЕ Разса1" 
Кроме того, строки можно сравнивать с помощью таких операций отношения: 
„! = — равно; 


‚„ <> — Не равно; 


нЕ > — больше; 
" >= — больше или равно; 


и, < — Меньше; 


„› <= — меньше или равно. 


' Насамом деле переменная строкового типа всегда имеет длину 4 байта, которые используются для 
указания на область памяти, в которой помещается сама строка символов. Подробнее о механизме 
использования памяти строковыми переменными см. главу 6. 
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ПРИМЕЧАНИЕ Символы <>, <= и >= пишутся слитно, их нельзя разделять пробелами 
или комментариями. 


Результат применения операции сравнения к двум строкам имеет логический 
тип, который характеризуется двумя возможными значениям: Тгое (Истина; чи- 
тается тру) и Ка1зе (Ложь; читается фолс). Строки сравниваются побайтно, сле- 
ва направо; каждая пара символов сравнивается в соответствии с их внутренней 
кодировкой (см. главу 6). 

Все остальные действия над строками осуществляются с помощью нескольких 
стандартных для ОерЫ! подпрограмм, описанных в главе 6. 

Создадим программу, в которой текст из однострочного поля е при будет ко- 
пироваться без изменений в метку БОцёрш и многострочное поле ттдшёрш. Для 
этого загрузите еры и выберите команду Ее » М№ем » АррИсаНоп. 


СОВЕТ Как упоминалось в главе 2, имеет смысл для каждой учебной программы созда- 
вать свой вложенный каталог и размещать в нем все связанные с программой 
файлы. Если вы еще не сделали этого, сверните окно Ое|рЫ и создайте с помощью 
Проводника вложенный каталог СОРУТХТ в каталоге для ваших учебных программ. 
В дальнейшем я не буду напоминать вам о необходимости создания вложенных 
каталогов, однако помните, что если вы не будете этого делать, очень скоро ваш 
учебный каталог станет представлять собой хаотическое нагромождение никак 
не связанных друг с другом файлов. 


Чтобы сообщить программе о том, что в поле е91при( подготовлен текст, пользо- 
ватель должен щелкнуть на кнопке ББКип, поэтому все необходимые действия мы 
сосредоточим в обработчике события ОпС1 1ск этой кнопки. Дважды щелкните на 
кнопке ББКип в окне формы, чтобы среда Пер! автоматически подготовила для 
вас заголовок обработчика события, и отредактируйте его следующим образом: 


ргосеаиге ТЕпЕхатр1е.5ЬВопС11сК (бепаег: ТОр)ес®); 


Ъед1п 
1р0Ерае.СарЕ1оп := еЯТприе.Техе; // Повторяем текст в метке 
пиОцерие.ТЪ1пез.Ада (е4ЯТпри*.Тех*); // и в многострочном поле 
еЯТпри*.Тех® := '!; // Очищаем однострочное поле 
еЯТпра®.5ееГосоз; // Передаем ему фокус ввода 
епа; 


Нажмите клавишу [9 для прогона программы, сохраните модуль под именем 
СоруТхЕЦ.ра$, а проект в целом — под именем СоруТх{.арг и вы увидите окно, пока- 
занное на рис. 4.4. 

Вводимый текст хранится в свойстве Тех компонента еЧ]при*. После выполне- 
ния первого оператора присваивания он будет перенесен в свойство СарЯоп ком- 
понента (БОцёри+ и тут же появится на экране над полем ввода. 

Многострочное поле тт0и{ёри* способно сохранять и отображать на экране мно- 
жество строк. Все они содержатся в его свойстве Ипез$, относящемся к классу 
Т$Ег1па11$% (подробнее об этом классе см. главу 13). Метод АЗа класса 
Т5Е:11п91.1 3% добавляет новую строку к имеющемуся в свойстве Ипез набору строк. 
Добавленная с помощью второго оператора строка тут же отображается на экране. 
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{Эта программма вводит текст в поле ввода им 
и затем повторяет его в метке и многострочном редакторе 
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Рис. 4.4. Окно программы СоруТж{ 


С помощью следующего оператора строка ввода очищается и подготавливается 
К вводу нового текста: 


еЯТпра®.ТехЕе := ''; 


Двойной апостроф в правой части оператора означает «пустую» строку или, 
что то же, строку нулевой длины. 
Завершает обработчик оператор: 


еЧаТприе .зЗееЕГосиз; 


С помощью этого оператора поле епри* получает фокус ввода. Термином «фо- 
кус ввода» в Ре|рБ! фактически обозначается клавиатура. «Получить фокус ввода» 
означает связать указанный компонент с клавиатурой. В окне программы может 
быть несколько компонентов, способных принимать и обрабатывать клавиатур- 
ный ввод (в нашей программе таких компонентов четыре: многострочное поле 
ттОиц{риф, поле е при и кнопки ББКип и 56 озе). Каждый из таких компонентов 
имеет метод беЕГосиз, с помощью которого программа может передать компо- 
ненту контроль над клавиатурой. Чтобы оценить действия, реализуемые операто- 
ром еаТпруие . беёГосаз, поставьте в самом начале оператора признак коммента- 
рия (символы / / ), сделайте новый прогон программы и введите с ее помощью хотя 
бы 2-3 строки. 

_ Замечу, что в момент появления окна программы на экране поле е 1при{ не имеет 
фокуса ввода, что затрудняет ввод первой строки. Попробуйте самостоятельно со- 
здать обработчик события ОпАс+1уахе для формы ЯтЕхатр(е и в нем установить 
фокус ввода для строки е ЧТ при\. 
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СОВЕТ — Раскройте список в верхней части окна инспектора объектов, выберите в нем 
компонент #тЕхатр(е и дважды щелкните на правой колонке свойства ОпАсНуа{е 
на вкладке Еуеп{$ этого окна. | 


Целые типы 


Целые типы используются для хранения и преобразования целых чисел. В Беры 
предусмотрено несколько целочисленных типов, отличающихся диапазоном воз- 
можных значений. В этой главе мы будем использовать тип Тпфедег, занимаю- 
щий в памяти 4 смежных байта и предназначенный для хранения целых чисел 
в диапазоне от —2 147 483 648 до +2 147 483 647. Более полные сведения о целых 
типах вы найдете в главе 6. 

Над целыми числами определены следующие математические операции: 


„" + — сложение, 


"т — — ВЫЧИТАание; 


‚. х — умножение; 


\\ @1у — деление с отбрасыванием остатка; 


Спецификой деления является то обстоятельство, что результат может иметь 
дробный вид: '/„, 23/; и т. п. Для хранения дробных чисел в Ое!рЫ используются 
вещественные типы (см. главу 6), вот почему в языке поддерживаются целых две 
операции деления (4931 и моя): 


уаг 
Х,Уу: ТрЕедег; 

Ъед1п 
Х := 5 ау 2; //Х содержит 2 
У := 5 моа 2; // У содержит 1 

епа; 


Смысл остальных операций совпадает с общепринятым математическим, за тем 
исключением, что результат не должен выходить из диапазона возможных значе- 
ний целого типа: 


уаг 
Хх; Тпсеаекг; 
Бед1п 
Х := 2147483647; | 
Хх := Х+ 1; // Ошибка! Результат +2 147 483 648 выходит 
// из допустимого диапазона 
епа; 


Как и к строкам, к целым числам применимы операции сравнения. 

Создадим программу, в которой пользователь вводит два целых числа, а про- 
грамма вычисляет и показывает их произведение. В этой программе мы также по- 
знакомимся с преобразованием типов. На рис. 4.5 показано окно работающей про- 
граммы. 
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Н -ый операнд: 123 
| 2-ой операнд: 234 
Результат: 123 * 234 = 28782 


Рис. 4.5. Окно программы Ми т 


Прежде всего обсудим две проблемы, связанные с реализацией программы: 
"” как известить программу о вводе каждого из операндов; 


} что будет, если пользователь подготовит неверную запись целого числа (на- 
пример, «12.3»). 


Суть первой проблемы состоит в том, что подготовленная нами учебная форма 
{тЕхатр(е имеет только одно поле ввода е4Тпри и одну кнопку ББКип (кнопка Ь5С(ю$е 
используется для прекращения работы программы и эту ее функциональность из- 
менять не следует). Мы могли бы написать программу, которая вводит строку вро- 
де2 * Зи после анализа строки выводит результат. Однако логика анализа суще- 
ственно перегрузит программу и потребует использования в ней средств, с которыми 
мы пока не знакомы. Значительно проще вставить в форму еще одну кнопку. Тог- 
да щелчок на первой кнопке будет сигналом о том, что в строке ввода подготовлен 
первый операнд, а щелчок на второй — что готов второй операнд и можно вычис- 
лять результат. В этом варианте следует предусмотреть случай, когда щелчок на 
второй кнопке будет предшествовать щелчку на первой, и программа будет вычис- 
лять выражение с неопределенным первым операндом. Решение этой дополнитель- 
ной проблемы состоит в том, чтобы сделать вторую кнопку недоступной или даже 
невидимой до тех пор, пока не будет введен первый операнд. 

Подводя итог, я предлагаю поместить на форму 1тЕхатр(е новую кнопку ВИВ{п 
(вкладка АЧЧ! опа! галереи компонентов) так, чтобы она полностью закрыла собой 
имеющуюся кнопку ЬБКип, назвать новую кнопку ББКези (свойство Мате), уста- 
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новить для нее сорт (свойство Кпа) БКОК и сделать ее временно невидимой (поме- 
стить в свойство \1$1Ые значение Га(5е). После такой подготовки в момент начала 
работы новая кнопка не будет видна и не помешает пользователю щелкнуть на 
кнопке БЪКип. В обработчике события ББВипСИск следует спрятать кнопку ББКип 
и показать кнопку ББКезий, чтобы пользователь смог подтвердить ввод второго опе- 
ранда. Сделайте необходимые изменения формы для нового проекта, а я пока пе- 
рейду к обсуждению второй проблемы. 

Суть второй проблемы заключается в том, что пользователь может случайно 
или преднамеренно ввести строку, которая не содержит правильного представле- 
ния целого числа. Преобразование такой строки к целому числу может привести 
к аварийному завершению работы программы. Существует множество способов 
решения этой проблемы, я предлагаю наиболее простой: заменить обычное одно- 
строчное текстовое поле е@при{ специализированным, способным контролировать 
ввод пользователя. Удалите из формы поле е при! (щелкните на нем мышью и на- 
жмите клавишу Ое|е{е) и поместите на его место компонент МазКЕЧ\ (вкладка 
Аа опа(). Дайте ему прежнее имя е три (свойство Мате) и раскройте диалого- 
вое окно свойства Е@\МазкК (рис. 4.6). Это свойство позволяет указать маску ком- 
понента, то есть определить, какие символы и в какой последовательности может 
набирать пользователь в поле. 


--. затре МазК$: и Л р: 
В (415}555-1212 
А 15450 
Скагасиег и В аикз: >| 1505 555-55-5555 
А ааа 054 


Г? Зауе Дега Сраасе = опо2 90504-0000 
По г 06.27.34 
09:05:15РМ 


Вой Тите 


Рис. 4.6. Окно определения маски компонента МазКЕаи 


В поле [приЁ МазК введите следующую последовательность символов: 
#99999999;1; 


В поле СПагас*ег Гог В!апК$ вместо умалчиваемого символа-заполнителя, кото- 
рым является символ подчеркивания (_), укажите пробел и закройте окно щелч- 
ком на кнопке ОК. Сформированная нами маска заставит компонент автоматиче- 
ски контролировать ввод пользователя и отвергать любые символы, кроме знака + 
или -— в первой позиции (элемент маски «#») и цифр в остальных (элементы «9»). 

Теперь все готово к кодированию программы. 

Дважды щелкните на кнопке ББКезш и введите такой код для обработчика со- 
бытия ОпС1 1скК этой кнопки: 


ргосеааге ТЕпЕхапр1е.5ЮКези1%С11скК (бепаег: ТОрЗес®); 
// Обработка ввода 2-го операнда 
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Бед1п 
// Преобразуем текст из еЯТприЕЁ в целое число: 
У := СЕГТоТп& (Тг1м (еаТпрае.Тех®)); 


// Сообщаем в Мето о вводе 2-го операнда: 
пиОцерие. Ь1пе$.Ааа ('2-ой операнд: '+еЧТпра®.Тех®); 
// Вычисляем и показываем результат: 
пмОцероае.Ь1пез .Ааа ('Результат: '+ 


ТрЕТобех (Х)+' * '+Т17ЕТобЕг (У)+' = '+ТоЕТобег (Х*У) ); 
еаТпра®.Техе := '!; // Очищаем поле ввода 
еаТпрае .5ееГосиз; // и возвращаем ему 

фокус 
160цЕрчае.СарЕ1оп := 'Введите 1-й операнд:!; 
рЮвези1е.Нлае; // Прячем кнопку ЬЬВези1 Е 
БЬВоп. 5 Бои; // и показываем ЬЬКип 
епа; 


Для ввода обработчика события ОпС11ск кнопки ББКип нужно сначала с по- 
мощью списка в верхней части окна инспектора объектов отыскать и выбрать ком- 
понент ББКип (напомню, он полностью закрыт кнопкой ББВези*), затем дважды 
щелкнуть на правом столбце строки ОпСИСК на вкладке Е\уеп$ и ввести такой код: 


ргосеаиге ТЕпЕхаптр1е.55КопС11скК (беп4ег: ТОБ)ес®); 
// Обработка ввода 1-го операнда 


Бед1п 
// Преобразуем текст из еаТприЕ в целое число 
Х := ЗЕгТотТпе (Тглм (еаТпри®.Техе)); 


// Сообщаем в Мето о вводе 1-го операнда 
пмОс риф. Т1пе$.АаЧа ('1-ый операнд: '+еЧТпроае.Тех®); 


е4Тпри*.Техе := !!; // Очищаем поле ввода 
еаТпри® .зееРосцз; // и возвращаем ему фокус 
1рОцЕрае.Саре1оп := 'Введите 2-й операнд:'; 
ЮБВези1&.5ром; // Показываем кнопку 
ЬЬКези] Е | 
ЮБВип .Н1ае; // и прячем ЬБКип 
епа; 


_ Осталось передать фокус ввода компоненту е при в момент старта програм- 
мы и определить переменные Х и У для хранения операндов. Разыщите в самом 
начале окна кода программы описание класса ТЕпЕхатр1е и отредактируйте его 
следующим образом: 


рглуаке 
{ РглуаЕе аес]1агаЕ1оп$ } 
Хх, У: Тпеедег; 
Затем с помощью списка в окне инспектора объектов выберите форму #тЕхатр/е 


и после двойного щелчка на строке ОпАсйуае вкладки Е\уеп%5 введите такой обра- 
ботчик события: 


ргосеамге ТЕпЕхапр1е.ЕГогпАсЕ1уаее (бепаег: ТОр)есЕе); 
// Подготовка к началу работы 
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Беда п 
еЯТпрае.беЕГосиз$; // Передаем фокус ввода полю еаТприё 
160й&рие.СарЕ1оп := "Введите 1-й операнд:'; 

епа; 


С помощью следующих строк мы определили в классе ТЕпЕхатр1е две цело- 
численные переменные Х и \: 


ргзуа®е 
{ РилуаЕе аес]1агаётоп$ } 
Хх, У: ТпЕедег; 


После определения переменные становятся доступны любым методам этого 
класса, в том числе обработчикам событий ОпС1 1 ск. Такого рода переменные (их 
называют полями класса) облегчают взаимодействие методов друг с другом. В на- 
шем случае необходимость в них возникла по той причине, что первый операнд 
(переменная Х) вводится в одном методе (Б5ВопС11скК), а используется в другом 
(ЮЮКези1ЕС11ск). 

Оба обработчика событий ОпС11скК содержат почти одинаковые операторы. 
В начале каждого обработчика стоит оператор присваивания, в правой части кото- 
рого содержится выражение: 


ЗЕгТоТпЕ (Тгли (еЯТпри®.Техф)) 


Это выражение состоит из вызова стандартных для ОерЫ! функций: сначала 
вызывается функция Тг1., которая возвращает строку-аргумент (в нашем случае 
еЯТпрок .Техк) без обрамляющих ее (то есть ведущих и ведомых) пробелов; за- 
тем с помощью вызова $+гТоТп+ строка символов преобразуется к целому числу. 

Функция преобразования $Е гТоТп{ очень чувствительна к возможным ошиб- 
кам символьного представления целого числа. Большая часть возможных ошибок 
в нашей программе блокируется фильтрующими возможностями поля МазКЕЧИ 
и функцией Тг1м. Программа аварийно завершится, если при щелчке на кнопке 
ЬБКип или ББКези текстовое поле не содержит текста. Чтобы избежать этого, пе- 
ред вызовом 5 хТоТп® вставьте следующий фрагмент: 


1Е еаТпрое.ТехЕе = '' &Беп Ех1С; 


Этот оператор прекращает дальнейшую работу обработчика в случае, если в поле 
ввода е@при\ нет текста. 

Методы $пом и Н1Ае компонентов-кнопок соответственно показывают или 
прячут компонент. Спрятанный компонент никак не участвует во взаимодействии 
с пользователем. 


Операторы языка 


С одним из наиболее часто используемых операторов языка Ое!рЬ1 — оператором 
присваивания — мы уже познакомились. Ниже рассматриваются остальные опе- 
раторы. 


Составной оператор и пустой оператор 


Составной оператор — это последовательность произвольных операторов програм- 
мы, заключенная в операторные скобки — зарезервированные слова Ъед1.п и епа. 
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Составные операторы — важный инструмент Ое|ры, дающий возможность писать 
программы по современной технологии структурного программирования (без опе- 
раторов перехода до®о). 

Пе]рЬ! не накладывает никаких ограничений на характер операторов, входя- 
щих в составной оператор. Среди них могут быть и другие составные операторы — 
язык ОерЫ! допускает произвольную глубину их вложенности: 

Бед1п 

Бед1п 


Бед1п 


Фактически, весь раздел операторов, обрамленный словами Ъед1п иепа, пред- 
ставляет собой один составной оператор. Поскольку зарезервированное слово еп 
является закрывающей операторной скобкой, оно одновременно указывает и на 
конец предыдущего оператора, поэтому ставить перед ним символ точки с запятой 
(;) не обязательно. Наличие точки с запятой перед епа в предыдущих примерах 
означало, что между последним оператором и операторной скобкой еп распола- 
гается пустой оператор. Пустой оператор не выполняет никаких действий, просто 
в программу добавляется лишняя точка с запятой. В основном пустой оператор 
используется для передачи управления в конец составного оператора: как и любой 
другой, пустой оператор может быть помечен, и ему можно передать управление. 


Условный оператор 


Условный оператор позволяет проверить некоторое условие и в зависимости от 
результатов проверки выполнить то или иное действие. Таким образом, условный 
оператор — это средство ветвления вычислительного процесса. 

Структура условного оператора имеет следующий вид: 


1Е <условие> ЕВеп <оператор!1> е1зе <оператор2>; 


Здесь 1, ЕЪеп, е1 зе — зарезервированные слова (если, то, иначе); <условие> — 
произвольное выражение логического типа; <оператор1>, <оператор2> — ЛЮ- 
бые операторы языка ОерЬ!. 


ПРИМЕЧАНИЕ После оператора <оператор1> ставить признак конца оператора (сим- 
вол точки с запятой) нельзя, если следом за ним идет зарезервирован- 
ное слово е1 зе. 


Условный оператор работает по следующему алгоритму. Вначале вычисляется 
условное выражение <условие>. Если результат есть Тгце (истина), то выпол- 
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няется <оператор1>, а <оператор2> пропускается; если результат есть Га]15е 
(ложь), наоборот, <оператор1> пропускается, а выполняется <оператор2>. На- 
пример: 
уаг 
Хх, У, Мах: Тпъсеазег; 
Бед1п 


1Е Х > Мах %&ЪБеп 


У := Мах 
е]1зе 
У := Хх; 


При выполнении этого фрагмента переменная У получит значение переменной 
Х, если только это значение не превышает Мах, в противном случае У станет равно 
Мах. 

Условными называются выражения, имеющие одно из двух возможных значе- 
ний: истина или ложь. Такие выражения чаще всего получаются при сравнении 
переменных в операциях отношения =, <>, >, >=, <, <=. Сложные логические выра- 
жения составляются с использованием логических операций апа (логическое И), 
ог (логическое ИЛИ) и по* (логическое НЕ). Например: 


1Е (а > Ь) апа (Ъ <> 0) %Ъеп 


ВНИМАНИЕ В отличие от большинства других языков программирования, в Пер 
приоритет операций отношения меньше, чем у логических операций, по- 
этому отдельные составные части сложного логического выражения за- 
ключаются в скобки. Например, такая запись предыдущего оператора бу- 
дет неверной: 

131Е а > Ь апа Ь <> 0 +Веп ... // Ошибка! 


Так как фактически (с учетом приоритета операций) компилятор будет 
транслировать такую строку: 


1Е а > (5 апа Ь) <> 0 &епт 


Частье1зе <оператор2> условного оператора может быть опущена. Тогда при 
значении Тгие условного выражения выполняется <оператор1>, в противном 
случае этот оператор пропускается: 


\аг 
Х, У, Мах: Тпеедег; 
Бед1п 
1Е Х > Мах &Веп 
Мах :=Х; 
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Вэтом примере переменная У всегда будет иметь значение переменной Х,ав Мах 
запоминается максимальное значение Х. 

Поскольку любой из операторов <оператор1> и <оператор2> может быть 
любым, в том числе и условным, а в то же время не каждый из «вложенных» услов- 
ных операторов может иметь часть е1 зе <оператор2>, то возникает неоднознач- 
ность трактовки условий. Эта неоднозначность в Ое|рЬ! решается следующим об- 
разом: любая встретившаяся часть е1 зе соответствует ближайшей к ней сверху 
по тексту программы части Ъеп условного оператора. Например: 


уаг 
а, Ю,с,а : Тпседег; 
Беда п 
а := 1; 
Ь :=2; 
с := 3; 
Я := 4; 
1Е а < Ь еп // Да 
1Е с <а еп // Да 
1Е с < 0 епт // Нет 
с :=0 // Этот оператор не 
выполняется 
е1зе 
а := Ь; // а равно 2 
1Е а < Ь еп // Да 
1Е с < а еп // Да 
1Е с < 0 ет // Нет 
с := 0 // с равно 0 
е15е И/ ЕС < 0 
е1зе /И/ 1ЕС <а 
е15е // 1Еа <Ь 
а := Б; // Этот оператор не 
выполняется 
епа; 


Создадим игру «Угадай число»: программа случайным образом выбирает це- 
лое число в диапазоне 0...1000 и запоминает его; пользователь пытается угадать 
его, вводя свое число. Сравнив ввод с запомненным числом, программа сообщает 
больше, меньше или равно введенное число запомненному. Ввод продолжается до 
угадывания, после чего программа предлагает сыграть еще раз. 

Поскольку пользователь вводит только числа, изменим форму #тЕхатрЁ: как 
и впредыдущей программе МОГТТ\УТ вместо компонента е при типа ТЕЧ" поме- 
стим на форму одноименный компонент типа ТМа$КЕа®. Выберите команду Ее › 
Мем › АррИсаНоп, щелкните на компоненте е4Тпри и удалите его с помощью клави- 
ши Ое|е{е, затем поместите на его место компонент МазКЕЧИ (вкладка АЗ опа|), 
назовите его епри* (свойство Мате) и в его свойство ЕЙМазК поместите строку: 


0999;1; 


Операторы языка 81 


В секцию рг1уаее описания класса ЕтЕхатр1е поместите объявление цело- 
численного поля Х: 


ргалуа®е 

{ РхглуаЕе аес1агаётоп$ } 

Х: Тоседекгк; 
Для обработчика события ОпАсе1уаке формы #тЕхатр(е напишите такой код: 
ргосе4иге ТЕпЕхапр]1е.ЕГогмАсе1уафе (бепаег: ТОБ)ес®); 


Бед1п 
Х := Вапаом (1001); // Загадываем случайное число 
еЯТпрае .ЗееГосцз; // Передаем полю еаТприЕ фокус ввода 
СарЕ1оп := 'Угадай целое число в диапазоне 0...1000'; 
160%0Ероае.СарЕезоп := "Введите число:!; 

еп; 


Поместите в обработчик события Опс11 ск кнопки ЫБКип такой код: 


ргосеамге ТЕпЕхаптр1е.5ЬКипС11ск (5еп4ег: ТОБ)ес®); 
уаг 


У: Тоседег; 
Бед1п | 
1Е еаТприа®.ТехЕ = '' &Беп 
Ех1; // Если нет входного текста, прекращаем работу 
// Преобразуем ввод в число: 
У := ЗЕгТотТае (Тглм (еаТпрое.Тех®)); 
еЧ4Тпрае.Техе := ''; // Очищаем поле ввода 
еЯТприе .бееГосиз; // Устанавливаем фокус ввода 
{ Параметр Тад = 0 означает угадывание числа, иначе - 


ответ на вопрос, будет ли пользователь играть после 
угадывания } 
1Е Таа = 0 &Ъеп 
1Е Х < У епт // Угадывание числа 
шиОперие. .1пез.Ааа('Х < '+1ТлеТоЗЕг (У) ) 
е1зе 12 Х > У еп 
пиОперое.Т1пе$.Ааа ('Х > '+1ТпЕТо5ег (У) ) 


е1зе ИИХ=У 
Бед1п 
ппОцерие. Ь1пе$.Ааа ('Х = '+ТпЕТоЗег (У)); 


МеззадеВеер (МВ ОК); // Звук для привлечения внимания 
1Ю0цЕрое.Саре1оп := 


'Вы угадали! Введите 1, если хотите повторить: '; 


Тач := 1; // Следующий ввод - ответ на вопрос 
епа 
е1зе // Анализ ответа 
1Е У = 1 епт 
Бед1п 


Х := Вапаом (1001); // Новое число 
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160оЕрие.СарЕ1оп := 'Введите число:'; 
Таз := 0; // Следующий ввод - угадывание 
еаТпрое.бееЕГоса$ 
епа е1зе 
С1озе; 


епЯ; 


При активизации окна программы обработчик ЕКогтАс& 1уаке с помощью сле- 
дующего оператора помещает в поле Х случайное целое число в диапазоне от 0 до 
1001 — 1 = 1000 (параметр обращения к генератору псевдослучайных чисел Вапдом 
на единицу больше верхней границы диапазона): 


Х := Капаоп (1001); 


Каждый компонент Ое]рЫ! имеет целочисленное свойство Тад, которым про- 
граммист может распоряжаться по своему усмотрению. Программа использует это 
свойство формы ЯтЕхатр(е для разделения алгоритма обработки события ОпС11 ск 
кнопки ЬБКилп на два варианта: пользователь угадывает число (Таз = 0)или отве- 
чает на предложение сыграть еще раз (Таз = 1). В момент создания экземпляра 
класса ТЕмЕхтр1е — объекта ЕмЕхапр1е — все его поля обнуляются, поэтому 
первоначально Таз = 0, и программа анализирует угадывание числа. При угады- 
вании срабатывает составной оператор: 


Бед1п 
птОцерие.Т1пез.Ааа('Х = '+1пЕТоЗеЕг (У)); 
МеззадеВеер (МВ_ОК); // Звук для привлечения внимания 


16О0цЕрчае.Саре1оп := 
'Вы угадали! Введите 1, если хотите повторить: '; 
Таа := 1; // Следующий ввод - ответ на вопрос 
епа 


После этого Таз получает значение 1 (стандартная процедура МеззадеВеер 
заставляет звуковую систему ПК издать короткий звуковой сигнал). Теперь оче- 
редной щелчок на кнопке ЬБКип будет означать, что пользователь подготовил от- 
вет на вопрос, и программа анализирует его. Если пользователь ввел число, отлич- 
ное от 1, произойдет обращение к методу С1озе формы ЕтЕхапр1е и программа 
прекратит работу. 


Операторы повторений 


В языке Ое!р[] имеются три различных оператора, с помощью которых можно за- 
программировать повторяющиеся фрагменты программ. 
Счетный оператор цикла Еог имеет такую структуру: 


ог <параметр цикла> := <нач_знач> о <кон _знач> 
Чо <оператор>; 


Здесь Фох, Фо, 4о — зарезервированные слова (для, до, выполнить); <параметр _ 
цикла> — переменная типа Тпфеедег (точнее, любого порядкового типа, см. гла- 
ву 6); <нач_знач> — начальное значение (выражение того же типа_; <кон_ 
знач> — конечное значение (выражение того же типа); <оператор> — произволь- 
ный оператор Ое|р1. 
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При выполнении оператора ох вначале вычисляется выражение <нач_знач> 
и осуществляется присваивание <параметр_цикла> := <нач_знач>. После 
этого циклически повторяется следующая последовательность действий. 


1. Проверка условия <параметр цикла> <= <кон_знач>; если условие не 
выполнено, оператор ог завершает свою работу. 


2. Выполнение оператора <оператор>. 
3. Наращивание переменной <параметр_цикла> на единицу. 


В качестве иллюстрации применения оператора ог рассмотрим программу 
ше итит, осуществляющую ввод произвольного целого числа М и вычисление сум- 
мы всех целых чисел от 1 до М. 

Для нового приложения (команда Ее › Мем » АррИсаЯоп) создайте такой обра- 
ботчик БЮВипС11сК: 


ргосеацге ТЕпЕхапр1е.рЬКипС11сКк (бЗепаег: ТОБ)ес®); 
уаг 
1, № бам : Тпбедег; 


Бед1п 
ху // Преобразуем ввод с контролем правильности: 
№ := обеТоТпЕ (еЧ9Тпра®.Тех®); 


ехсере // Следующие операторы выполняются, если есть ошибка 
бПомМеззасе ('Ошибка ввода целого числа'); 
еаТпри*.5е1ес+А11; // Выделяем неверный ввод 
Ех1 // Завершаем работу обработчика 

епа; 

еаТпрае.Техе := '!; 

еЯТпра® .зееГосиз; 


им := 0; // Начальное значение 5ит 
Бог 1 := 1 &0 М 94° // Цикл формирования суммы 
Зам := 5и0+1; 
пиОсерие.ТЪ1пез.Ааа ('Сумма всех целых чисел '+ 
'в диапазоне 1...'+ТрЕТобег (№)+' равна ' 


+ТреТобех ($ам)); 
епа; 


Прежде всего, обратите внимание на операторы: 


ху // Преобразуем ввод с контролем правильности: 
№ := ЭЗЕгТоТле (е4Тпрае.Тех®); 
ехсерЕ // Следующие операторы выполняются, 
// если есть ошибка 
ЗПомМеззасе ('Ошибка ввода целого числа'); 
еЯТпра*е.$е1ес*А11; // Выделяем неверный текст 


Ех1 Е // Завершаем работу обработчика 
епа; 


С помощью зарезервированных слов &гу (попробовать), ехсер* (исключение) 
и епа реализуется так называемый защищенный блок. Такими блоками програм- 
мист может защитить программу от краха при выполнении потенциально опасно- 
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го участка (подробнее см. главу 13). В отличие от предыдущих программ, мы не 
изменили компонент еЯаТпрое, поэтому пользователь может ввести в нем произ- 
вольный текст. Если этот текст не содержит правильное представление целого чис- 
ла, попытка выполнить следующий оператор в обычной программе привела бы 
к аварийному завершению программы: 


М := ЗегТотТпе (еаТпра®.Тех®); 


Чтобы этого не произошло, мы защитили этот оператор, расположив его за сло- 
вом &гу и перед словом ехсер*. Если ошибки нет, все операторы, стоящие за 
ехсер* и перед епа, пропускаются, и обработчик нормально срабатывает. Если 
обнаружена ошибка, возникает так называемая исключительная ситуация (исклю- 
чение), и управление автоматически передается оператору, стоящему первым за 
словом ехсер*, — начинается обработка исключения. Вначале с помощью стан- 
дартной процедуры $ВомМеззаае мы сообщаем пользователю об ошибке!, затем 
с помощью оператора е4Тпри+ .5е1есеА11 выделяем ошибочный текст в компо- 
ненте е4Тпри{ и, наконец, путем вызова стандартной процедуры Ех1* аварийно 
завершаем работу обработчика (но не программы!). 

Отметим также два обстоятельства. Во-первых, условие, управляющее работой 
оператора ог, проверяется перед выполнением оператора <оператор>: если ус- 
ловие не выполняется в самом начале работы оператора ох, исполняемый опера- 
тор не будет выполнен ни разу. Другое обстоятельство — шаг наращивания пара- 
метра цикла строго постоянен и равен +1. Существует другая форма оператора: 


ог <пар цик>: = <нач знач> аомпео <кон знач> ао 

<оператор>; | 

Замена зарезервированного слова о на домпФо означает, что шаг наращива- 
ния параметра цикла равен -—1, а управляющее условие приобретает вид <пара- 
метр цикла> >= <кон знач>. 

Предыдущий пример можно модифицировать так, чтобы сделать его пригод- 
ным для подсчета любых сумм — положительных и отрицательных: 


1Е М >= 0 епт 
Бог 1 := 1 ®0 М @о 
ой := бам + 1 
е1зе 
Еог 1 := -1 аомп®о М ао 
Зам := бам + 1; 


Два других оператора повторений лишь проверяют условие выполнения или 
повторения цикла, но не связаны с изменением счетчика цикла. 
Оператор иикла чЬ11е с предварительной проверкой условия: 


' Если вы запустите программу из среды Ое|ры, исключение будет сначала перехвачено средой, и на 
экране появится сообщение на английском языке о характере и месте возникновения ошибки. В этом 
случае закройте окно с сообщением и нажмите клавишу Г9 — программа продолжит свою работу, 
ивы увидите окно процедуры 5$помМеззасце. 
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мр11е <условие> ао <оператор>; 


Здесь мВ3.1е, 4о — зарезервированные слова (пока [выполняется условие |, де- 
лать); <условие> — выражение логического типа; <оператор> — произволь- 
ный оператор Оер1. 

Если выражение <условие> имеет значение Тгоае, то выполняется <опера- 
тор>, после чего вычисление выражения <условие> и его проверка повторяются. 
Если <условие> имеет значение Еа1зе, оператор мВ11е прекращает свою работу. 

Разработаем учебную программу, отыскивающую значение так называемого 
«машинного эпсилон» — минимального не равного нулю вещественного числа, 
которое после прибавления его к 1,0 еще дает результат, отличный от 1,0. Замечу, 
что для хранения и преобразования дробных чисел в Ое|рЫ! предназначены так 
называемые вещественные типы (см. главу 6). В учебной программе используется 
один Из этих типов — Веа1, занимающий 8 смежных байтов и представляющий 
дробные (вещественные) числа в диапазоне от 10-324 до 10*308 с точностью 14...16 
значащих цифр. 

У читателя, привыкшего к непрерывной вещественной арифметике, может вы- 
звать недоумение утверждение о том, что в дискретной машинной арифметике все- 
гда существуют такие числа 0 < Х < ерэз, что1,0 +Х = 1,0. Дело в том, что 
внутреннее представление типа Веа1 может дать «лишь» приблизительно 10" воз- 
можных комбинаций значащих разрядов в отведенных для него 8 байтах. Конечно 
же, это очень большое число, но оно несопоставимо с бесконечным множеством 
вещественных чисел. Аппроксимация бесконечного непрерывного множества ве- 
щественных чисел конечным (пусть даже и очень большим) множеством их внут- 
реннего машинного представления и приводит к появлению «машинного эпсилон». 

Для нового приложения (команда Ее › М№ем › АррИсаНоп) создайте такой обра- 
ботчик БЬВипС11 ск: 


ргосеаиге ТЕпЕхатр1е.рЬКиопС11ск (беп4ег: ТОБ)ес®); 
уагх 
Ерз11оп: Веа1; 
Бед1п 
Ер$11оп := 1; 
мВ11е 1+Ер$11оп/2>1 ао 
Ер$11оп := Ерз110оп/2; 
1РО0оЕриф.Сар®Е1оп := 'Машинное эпсилон = 
' +Е1оаеТоЗег (Ер$11оп) 
епа; 


Для вещественных чисел можно использовать операцию деления без отбрасы- 
вания дробной части (знак /). После применения этой операции результат всегда 
имеет вещественный тип, поэтому такой фрагмент программы ошибочен: 


уаг 
Х: Тпееаек; 
Бед1п 
Х := 4/2; // Ошибка! Вещественный результат нельзя 


// присвоить целой переменной 
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Стандартная функция Е1оаЕТо5%г преобразует вещественное число в строку 
СИМВОЛОВ. 


Оператор цикла гереа* ... пп®11 с последующей проверкой условия: 
гереае <тело цикла> ип&11 <условие>; 


Здесь гереа+ и ппё11 — зарезервированные слова (повторять [до тех пор], 
пока [не будет выполнено условие]); <тело_цикла> — произвольная последова- 
тельность операторов Ое|рр; <условие> — выражение логического типа. 

Операторы <тело_цикла> выполняются хотя бы один раз, после чего вычис- 
ляется выражение <условие>: если его значение есть Га15е, операторы <тело_ 
цикла> повторяются, в противном случае оператор гереа*... ип&11 завершает 
свою работу. 

Обратите внимание: пара слов гереа* и ипЕ1 1 подобна операторным скобкам 
Бед1п и еп4, поэтому перед ип+11 ставить точку с запятой не обязательно. 

Замечу, что для правильного выхода из цикла условие выхода должно менять- 
ся внутри операторов, составляющих тело цикла мВ11е или гереа® ... ип®11. 
Следующие циклы никогда не завершатся «естественным» способом: 


мр1]е Тгое ао 
Бед1п 


гереае 


111611 Га15е; 


Для гибкого управления циклическими операторами ог, мВ11е и гереа& 
в состав Деры включены две процедуры без параметров: 


ры 


Чается в передаче управления оператору, стоящему сразу за концом цикличе- 
ского оператора, 


о 


" СОМТТМОЕ — обеспечивает досрочное завершение очередного прохода цикла, 
эквивалент передачи управления в самый конец циклического оператора. 


Введение в язык этих процедур практически исключает необходимость исполь- 
зования операторов безусловного перехода до*о (см. ниже подраздел «Метки 
и операторы перехода»). 


Оператор выбора 


Оператор выбора позволяет выбрать одно из нескольких возможных продолже- 
ний программы. Параметром, по которому осуществляется выбор, служит ключ 
выбора — выражение любого порядкового типа (из уже рассмотренных к порядко- 
вым относятся Тпфедег, Спаг и логический тип; описание остальных порядко- 
вых типов см. в главе 6). 

Структура оператора выбора такова: 


сазе <ключ_ выбора> оЁ <список выбора> [е1зе <операторы>] 
ера; 


- 
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Здесь сазе, о, е1зе, еп — зарезервированные слова (случай, из, иначе, ко- 
нец); <ключ_выбора> — ключ выбора (выражение порядкового типа); <список_ 
выбора> — одна или более конструкций вида: 


<константа_выбора>: <оператор>; 


Здесь <константа_выбора> — константа того же типа, что и выражение <ключ _ 
выбора>; <оператор> — произвольный оператор Оеры. 

Оператор выбора работает следующим образом. Вначале вычисляется значе- 
ние выражения <ключ _выбора>, а затем в последовательности операторов <спи- 
сок_выбора> отыскивается такой, которому предшествует константа, равная вы- 
численному значению. Найденный оператор выполняется, после чего оператор 
выбора завершает свою работу. Если в списке выбора не будет найдена константа, 
соответствующая вычисленному значению ключа выбора, управление передается 
операторам, стоящим за словом е1 зе. Частье]1зе <операторы> можно опускать. 
Тогда при отсутствии в списке выбора нужной константы ничего не произойдет, 
и оператор выбора просто завершит свою работу. 

Любому из операторов списка выбора может предшествовать не одна, а несколь- 
ко констант выбора, разделенных запятыми. Например: 


уаг 
сп : Сваг; 
Беда 
сазе сп оЕЁ 
'п','№М','н!','Н': 1БОоЕрае.СарЕ1оп := 'Нет!; 
у, 'У!,'д','Д!: 15О0оЕрие.СарЕ1опт := 'Да'!; 
епа 


епа; 


Составим программу, имитирующую работу микрокалькулятора. Программа 
поддерживает ввод двух операндов и знака математического действия, после чего 
показывает результат (рис. 4.7). 

Для упрощения ввода операндов и знака операции поместим на нашу учебную 
форму еще два компонента. Выберите команду Ре ›» №ем » АррИсаЯоп, переименуйте 
компонент при в (]при{1 и сделайте его свойство \М ЧН (длина) равным 121 (стан- 
дартная длина компонентов Е ай), а свойство [еЙ (слева) — 160. Справа от компо- 
нецга (6]при{1 поместите компонент СотБоВох (вкладка 5*апдага), назовите его сЬ51дп 
(сэФиство Мате) и установите для него значения свойств МТВ — 41 и |еЁ — 328. 
Раскройте диалоговое окно свойства Цет$ этого компонента и введите четыре стро- 
ки со знаками математических действий в такой последовательности: 

+ 


х: 
/ 
И, наконец, справа от компонента с6$19п разместите еще один компонент Е4* 
(вкладка ${апдага) и назовите его е4ТприЁ? (1еЁ — 416). Не забудьте очистить его 
свойство Тех. 
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12 * 345 = 4140 
234567 / 123 =1907,0487804878 


. 


Рис. 4.7. Окно программы САС 


Для обработчика события БЮВапС1 1сК введите такой текст: 


ргоседиге ТЕпЕхапр1е.рЬКопС11сК (Зепаег: ТОБ)есе); 
уаг 

Х, У, 7: Веа1; 
Бед1п 
{ Блокируем работу, если не введены операнды и не выбрано 
действие } 

1Е (е@Тпро&1.Техе='') ох (е@Тпрое2.Тех®='') 

ог (сЬ51ап.ГешТпаех<0) ЕВеп Ех1(; 

// Проверяем правильность ввода 1-го операнда: 


Егу // Начало защищенного блока 
Х := ЗЕгТоЕ1Тоаф (Тг1и (е4Тпро*1.Техе)); 
ехсер* // Обработка ошибки 


ЗпомМез$засе ('Ошибочная запись числа: '+еЯТпро®1.Техе); 
еЧЯ1Тпри*1.5е1ес®А11; 
Ех1е; 
епа; // Конец защищенного блока 
// Проверяем правильность ввода 2-го операнда: 
Егу // Начало защищенного блока 
У := ЗЕсТоЕ1Тоа® (Тглм (еаТпрое2.Техе)); 
ехсер* // Обработка ошибки | 
ЗПомМеззасе ('Ошибочная запись числа: '+еЯТпри®2.Тех®); 
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еЯТприЕ2 .5е1ескА11; 

Ех1е; | 
епа; // Конец защищенного блока 
// Все правильно: вычисляем результат 
сазе сро51ап.ТфетТпаех оЁ 
0: 2 := Х+У; 
1: 2 := Х-У; 
2: 4 := Х*У; 
3: 


7 := 1.1е+38; // Бесконечность при делении на 0 


епа; 
// Показываем результат 
160ч$роае.СарЕ1оп := Тг1им (е4Тпра®1.Техе) +" '+ 
соб1ап.Теемз [сю51ап.ТЕетТпаех]+' '+ 
Тели (е@Тпрое2.Техе)+' = '; 
1Е 2 >= 1.1е+38 ЕВеп 

160чЕроае.Саре1оп := 16006ри®.Сар®1оп+'бесконечность' 
е1 зе 

1606Ероае.СарЕтоп := 1ЮО0чЕро®.Сар®1оп+Е1оаеТоЗекх (2); 
пиОс риф. 1пе$.Ада (1600 рае .СарЕ1оп); 
// Очищаем ввод 


еЧЯТпро®1.ТехЕе := '!; 

еЧЯТпрое2.ТехЕе := '!; 

сЬ51ап.ТЕемТпаех := -1; 
епа; 


В качестве операндов в программе выбраны переменные вещественного типа 
Веа1. Символьное представление значений Веа1 в общем случае имеет вид: 


+ПЦЦЦЦ . ДДДДДетпип 


Здесь = — знак + или -; ЦЦЦЦЦ — цифры целой части числа; ДДДДД — цифры 
дробной части; ППП — цифры десятичного порядка. Символ е (Е) в такой записи 
читается как «умножить на 10 в степени». Например, 1.1е+38 читается: «один 
и одна десятая умножить на 10 в степени плюс тридцать восемь». Следует учесть, 
что компилятор Ое]рЬ! в качестве разделителя целой и дробной частей всегда ис- 
пользует символ точки (.), в то время как аналогичный разделитель в \/1140\$ 
зависит от выбранной страны и для России им обычно является запятая (,). Это 
означает, что вещественные константы в тексте программы вы всегда должны за- 
писывать с точкой в качестве разделителя, а при вводе вещественных чисел пользо- 
ватель программы должен указывать разделитель \/т4о\$ (этот разделитель мож- 
но выбрать в 32-разрядных версиях \/Л1п4о\$ с помощью команды Пуск » Настройка › 
Панель управления и последующим заданием требуемых параметров в диалоговом 
окне Язык и стандарты). 
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Поскольку правильная форма записи вещественного числа гораздо богаче фор- 
мы записи целого, использовать однострочное поле с маской для фильтрации ве- 
щественных чисел невозможно, поэтому в программе используются обычные од- 
нострочные поля ептри{1 и е4а1приу{2г. В этой ситуации контроль за правильностью 
записи приходится возлагать на функцию преобразования $ гТоЕ1оа+ (эта функ- 
ция преобразует строку в вещественное число). Если функция обнаружит ошибку 
в записи вещественного числа, она инициирует исключительную ситуацию, кото- 
рая обычно приводит к аварийному завершению работы программы. Чтобы этого 
не произошло, используются защищенные блоки (см. комментарий к программе 
МТ$ОММ). Таким же блоком защищается операция деления: если число делится 
на ноль или на очень малую величину, результату присваивается большая поло- 
жительная величина 1.1*е+38. При выводе сообщения эта величина заменяется 
словом «бесконечность». 

Для выбора операции в программе используется компонент СотБоВох — рас- 
крывающийся список. Свойство Кетз этого компонента хранит набор строк, кото- 
рые определяют список. Эти строки пронумерованы, начиная от нуля (в нашем 
случае сЪ51ап.Т%етз[0] = '+',асю$1ап.ТЕемз[3] = '/'). Номер выбран- 
ной строки содержит свойство сь$1ап.ТеемТпаех, а если не выбрана ни одна 
строка, это свойство содержит -—1. При проверке операндов программа контроли- 
рует выбор за счет условия: 


сЬ51ап.ТеетТпаех<0 
Кроме того, выбор контролируется в операторе сазе: 
сазе сЬ51ап.ТеетТпаех оЁ 


Если вы ввели строки сь$1ап .Теемз в нужной последовательности, индекс 
выбранной строки будет соответствовать номеру операции (0 — +, 1 — -, 2-— * 
из — /) инад операндами будет выполнено требуемое действие. 


Метки и операторы перехода 


Можно теоретически показать, что рассмотренных операторов вполне достаточно 
для написания программ любой сложности. В этом отношении наличие в языке 
операторов перехода кажется излишним. Более того, современная технология 
структурного программирования основана на принципе «программировать без 
дофо»: считается, что злоупотребление операторами перехода затрудняет пони- 
мание программы, делает ее запутанной и сложной в отладке. 

Тем не менее, в некоторых случаях использование операторов перехода может 
упростить программу. 

Оператор перехода имеет вид: 


аобо <метка>; 


Здесь дово — зарезервированное слово (перейти [на метку]); <метка> — 
метка. 

Метка в Ое|рЬ! — это произвольный идентификатор, позволяющий именовать 
некоторый оператор программы и таким образом ссылаться на него. В целях со- 
вместимости со стандартным языком Паскаль в Ое|рЬ! допускается в качестве ме- 
ток использование также целых чисел без знака. 
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Метка располагается непосредственно перед помечаемым оператором и отде- 
ляется от него двоеточием. Оператор можно помечать несколькими метками, ко- 
торые в этом случае отделяются друг от друга двоеточием. Перед тем как появиться 
в программе, метка должна быть описана. Описание меток состоит из зарезерви- 
рованного слова 1аЪе1 (метка), за которым следует список меток: 


1аБе1 
Ёоор, 151, 152; 
Бедлп 
аово 101; 
1оор: ... 
11:12: ... 


аофо 152; 


епа; 


Действие оператора дофо состоит в передаче управления соответствующему 
«меченному» оператору. 

При использовании меток необходимо руководствоваться следующими прави- 
лами: 


метка, на которую ссылается оператор до*о, должна быть описана в разделе 
описаний и встречаться где-нибудь еще в теле программы; 


‚»_ Метки, описанные в Подпрограмме, локализуются в ней, поэтому передача управ- 
ления извне подпрограммы На метку внутри нее невозможна. 


Массивы 


Рассмотренные выше простые типы данных позволяют использовать в программе 
одиночные объекты — числа, символы, строки ит. п. В ерЫ могут также приме- 
няться объекты, содержащие множество однотипных элементов. Это массивы — 
формальное объединение нескольких однотипных объектов (чисел, символов, строк 
ит. п.), рассматриваемое как единое целое. К необходимости применения масси- 
вов мы приходим всякий раз, когда требуется связать и использовать целый ряд 
родственных величин. Например, результаты многократных замеров температу- 
ры воздуха в течение года удобно рассматривать как совокупность вещественных 
чисел, объединенных в один сложный объект — массив измерений. 

При описании массива необходимо указать общее количество входящих в мас- 
сив элементов и тип этих элементов. Например: 


\ах 
а: аггау [1..10] оЕЁ Веа1; 
Ь: аггау [0..50] оЕ Срваг; 
с: агхау [-3..4] оЕ ЗЕгара; 
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Как видим, при описании массива используются зарезервированные слова 
аггау иоЕ (массив', из). За словом аггау в квадратных скобках указывается тип- 
диапазон, с помощью которого компилятор определяет общее количество элемен- 
тов массива. Тип-диапазон (подробнее см. в главе 6) задается левой и правой гра- 
ницами изменения индекса массива, так что массив А состоит из 10 элементов, 
массив В — из 91, а массив С — из 8 элементов. За словом о указывается тип эле- 
ментов, образующих массив. 

Доступ к каждому элементу массива в программе осуществляется по индексу — 
целому числу (точнее, выражению порядкового типа, см. главу 6), служащему сво- 
еобразным именем элемента в массиве (если левая граница типа-диапазона равна 
1, индекс элемента совпадает с его порядковым номером). При упоминании в про- 
грамме любого элемента массива сразу за именем массива должен следовать ин- 
декс элемента в квадратных скобках, например: 


уаг 
а: аггау [1..10] оЕ Тпседег; 
Ь: аггау [0..40] оЕ Спаг; 
с: агхгау [-2..2] оЕЁ Воо1еап; 
К: Типбедег; 


Бед1п 
[17] := 'Е!; 
с[]-2] := а[1] > 2; 
Бог К := 1 ®о 10 ао 
а[к] := 0; 
епа; 


В правильно составленной программе индекс не должен выходить за пределы, 
определенные типом-диапазоном. Например, можно использовать элементы А [1], 
В[38], С [0], но нельзя А[ 0] или С [38] (определение массивов см. выше). Ком- 
пилятор ОерЫ может контролировать использование индексов в программе как 
на этапе ее компиляции, так и на этапе прогона. 

Для иллюстрации приемов работы с массивами составим программу, которая 
создает массив случайных целых чисел, подсчитывает их среднее арифметиче- 
ское, а также определяет и выводит на экран минимальное и максимальное из этих 
чисел. 


ргосеаиге ТЕпЕхатр1е.5ЮКапС11ск (бепаег: ТОБ]ес®); 
{Программа создает массив из М случайных целых чисел, 
равномерно распределенных в диапазоне от 0 до МАХ УАГОЕ-1, 
подсчитывает среднее арифметическое этих чисел, а также 
минимальное и максимальное из них. } 


соп5е 
№ = 1000; // Количество элементов массива 
МАХ УАЬОЕ = 100+1; // Диапазон значений случайных чисел 


' Буквальный перевод атау — боевой порядок, упорядоченная масса (войск). В компьютерной терми- 
нологии а7тау переводится словом массив. 
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уаг 
п: аггау [1..№] оЕ Тпфедег; // Массив чисел 
1: Тоседег; // Индекс массива 
пах, м1п: Тпбедег; // Максимальное и минимальное число 
сии: Веа1; /И/ Сумма чисел 
5: 5%6гапа; // Буферная строка 
Бедлп 
5 :=!; 
// Наполняем массив случайными числами: 
Бог 1 := 1 в М @о 
Бед1п 
п[1] := Вапаом (МАХ УАЪОЕ); 
5 := 5+#9+ТаЕТо5ег (ш[1]); // Добавляем число к будеру 
1Е 1 моа 10=0 &Ъеп // - В буфере 10 чисел? 
Бед1п // - Да. Выводим буфер 
ппОцфрае. 1пе$.Ааа ($); 
с ‚= т! 
епа 
епа; 
// Задаем начальные значения переменных: 
зам := тщ[1]; 
мах := п[1]; 
пп := щ[1]; 


// Цикл вычисления суммы всех случайных чисел и поиска 
// минимального и максимального: 


Бог 1 := 2 0 М 9@о 
Бед1п 
зай := зам + м[1]; 
1Е п[1] < шп Ъеп 
пап := Ш[1] 
е15е 1ЁЕ п[1] > пах Веп 
шах := п[1] 
епа; 
// Вычисляем среднее значение и выводим результат: 
150ч6роае.СарЕ1оп := 'Мин = '+ТаЕТобег (ш1п)+' Макс = '+ 
ТпеТобекг (мах) +' Среднее = '+Е1]оа%ТобЕг (зам/М); 
епа; 


Для создания массива используется встроенная функция Капдом (Мах) ‚, кото- 
рая возвращает случайное целое число, равномерно распределенное в диапазоне 
от 0 до Мах - 1 (Мах — параметр обращения). Каждое случайное число перево- 
дится в строковый формат и добавляется к буферной строке (символы #9 опреде- 
ляют вставку табулостопа, разделяющего соседние числа в строке) следующим 
оператором: | 


5 := 5+#9+ТаЕТобекг (и[1]); // Добавляем число к буферу 
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После накопления в буферной строке 10 чисел строка помещается в многостроч- 
ное поле тт0и{ри{ и очищается. Таким способом экономится время вывода и упо- 
рядочивается форма представления чисел на экране. 


Процедуры и функции 


Процедуры и функции (я часто буду использовать их общее название — подпро- 
граммы) представляют собой важный инструмент Оеры, позволяющий писать 
хорошо структурированные программы. В структурированных программах обыч- 
но легко прослеживается основной алгоритм, их проще понять любому читателю, 
они удобнее в отладке и менее чувствительны к ошибкам программирования. Все 
эти свойства являются следствием важной особенности подпрограмм, каждая из 
которых представляет собой во многом самостоятельный фрагмент программы, 
связанный с основной программой лишь с помощью нескольких параметров. Са- 
мостоятельность подпрограмм позволяет локализовать в них все детали программ- 
ной реализации того или иного алгоритмического действия и поэтому изменение 
этих деталей, например в процессе отладки, обычно не приводит к изменениям 
основной программы. 

Многие примеры программ в этой книге невелики по размерам (не более 30- 
40 строк), поэтому в таких программах можно обойтись и без подпрограмм. Иное 
дело — создание крупных программ в сотни, тысячи и десятки тысяч строк. Пи- 
сать такие программы как нечто единое целое без расчленения на относительно 
самостоятельные фрагменты, то есть без структурирования, просто невозможно. 
Практически во всех языках программирования имеются средства структуриро- 
вания. Языки, в которых предусмотрены такие механизмы, называются процедур- 
но-ориентированными. К их числу принадлежит и Оерр!. 

Процедурой в ОерЫ называется особым образом оформленный фрагмент про- 
граммы, имеющий собственное имя. Упоминание этого имени в тексте программы 
приводит к активизации процедуры и называется ее вызовом. Сразу после активи- 
зации процедуры начинают выполняться входящие в нее операторы, после выпол- 
нения последнего из них управление возвращается обратно в основную програм- 
му и выполняются операторы, стоящие непосредственно за оператором вызова 
процедуры (рис. 4.8). 


Основная (вызывающая) программа 


Вызов процедуры 


Продолжение основной программы Процедура 


Рис. 4.8. Взаимодействие вызывающей программы и процедуры 


Для обмена информацией между основной программой и процедурой исполь- 
зуется один или несколько параметров вызова. Как мы увидим дальше (см. гла- 
ву 10), процедуры могут иметь и другой механизм обмена данными с вызывающей 
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программой, так что параметры вызова могут и не использоваться. Если они есть, 
то перечисляются в круглых скобках за именем процедуры и вместе с ним образу- 
ют оператор вызова процедуры. 

Функция отличается от процедуры тем, что результат ее работы возвращается 
в виде значения этой функции, и, следовательно, вызов функции может использо- 
ваться наряду с другими операндами в выражениях. 

С примерами процедур и функций мы уже сталкивались — это стандартные 
процедуры Ех1%, ЗпомМеззасще, функции 5 хТоТпЕ, Е1оа%Тоб%кг, Кап@оп, ма- 
тематические функции и др. Стандартными они называются потому, что созданы 
вместе с системой Пе|рЫ и являются ее неотъемлемой частью. В Ое|рЪ! имеется 
много стандартных процедур и функций (см. описание некоторых из них в прило- 
жении Б). Наличие богатой библиотеки таких программных заготовок существенно 
облегчает разработку прикладных программ. Однако в большинстве случаев неко- 
торые специфичные для данной прикладной программы действия не находят пря- 
мых аналогов в библиотеках Пер, и тогда программисту приходится разрабаты- 
вать свои нестандартные процедуры и функции. 

Нестандартную подпрограмму необходимо описать, чтобы компилятор смог 
установить связь между оператором вызова и теми действиями, которые предус- 
мотрены в подпрограмме. Описание подпрограммы помещается в разделе описа- 
ний (до начала исполняемых операторов). 

Не вдаваясь в дальнейшие подробности, попробуем составить собственную 
процедуру, чтобы пояснить сказанное. Пусть в этой процедуре преобразуется не- 
которая символьная строка таким образом, чтобы все строчные буквы заменялись 
соответствующими прописными. В Оеры имеется стандартная функция ОрСазе 
(см. главу 6), которая выполняет аналогичные действия над одиночным симво- 
лом. Наша процедура (назовем ее Ор5$+г1па) будет преобразовывать сразу все 
символы строки, причем сделаем ее пригодной не только для латинских букв, но 
и для букв русского алфавита. 

Разработку программы проведем в два этапа. Сначала сконструируем основ- 
ную (вызывающую) часть программы. Ее действия очень просты: она должна по- 
лучить входную строку из компонента е@ при, преобразовать ее с помощью про- 
цедуры Ор$Ег1па в выходную строку и поместить результат в 160$ рие.Техе. 
Эти действия нетрудно запрограммировать в обработчике БЪВипС11ск: 


ргосеацге ТЕпЕхаптр1е.50ВопС11скК (Зепаег: ТОБ)ес®); 
рхгосеацге ОрбеЕг1па (5ЕТпр: $61049; Уак $6006: 58%г119а); 
{ Эта процедура преобразует все буквы строки $ЕТпр в 

прописные и помещает результат в выходную строку $ЕОиЕЁ } 


Бед1п 
$ЕОчЕ := $ЕТпр; 
епа; // ОР5ЗЕГ1 па 
уаг 
51, 52: $8%гарда; 
Ъед1п 
$1 := еаТпро®.Техе; // Получаем исходную строку 


' Вары имеется стандартная функция Апз1ОррегСазе, реализующая те же действия. 
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пмОиерие.1Т1пез.Ааа (51); // Выводим ее 


Ор5Ег1п9 (51,52); // Преобразуем 
пмОцерих .11пе$.АЗА ($2); // Выводим результат 
еаТпрае.Техе := '!; 
еЧ4Тпрое .зееГосцз; 

епа; 


В этой программе используется замещение процедуры Ор5$%г1па так называе- 
мой «заглушкой», то есть процедурой, в которой на самом деле не осуществляется 
нужных нам действий (однако она синтаксически абсолютно правильна, и при 
желании ее можно запустить), а выходная строка просто копирует входную. За- 
глушка понадобилась нам по двум причинам. Во-первых, приведенная программа 
очень проста, в ней отсутствует детальная реализация процедуры, и это позволяет 
наглядно проиллюстрировать механизм ее описания. Во-вторых, на ее примере мы 
знакомимся с универсальным методом конструирования сложных программ, по- 
лучившим название нисходящего программирования. В соответствии с этим мето- 
дом создание программы начинается «сверху», то есть с разработки самого главного 
(генерального) алгоритма. На верхнем уровне обычно еще не ясны детали реали- 
зации той или иной части программы, поэтому эти части следует заменить вре- 
менными заглушками. Желательно, чтобы временный вариант программы был 
синтаксически правильным, тогда можно его откомпилировать и убедиться в от- 
сутствии в нем синтаксических ошибок. Такой прогон даст определенную уверен- 
ность перед разработкой и реализацией алгоритмов нижнего уровня, то есть перед 
заменой заглушек реально работающими процедурами. Если реализуемый в за- 
глушке алгоритм достаточно сложен, его вновь структурируют, выделяя главный 
алгоритм и применяя новые заглушки, и т. д. Процесс продолжается «вниз» до тех 
пор, пока не будет создан полностью работоспособный вариант программы. 

Как видим, описание процедуры начинается зарезервированным словом ргосе- 
амге, за которым следуют имя процедуры и список формальных параметров. Спи- 
сок параметров заключается в круглые скобки и содержит перечень параметров 
с указанием их типа. Заметим, что перед параметром 50%, с помощью которого 
в вызывающую программу возвращается результат преобразования, стоит заре- 
зервированное слово хак. Именно таким способом компилятору указываются те 
параметры, в которых процедург возвращает вызвавшей ее программе результат 
своей работы (подробнее см. главу 10). Зарезервированное слово ргоседаке, имя 
процедуры и список ее параметров образуют заголовок проиедуры. За заголовком 
следует тело проиедуры, содержащее новый раздел описаний (этот раздел пока 
еще пуст) и раздел исполняемых операторов (оператор зЕОчЕ := зЕТпр)Д. 

Приступим к разработке алгоритма процедуры. Для этого учтем, что в соответ- 
ствии с принятой в \/т4о\$ кодировкой символов (так называемой АМ$]-коди- 
ровкой) символы кириллицы (русского алфавита) располагаются сплошным мас- 
сивом от «А» до «я», за исключением «ё» и «Ё», которые предшествуют «А». Кроме 
того, символ «я» имеет внутренний код 255, то есть максимально возможное зна- 
чение одного байта (для каждого символа строки выделяется по одному байту). 

Вот возможный вариант процедуры: 


Ргосеасге ОрбЕг1па($ЕТпр: $6х1п4а; хак $6©0ое: 5Ег1па); 
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{ Эта процедура преобразует все буквы строки $ЕТпр 
в прописные и помещает результат в выходную строку $ЕОиЕ } 


уаг 
К: Тпсесвег; // Параметр цикла 
Бед1п 
$Е0ОчЕ := 5ЕТр; 
// Цикл побуквенного преобразования 
Еог К := 1 во Гепоаев ($6008) {ГепдЕВ - длина строки} ао 
Бед1п 
зЕО0ое[К] := ОрСазе (560% [К]); // Преобразуем латиницу 
1Е э6Оое [К] >= 'а' %Ъеп // Строчная буква кириллицы? 
ЕО [К] := // Да. Преобразуем ее 
Срг (ога ('А') + ога (500% [К]) - ога ('а')); 
1Е з6Оче[К]='ё' &Беп 
5ЕОи+ [К] := 'Ё!; // Преобразуем 6 в Ё 
епа; | 


епа; // ПОр5Ег1па 


В процедуре вначале исходная строка копируется в выходную строку с помощью 
оператора: 


56е0че := $ЕТпр; 


Затем реализуется циклический перебор всех символов выходной строки для 
преобразования букв. Для доступа к отдельным символам строки используется 
замечательное свойство типа данных 5$&:1п9, позволяющее рассматривать строку 
как набор (массив) символов. Первый символ этого набора имеет индекс 1, вто- 
рой — 2 ит. д. Индекс указывается сразу за именем строки в квадратных скобках. 
Таким образом, $ЕОч& [1] — это 1-й символ строки ЕО. Перебор символов ре- 
ализован в виде счетного цикла от 1 до длины входной строки зе Оиц* (эта длина 
получается с помощью стандартной функции ТепаЕ\В), в ходе которого каждый 
символ сначала преобразуется функцией ОрСазе (эта функция возвращает про- 
писную латинскую букву для строчной буквы, передаваемой ей в параметре вызо- 
ва; функция не работает с кириллицей). Затем осуществляется проверка принад- 
лежности буквы к русской строчной (оператор +2 зЕОц+ [к] >= 'а' ЕВеп...; 
где а — русская буква) и осуществляется необходимая коррекция ее внутреннего 
кода. При коррекции используются отмеченные выше свойства непрерывности 
и монотонности массивов кодов, то есть за «А» идет «Б», за «Я» — «а», за «а» — «б» 
и т. д. Стандартная функция ога возвращает внутренний код символа, который 
передается ей в качестве параметра обращения, а функция СНг преобразует код 
в символ. Поскольку буква «ё» стоит особняком, ее преобразование осуществля- 
ется отдельным оператором. 

Рассмотрим иной способ реализации той же программы — оформим алгоритм 
преобразования в виде функции: 


ргосеаиге ТЕпЕхапр1е.рЬКипС11сК (бепаег: ТОБ)ес®); 

Еапсе1оп ОрбЕег1па($ЕТпр: 56Е11п9): ЗЕгапа; 

{ Эта функция преобразует все буквы строки $ЕТпр в пропис- 
ные и помещает результат в выходную строку Кези1Е } 
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уаг 
К: Тпбедег; // Параметр цикла 
Бед1п 
Везц1& := $з%ЕТпр; 
// Цикл побуквенного преобразования 
ох К := 1 во ТепаеН (Везо1*) @о 


Беда 
Вези1{ [К] := ОрСазе (Вез11% [К]);// Преобразуем латиницу 
1Е Кезо1е [К] >= 'а' еп — _// Строчная буква кириллицы? 
Веза16 [К] := // Да: преобразуем ее 
Спг (ога ('А') + ога (Веза1% [К]) - ога('а')); 
12 Везо1е[К]='ё' Вел 
Вези1е [К] := 'Ё!; // Преобразуем 6в ЕЁ 
ела; 
епа; // УР5ЕЕГ1п9 
Бед1п 


птОцери*.11пе$ .Ааа (е9Тпра*.Тех®); 
{ В следующем операторе исходная строка еаТприЕё. ТехЕ 
преобразуется и помещается в многострочное поле: } 
пиОсери®.Ь1пе5.Ааа (Ор5Ег1па (е@Тпра*.Тех®)); 
еЯТпри®.Техе := ''; 
еаТпра* .бееГоси$; 
епа; 


При описании функции необходимо за списком используемых для ее вызова 
параметров указать тип возвращаемого ею результата. Именно поэтому за закры- 
вающей круглой скобкой в заголовке функции стоит двоеточие и тип 5$Ех1ла. В теле 
любой функции определена стандартная переменная Везц 1, которая трактуется 
как результат, возвращаемый функцией. С помощью следующего оператора мы 
сначала присвоили результату входную строку, а затем в цикле осуществили пере- 
бор символов и их коррекцию: 


Веза1Е := $5ЕТпр; 

Единственный показанный ниже оператор заменил сразу три первых операто- 
ра в предыдущей реализации программы: 

16О0цЕра*.Сар&1оп := Ор5®г1па (е4Тпри®.Тех®); 


Правила кодирования программ 


Подавляющая часть кода программы располагается в многочисленных подпрограм- 
мах, поэтому ниже приводятся правила и рекомендации, относящиеся прежде все- 
го кподпрограммам. Особенности кодирования модулей, библиотек, пакетов и соб- 
ственно программ рассматриваются в соответствующих разделах книги. 

Любая подпрограмма имеет заголовок, раздел объявлений и раздел операторов: 


ргоседиге МуРгоседиге; // Заголовок 
// Раздел объявлений 
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Ъед1п 
// Раздел операторов 
епа; 


В разделе объявлений описываются переменные, константы, подпрограммы 
и метки, которые будут использованы в разделе операторов. 

Описания группируются в секции, открываемые зарезервированными слова- 
ми уах (секция переменных), соп$* (секция констант), 1аЪе]1 (секция меток). 
Порядок следования секций и их количество не имеют значения. 

Описание переменной заключается в указании ее типа, описание константы — 
в указании ее значения; метка описывается простым упоминанием ее в секции 
]аЪе]: 


уагх 
1: Тпведек; 
а, Ь: Веа]1; 
156: Т56г1п9156; 


соп$е 
$ = 'Ш0е1рЬ1'; 
Мах = 1234567; 
1аЪе1 
11, 12, 13; 


В одной строке может размещаться произвольное количество описаний. Одно- 
типные переменные можно группировать в списки (см. описание переменных а 
и ь в предыдущем примере). 

При описании глобальных переменных (то есть переменных, объявленных вне 
тела подпрограммы) их можно инициализировать, указав после названия типа знак 
равенства и начальное значение: 


уаг 
Маме: ЗЕх1па = 'Ше]1рЬ1'; 
Локальные (то есть объявляемые в теле подпрограммы) переменные таким спо- 
собом инициализировать нельзя. 
В программе разрешается использовать типизированные константы: 


СоП5Е 
Мате: З&:1па = 'П0е1рр1'; 
В отличие от нетипизированных, типизированные константы можно изменять 
в ходе работы программы, то есть они ведут себя как инициализированные пере- 
менные. 


ВНИМАНИЕ Изменять значения типизированных констант можно во всех версиях 
Бер, однако в версии 6 и 7 это становится возможным только при уста- 
новленном флажке А$$1дпаЫе {фуред соп5*ап{$ на вкладке Сотр\егокна ОрНоп$ 
(открывается командой Рго]ес* ›» ОрНоп$). 


Операторы располагаются в одной или нескольких строках и завершаются сим- 
волом точки с запятой. Если оператор занимает несколько строк, он должен закан- 
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чиваться на каждой строке в том месте, где можно вставить пробел. Порядок сле- 
дования операторов определяет порядок их исполнения, если не учитывать опера- 
торы переходов, которые нарушают этот порядок. В одной строке может разме- 
щаться несколько операторов. В этом случае они выполняются слева направо. 

В любом месте, где можно вставить пробел, можно разместить комментарий. 
В Рары в качестве ограничителей комментария используются символы {...}, 
(*...*) ИИ: 


{ Это комментарий } 
(* Это тоже комментарий *) 
// Все символы до конца текущей строки образуют комментарий 


Ограничители (**) и { } не могут пересекаться, но могут быть вложенными: 


(*. 4... ..*)...} // Так нельзя 
ре.) // Так можно 


Если комментарий ограничивается символами {$...} или (*$...*), такой ком- 
ментарий считается директивой компилятора. С его помощью программист мо- 
жет динамически изменять настройку компилятора и осуществлять условную ком- 
пиляцию. Подробнее об использовании директив компилятора см. справочную 
службу Оеры (раздел Сотр ег ОлтесН\ез). 

Излагаемые ниже советы «выстраданы» мною за 25 лет работы с языком Разса]. 
Однако если вы думаете, что они носят сугубо личный характер, вы глубоко оши- 
баетесь: посмотрите исходные тексты реализации любого модуля Рерь и вы уви- 
дите их на практике! 


Не размещайте на одной строке больше одного оператора. Этот совет связан 
с тем, что при пошаговой трассировке программ (а это — основной способ от- 
ладки), компилятор останавливается перед выполнением очередной строки 
кода. Если на строке размещены несколько операторов, вы не сможете просле- 
дить работу каждого оператора в этой строке отдельно от других. 


* Выделяйтетела составных, условных, циклических операторов отступами. Если 
вы не будете этого делать, вам будет трудно определить, какому слову Бед1 п 
соответствует то или иное слово епа. Пер! провоцирует широкое использо- 
вание составных операторов, причем часто они бывают вложенными. Если пре- 
небречь этим и двумя следующими советами, вы, возможно, потратите много 
времени на устранение ошибки, вызывающей сообщение ";" ехресее4 Ба 
"." Еочцла (не хватает епа) или Вес1ага&1оп ехресееа Бае 14епЕ1Е1ег 
Еочпа (избыток еп9). 


Во вложенных составных операторах старайтесь помечать замыкающие слова 
епа небольшими комментариями: 


1Е а>ю ЕБеп 

Бед1п 
1Е пое ТзМем 6Беп 
Бедап 


епа; // 1Е ПОЕ Т15М№и 
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епа; // 1Е а>Ь 


*”_ Структурируйте алгоритм! Если тело вашей подпрограммы содержит более 20- 
30 строк, проанализируйте алгоритм и относительно самостоятельные его час- 
ти вынесите во вложенные подпрограммы или реализуйте с помощью вспомо- 
гательных классов. Помните, что уже через 2-3 месяца вы будете с трудом 
припоминать детали реализации подпрограммы, насчитывающей сотни строк 
кода. 


Не скупитесь на комментарии. Небольшие затраты времени на вставку ком- 
ментария по ходу составления программы с лихвой окупятся, когда вам понадо- 
бится ее модернизировать. Не откладывайте вставку комментария «на потом» — 
у меня, например, никогда на это «потом» не хватает времени. 


* Старайтесь использовать осмысленные идентификаторы. К сожалению, для 
этого вам понадобится хотя бы начальное знание английского языка, в крайнем 
случае можно русскоязычные идентификаторы записывать латинскими буквами. 


В заключение приведу небольшой фрагмент исходного кода модуля Би оп$.раз 
(находится в папке Зоигсе\\УСЕ каталога размещения ОерЬ!), иллюстрирующий 
применение перечисленных правил на практике. 


м1 ЕВ Сапуаз ао 


Бедлап 
1Е Мемз$у1е &ЪБеп 
Бед1п 
ВгазН.Со1ог := с1ВЕпРасе; 
Вгозв.56у1е := Ь$5011а; 
ОС := Сапуа$.Напа1е; { Веаисе са115$ Ео СеЕНапа]1е } 


1Е Тзромп $Беп 


Бед1п { ОгаиЕаде 1$ ЕазЕег ЕПВап Ро1у]1пе } 
ОРгамЕаде (РС, К, ВОВ ЗОМКЕМТММЕКВ, ВЕ ТОРЬЕЕТ); 
{ Б]асКк } 


РгамЕаде (РС, К, ВОК ЗОМКЕМООТЕВ, ВЕ _ВОТТОМВТСНТ); 


Часть || 


Язык берш 


В этой части книги описывается основной инструмент Пер! — язык 


программирования Ое!рЫ! (в ранних версиях язык называется ОЪесе 
Разса|). 


Глава 5 
Элементы языка 


Элементы языка кратко рассмотрены в главе 4. В этой главе приводятся более пол- 
ные сведения. 


Алфавит 


Алфавит языка Ое|рЫ! включает буквы, цифры, шестнадцатеричные цифры, спе- 
циальные символы, пробелы и зарезервированные слова. 

Буквы — это буквы латинского алфавита от а до 2 И ОТ А до 2, а также знак 
подчеркивания (_). В языке нет различия между прописными и строчными буква- 
ми алфавита, если только они не входят в символьные и строковые выражения. 

Цифры -— арабские цифры от 0 до 9. 

Каждая шестнадиатеричная иифра имеет значение от 0 до 15. Первые 10 зна- 
чений обозначаются арабскими цифрами 0...9, остальные шесть — латинскими 
буквами А...Е или а... Е. 

Специальные символы Бёры: 


+ -* =. <>] (){}^805# 
К специальным символам относятся также следующие пары символов: 
<> <= >= := (**) (. .) // 


В программе эти пары символов нельзя разделять пробелами, если они исполь- 

зуются как знаки операций отношения или ограничители комментария. Символы 
(. и.) могут употребляться соответственно вместо [и ]. 

Особое место в алфавите языка занимают пробельные символы, к которым от- 
носятся любые символы в диапазоне кодов от 0 до 32 (включая собственно пробел, 
а также символ табуляции). Эти символы рассматриваются как ограничители иден- 
тификаторов, констант, чисел, зарезервированных слов. Несколько следующих друг 
за другом пробелов считаются одним пробельным символом (последнее не отно- 
сится к строковым константам). 

В Р@арЫы имеются следующие зарезервированные слова: 


апа ехрог* 5$ по $Вг 
аггау Е11е 111 3$:1п4 
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аз 
азм 

Бед1п 

сазе 

с1а$5$ 

соп$Е 
соп5Егасвог 
аезЕгасвог 
41зр1пеегЕасе 
Чу 

ао 

домпео 

е]1зе 

епа 

ехсер®е 


Ё1па11ха%1оп 
ЕЁ1па11у 

Бог 

ЕипсЕ1оп 

доео 

1Е 
1пр]1етепфа®1оп 
1п 

1прег1%еа 
11161а11хае1оп 
10]11пе 
1п$егЕасе 

15 

]1аБе1 

11БЬгагу 


поё 
орЗесе 

ОЕ 

ог 

оиЕ 
раскеа 
ргосеаиге 
ргодгам 
ргорег®у 
га1зе 
гесога 
гереае 
гезоцгсезг1па 
ее 

$21 


ЕБеп 
ЕВгеаауаг 
фо 
гу 
Суре 
41036 
4111 
изез 
маг 
мЬ11е 
м1 ЕВ 
хог 


Зарезервированные слова не могут использоваться в качестве идентификато- 


ров. 


Стандартные директивы первоначально связаны с некоторыми стандартны- 
ми объявлениями в программе. К ним относятся: 


аьзо1аее Аупам1с пате рУчЬ11с заЁеса11 
арзЕгасе ехрог* пеаг ручр115реа $Е4са11 
а5зетЬ]1ег — ехфегпа1 поаеЁац1* геаа | звогеа 
апфомафеа —Еаг оуегг1ае геааоп1у У1г6па1 
с4ес1 Еогмага раскаде гед15Еег мг1$е 
сопфа1п$ 1пр1емеп® $ разса1 ге1лпЕгоацсе мг1$еоп1у 
ЧеЁац1 1паех рг1уаее геча1гез 

41$р1а меззаде рговесвеа гез1Аепе 


Как и зарезервированные слова, стандартные директивы в окне кода Оеры 
выделяются жирным шрифтом, тем не менее вы можете переопределить любую 
стандартную директиву, то есть объявить одноименный идентификатор. 

Слова рг1уа*е, рговес*еа, раЬ11с, руЬ11зНеЯ и аакома%+еА считаются 
зарезервированными внутри объявления класса и стандартными директивами — 
вне объявления. 


Идентификаторы 


Идентификаторы в Ое|рВ! — это имена констант, переменных, меток, типов, объ- 
ектов, классов, свойств, процедур, функций, модулей, программ и полей в записях. 
Идентификаторы могут иметь произвольную длину. 

Идентификатор всегда начинается буквой, за которой могут следовать буквы 
и цифры. Напомню, что буквой считается также символ подчеркивания, поэтому 
идентификатор может начинаться этим символом и даже состоять только из одно- 
го или нескольких символов подчеркивания. Пробелы и специальные символы 
алфавита не могут входить в идентификатор. 
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Примеры правильных идентификаторов: 


а 

МуРгодгаптТ ВезеРгоагам 
ехфегпа1 

АГРНА 

Часе_27_ зер_39 

_река 


Примеры неправильных идентификаторов: 


1]Ргоакам // начинается цифрой 


1оск#1 // содержит специальный символ 

Му Ргоа // содержит пробел 

по // зарезервированное слово 
Константы 


В качестве констант в ОерЫ! могут использоваться целые, вещественные и шест- 
надцатеричные числа, логические константы, символы, строки символов, кон- 
структоры множеств и признак неопределенного указателя МТЬ. 

Целые числа записываются со знаком или без него по обычным правилам и мо- 
гут иметь значение в диапазоне от —283 до +2831. Следует учесть, что если цело- 
численная константа выходит за указанные границы, компилятор генерирует со- 
общение об ошибке. Такие константы должны записываться с десятичной точкой, 
то есть определяться как вещественные числа. 

‚Вещественные числа записываются со знаком или без него с использованием 
десятичной точки и/или экспоненциальной части. Экспоненциальная часть начи- 
нается символом е или Е, за которым могут следовать знаки «+» или «—» и деся- 
тичный порядок. Символ е (Е) означает десятичный порядок и имеет смысл «умно- 
жить на 10 в степени». Например, 


” 3.14Е5 — 3,14 умножить на 10 в степени 5; 
и” -17е-2 — минус 17 умножить на 10 в степени минус 2. 


Если в записи вещественного числа присутствует десятичная точка, перед точ- 
кой и за ней должно быть хотя бы по одной цифре. Если используется символ экс- 
поненциальной части е (Е), за ним должна следовать хотя бы одна цифра десятич- 
ного порядка. 

Шестнадиатеричное число состоит из шестнадцатеричных цифр, которым пред- 
шествует знак доллара $ (код символа — 36). Диапазон шестнадцатеричных чи- 
сел — от ЗРЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ До $ 7ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ. 

Логическая константа — это либо слово Еа1 зе (ложь), либо слово Тгце (истина). 

Символьная константа — это любой символ ПК, заключенный в апострофы: 

17! — СИМВОЛ «7»; 

'Ф' — символ «Ф». 

Если необходимо записать собственно символ апострофа, он удваивается: 

'''' — символ апострофа ( ' ); 

'Траё''з зех1па' — строка с символом апострофа. 
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Допускается использование записи символа путем указания его внутреннего 
кода, которому предшествует символ # (код 35), например: 

#97 — символ «а»; 

#90 — символ «1»; 

#39 — символ «’»; 

#13 — символ «СК». 

Строковая константа — любая последовательность символов (кроме симво- 
лов СВ — возврат каретки), заключенная в апострофы. 

Строка символов может быть пустой, то есть не иметь никаких символов в об- 
рамляющих ее апострофах. Строку можно составлять из кодов нужных символов 
с предшествующими каждому коду символами #, например, следующая строка 
эквивалентна строке $утмро1: 


#83#121#109#98#11#108 


Наконец, в строке можно чередовать части, записанные в обрамляющих апост- 
рофах, с частями, записанными кодами. Таким способом можно вставлять в стро- 
ки любые управляющие символы, в том числе и символы СВ (код 13), например: 


#7'Ошибка !'#13'Нажмите любую клавишу ...'#7 


Конструктор множества — список элементов множества, обрамленный квад- 
ратными скобками, например: 

[1,2,4..7,12] 

([611е, геа] 

[] 

[Ехое] 

В Пер разрешается в объявлении констант использовать произвольные вы- 
ражения, операндами которых могут быть ранее объявленные нетипизированные 
константы, имена типов и объектов, а также следующие функции от них: 


аьз 1епа ЕВ ога гоппа змар 

сВгх ]1ом ргеа $12е0Е гипс 

|. оаа рег асс 

Например: 

соп5е 
МахВеа]1 = МахТпе @а1у 5127е0Е (геа1); 
№МопСРах$ = ога('2') - ога('а') + 1; 
[110 = 2.302585092994; 
0108 = 1 / 1110; 

Выражения 


Основными элементами, из которых конструируется исполняемая часть програм- 
мы, являются константы, переменные и обращения к функциям. Каждый из этих 
элементов характеризуется своим значением и принадлежит к какому-либо типу 
данных. С помощью знаков операций и скобок из них можно составлять выражения, 
которые фактически представляют собой правила получения новых значений. 
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Частным случаем выражения может быть просто одиночный элемент, то есть 
константа, переменная или обращение к функции. Значение такого выражения 
имеет, естественно, тот же тип, что и сам элемент. В общем случае выражение со- 
стоит из нескольких элементов (операндов) и знаков операций, а тип его значения 
определяется типом операндов и видом примененных к ним операций. 

Примеры выражений: 


У 
21 


(а+Ъ) * с 

$1 (Е) 

а > 2 

поЕ Е1ад апа (а 
МТТ 

[1, 3..7] * зе%1 


|) 


Операции 


В Реры определены следующие операции: 

‚ унарные (по*, @); 

 мультипликативные (*, /, 1, поа, апа, 351, В г); 
 аддитивные (+, -, ог, хог); 

отношения (=, <>, <, >, <=, >=, 4п). 

Приоритет операций убывает в указанном порядке, то есть высшим приорите- 
том обладают унарные операции, низшим — операции отношения. Порядок вы- 
полнения нескольких операций равного приоритета устанавливается компилято- 
ром из условия оптимизации кода программы и необязательно слева направо. При 
исчислении логических выражений операции равного приоритета всегда вычис- 
ляются слева направо, причем будут вычисляться все или только достаточные опе- 
рации в зависимости от установленного флажка Сотр(ее Восо(еап еуа[ на вкладке 
Сотрег диалогового окна ОрЯоп$ (вызывается командой Ргодес* ›» Орйоп$): при ус- 
тановленном флажке вычисляются все операции отношения, при снятом — толь- 
ко те, что необходимы для однозначного определения результата исчисления. 

Правила использования операций с операндами различного типа иллюстриру- 
ет табл. 5.1. 


Таблица 5.1. Правила использования операций 


Логический 

ве [Ар [Л [ Укамель | 
* [Умножение __ |Любойцлый | Наименьший целый 
- [№ж_ ——_ |Любойвещесвеный _ | вкеепаеа 
| > _ [Шересечение множеств | Множественный | Множественный 


продолжение 1% 
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Таблица 5.1 (продолжение) 


Ехбепдеа 


|шоа | Остаток отлеления [Тож Мож 
[ааа _____| Логическое И______| Логический Логический 
[га _|Тж |Любйшый — _ Наименыший целый 
[ав | Правый диг ТЖ 
|- [Вычитаие | Любйциый Наименьший целый 
-  ж  Любойвещетвнный  вжкелает___ 
[ок | Логическое ИЛИ _____ Логичекий Логический 
[о |Тоже | Любйцлый |Наимевыший целый 
- _ [Рю | Любойпростой или строковый Логический 


Унарная операция @ применяется к операнду любого типа и возвращает резуль- 
тат типа Ро1п%ег (см. главу 8), в котором содержится адрес операнда. Если опера- 
ция @ применяется к процедуре, функции или методу в объекте, ее результатом 
будет адрес точки входа в эту процедуру (функцию, метод). Этот адрес можно ис- 
пользовать только в подпрограмме, написанной на ассемблере, или во встраивае- 
мых фрагментах (задаются ключевым словом 1п13пе). 

В Реры определены следующие логические операции: 


проф — логическое НЕ; 


" ара — логическое И; 


" ог — логическое ИЛИ; 


# хог — исключающее ИЛИ. 


Логические операции применимы к операндам целого и логического типов. Если 
операнды — целые числа, то результат логической операции есть тоже целое чис- 
ло, биты которого (двоичные разряды) формируются из битов операндов по пра- 
вилам, указанным в табл. 5.2. 
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Таблица 5.2. Логические операции (поразрядные) над данными целого типа 


Н 


ПЕ С ОО ОО А ЗО ЗО СООО 
ОВО: ЗО ЗО Нст Нет 

ОО ГО ЗИ ООО ОО ОКЗ 
ОО Е О ЗОО О ПЗ ОНИ 
ПО С ОО ОИ ПО ОО 
| 


К логическим в Ре|рЬ! обычно относятся еще две сдвиговые операции над це- 
лыми числами: 


" 1 321 5 — сдвиг содержимого 1 на 3 разрядов влево; освободившиеся млад- 
шие разряды заполняются нулями; 

"1 $Вг 5 — сдвиг содержимого 1 на 3 разрядов вправо; освободившиеся стар- 

шие разряды заполняются нулями. 

В этих операциях 1 и ) — выражения любого целого типа. 


Логические операции над логическими данными дают результат логического 
типа по правилам, указанным в табл. 5.3. 


Таблица 5.3. Логические операции над данными логического типа 


[Операнд1 [Операнд? [пе [аа [м [м | 


Операция отношения 1п применяется к двум операндам. Первым (левым) опе- 
рандом должно быть выражение любого порядкового типа, вторым — множество, 
состоящее из элементов того же типа, или идентификатор множественного типа. 
Результат операции равен Тгие, если левый операнд принадлежит множеству. 


Глава 6 
Типы данных 


Любые данные, то есть константы, переменные, свойства, значения функций или 
выражений в ОерёЫ характеризуются своими типами. Тип определяет множество 
допустимых значений, которые может иметь тот или иной объект, а также множе- 
ство допустимых операций, которые применимы к нему. Кроме того, тип опреде- 
ляет также и формат внутреннего представления данных в памяти ПК. 

Пе|рЬ! характеризуется разветвленной структурой типов данных (рис. 6.1). 
В языке предусмотрен механизм создания новых типов, благодаря чему общее ко- 
личество используемых в программе типов может быть сколь угодно большим. 


Простые 


Порядковые 


Вещественные 


Дата-время 


Структурированные 


Объекты 


Настраиваемые 
ианты 
Варианть варинты 


Классы 


Рис. 6.1. Типы данных в Оери! 


В этой и четырех последующих главах приводится подробное описание всех 
ТИПОВ. 
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Простые типы 


К простым типам относятся порядковые и вещественные типы, а также тип дата- 
время. 

Порядковые типы отличаются тем, что каждый из них имеет конечное количе- 
ство возможных значений. Эти значения можно определенным образом упорядо- 
чить (отсюда — название типов) и, следовательно, с каждым из них можно сопо- 
ставить некоторое целое число — порядковый номер значения. 

Вещественные типы, строго говоря, тоже имеют конечное количество значе- 
ний, которое определяется форматом внутреннего представления вещественного 
числа. Однако это количество настолько велико, что сопоставить с каждым из них 
целое число (его номер) не представляется возможным. 

Тип дата-время предназначен для хранения даты и времени. Фактически для 
этих целей он использует вещественный формат. 


Порядковые типы 


К порядковым типам относятся (см. рис. 6.1) целые, логические, символьный, пе- 
речисленный и тип-диапазон. К любому из них применима функция Ока (Х), ко- 
торая возвращает порядковый номер значения выражения Х. 

Для целых типов функция Ока (Х) возвращает само значение Хх, тоесть Ога (Х) = 
= Х для значения Хх, принадлежащего любому целому типу. Применение Ога (Х) 
к логическому, символьному и перечисленному типам дает положительное целое 
число в диапазоне от 0 до 1 (логический тип), от 0 до 255 (символьный), от 0 до 
65535 (перечисленный). Тип-диапазон сохраняет все свойства базового порядко- 
вого типа, поэтому результат применения к нему функции Ога (Х) зависит от 
СВОЙСТВ ЭТОГО ТИПА. 

К порядковым типам можно также применять следующие функции: 


# рРгеа (Хх) — возвращает предыдущее значение порядкового типа (значение, ко- 
торое соответствует порядковому номеру Ога (Х) -1), то есть: 
Ога (Ргеа(х)) = Ога(х) -1 


# 5исс(Х) — возвращает следующее значение порядкового типа, которое соот- 
ветствует порядковому номеру Ога (Х) +1, то есть: 


Ога (5асс (Х)) = Окха(х) + 1 
Например, пусть в программе определена переменная: 
уаг 
с: Спаг; 
Ьед1п 
.= !5'! ; 
епа; 


Тогда функция Ргеа (С) вернет символ '4', афункция $исс (С) — сим- 
вол '6'. 

Если представить себе любой порядковый тип как упорядоченное множество 
значений, возрастающих слева направо и занимающих на числовой оси некото- 
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рый отрезок, то функция Ргеа (Хх) не определена для левого, а басс (Х) — для 
правого конца этого отрезка. . 


Целые типы 


Диапазон возможных значений целых типов зависит от их внутреннего представ- 
ления, которое может занимать один, два, четыре или восемь байтов. В табл. 6.1 
приводятся названия целых типов, длина их внутреннего представления в байтах 
и диапазон возможных значений. 


Таблица 6.1. Целые типы 


Название Диапазон значений 
та тп 
бедех 
опт 

ЕЯ 


Мога 


0...4 294 967 295 
—9х1018...+9х1018 
0... 2 147 483 647 


При использовании процедур и функций с целочисленными параметрами сле- 
дует руководствоваться «вложенностью» типов, то есть везде, где может использо- 
ваться тип Иога, допускается использование типа Вуке (но не наоборот), в ГопаТпЕ 
«ВХОДИТ» 5та11Тп&, который, в свою очередь, включает в себя ЗВогЕТпе. 

Перечень процедур и функций, применимых к целочисленным типам, приве- 
ден в табл. 6.2. Буквами Ъ, $, м, 1, 1 обозначены выражения соответственно типа 
Вуке, ЗПогеТпк, ога, Тпеедег и ГопаТпь, х — выражение любого из этих ти- 
пов; буквы у, уз, ум, м1, у1, ух обозначают переменные соответствующих типов. 
В квадратных скобках указывается необязательный параметр. 


ТопаМога 
1164 


СагА1па1 


Таблица 6.2. Стандартные процедуры и функции, применимые к целым типам 


Обращение 
Возвращает модуль х 
ск (Ъ) Возвращает символ по его коду 


ес (ух [,1]) Уменьшает значение ух на 1, а при отсутствии 
1 — на 1 

1пс (Ух [,1]) о Увеличивает значение ух на 1, а при отсутствии 
1 — на 1 


Возвращает старший байт зргумента 
На (Т) Возвращает третий по счету байт 
Возвращает младший байт аргумента 
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Обращение | Тип результата 
Возвращает Тгие, если аргумент — нечетное число 


Как у параметра | Возвращает псевдослучайное число, равномерно 
распределенное в диапазоне 0... (м-1) 
Возвращает квадрат аргумента 


Меняст местами байты в слове 


При действиях с целыми числами тип результата будет соответствовать типу 
операндов, а если операнды относятся к различным целым типам, — общему типу, 
который включает в себя оба операнда. Например, при действиях с ЗВогеЕТпе 
и МогА общим будет тип Тпфедег. При стандартной настройке компилятор ОерН 
не вырабатывает код, осуществляющий контроль за возможной проверкой выхода 
значения из допустимого диапазона, что может привести к недоразумениям. На- 
пример, при прогоне следующей программы на экране появится значение 0: 


Вапаоп (м) 


ргосе4иге ТЕпЕхапр1е.5ЮВопС11скК (бепаег: ТОБ)ес®); 


уаг 
К: Мога; 
Бед1п 
К := 65535; // Максимальное значение 
// типа Мога 
К := К+1; - // По правилам математики 
// К=65536 
1600Ерае.СарЕ1оп := ТпЕТобег (К); // На самом деле К=0! 
епа; 


Если установить флажок Капде спесКтд на вкладке СотрИег диалогового окна 
Орйоп$ (открывается командой Рго]есЕ » Орйоп$) и повторить компиляцию с по- 
мощью команды Рго]есЕ » Виа АЦ, компилятор вставит в программу код проверки 
переполнения и при прогоне программы возникнет исключительная ситуация, 
которую при желании можно соответствующим образом обработать. Замечу, что 
если изменить программу так, как показано ниже, переполнения не произойдет, 
так как 32-разрядный компилятор версий Ое]рЬ! автоматически преобразует опе- 
ранды выражения К+1 к4-байтным величинам: 


К := 65535; // Максимальное значение 
// типа ИМога 
1600Ероае.СарЕ1оп := ТпЕТобег (к + 1); // Будет выведено 
// 65536 


При обращениям к функциям АР] \/т4о\з могут использоваться следующие 
целые типы, определенные в модуле И1паомз (табл. 6.3). 


Таблица 6.3. Целые типы для связи с ядром МИпао\/$ 


Тип поз 
РИОКО ГопаЙога ОСНАВ 


Базовый тип 


продолжение :# 
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Таблица 6.3 (продолжение) 


РАНСТЬ отв ГопаИога 


Стр ГопаИога сое 
Новт та тп О ПО 


Логические типы 


К логическим относятся типы Воо1еап, ВукеВоо1, Воо1, МогаВоо1 и ГопаВоо1. 
В стандартном языке Паскаль определен только тип Воо1еап, остальные логи- 
ческие типы введены в Хар! для совместимости с \/т4о\з: типы Воо1еап 
и ВусеВоо1 занимают по одному байту каждый, Воо1 и ИогаВоо]1 — по 2 байта, 
ГопдВоо]1 -— 4 байта. Значениями логического типа может быть одна из предва- 
рительно объявленных констант ЕГа1зе (ложь) или Ткие (истина). Для них спра- 
ведливы правила: 


Ога (Га15е) = 0 
Ога (Тгае) <> 0 
Зисс (РГа15е) = Тгце 
Ргеа (Тгае) Га1зе 


Поскольку логический тип относится к порядковым типам, его можно исполь- 
зовать в операторе цикла счетного типа, например. 


уаг 
1 ; Воо1еап; 
Бед1п 
Еог 1 := Га1зе №0 Тгое ао... 

Однако необходимо помнить, что в 32-разрядных версиях Пер! для Воо1еап 
значение Ога (Тгое) = +1, в то время как для других типов (Воо1, ИогаВоо1 
ИТ. Д.) Ога (Тгае) = -1, поэтому такого рода операторы следует использовать 
с осторожностью'. Например, для версии ОерЫ 7 исполняемый оператор $вВом- 
Меззаае ('---') в следующем цикле ох не будет выполнен ни разу: 

уагх | 

.: Воо1; 
Бед1п 
Еог Г := Ка1зе Фо Тгое ао 
ЗПомМезз5асе ('---'); 
епа; 


Если заменить тип параметра цикла 1, в предыдущем примере на Воо1еап, цикл 
будет работать, и сообщение дважды появится на экране. 


Символьный тип 


Значениями символьного типа является множество всех символов клавиатуры 
компьютера. Каждому символу приписывается целое число в диапазоне 0...255. Это 


' Для ОерЫ версий 1 и 2 ока (Тгие) = +1 для любого логического типа. 
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число служит кодом внутреннего представления символа, его возвращает функ- 
ЦИЯ Ога. 

Для кодировки в \У/т4о\$ используется код АМ$З] (назван по имени Атегсап 
Майопа!| Зкап4ага п$Нище — американский институт стандартизации, предложив- 
ший этот код). Первая половина символов ПК с кодами 0...127 представлена 
в табл. 6.4. Вторая половина символов с кодами 128...255 меняется для различных 
шрифтов. Стандартные УЛп4о\5-шрифты Апа|, Соипег М№е\, Типез М№ем Котап 
для представления символов кириллицы (без букв «ё» и «Ё») используют после- 
дние 64 кода (от 192 до 256): «А»...«Я» кодируются значениями 192...223, «а»...«я» — 
224...255. Символы «Ё» и «&» имеют соответственно коды 168 и 184. 


Таблица 6.4. Кодировка символов в соответствии со стандартом АМ$| 


Бот ЕРЕВАН ЗИ ЗИ ЕТ 
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Таблица 6.4 (продолжение) 


Символы с кодами 0...31 относятся к служебным кодам. Если эти коды исполь- 
зуются в тексте программы, они считаются пробелами. 
К типу Стаг применимы операции отношения, а также встроенные функции: 


 сВЕ(В) — функция типа СБаг; преобразует выражение В типа Вусе в символ 
и возвращает его своим значением; 


2; ОрСазе (СН) — функция типа Спаг; возвращает прописную букву, если СН — 
строчная латинская буква, в противном случае возвращает сам символ СН (для 
кириллицы возвращает исходный символ). 


Перечисленный тип 


Перечисленный тип задается перечислением тех значений, которые он может по- 
лучать. Каждое значение именуется некоторым идентификатором и располагает- 
ся в списке, обрамленном круглыми скобками, например: 

туре 

со10ог5$ = (геа, мр1Ее, Б1ае); 

Применение перечисленных типов делает программы нагляднее. Если, напри- 
мер, в программе используются данные, связанные с месяцами года, то следую- 
щий фрагмент программы был бы, согласитесь, очень наглядным: 


Суре 

ТипМесяц= (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); 
уаг 

месяц : ТипМесяц; 
Бед1п 

1ЁЕ месяц = авг еп 

16О00Ерие.Саре1оп := "Хорошо бы поехать к морю! '; 

епа. 


Увы! В ОерЫ нельзя использовать кириллицу в идентификаторах, поэтому мы 
вынуждены писать так: 
Суре 
ТуреМопЕВ= (}ап, Ее, маг, мау, ) ип, 41, ааа, зер, ос®, пох, аес); 
уаг 
попЕП: ТуреМмопёВ; 


Простыетипы 117 


Бед2п 
1Е попЕП = аца ®Беп 
150% Ера*.Саре1оп := 'Хорошо бы поехать к морю! '; 


епа. 


Соответствие между значениями перечисленного типа и порядковыми номера- 
ми этих значений устанавливается очередностью перечисления: первое значение 
в списке получает порядковый номер 0, второе -— 1 ит. д. Максимальная мощность 
перечисленного типа составляет 65 536 значений, поэтому фактически перечис- 
ленный тип задает некоторое подмножество целого типа Мога и может рассматри- 
ваться как компактное объявление сразу группы целочисленных констант со зна- 
чениями 0, 1 ит. д. 

Использование перечисленных типов повышает надежность программ благо- 
даря возможности контроля тех значений, которые получают соответствующие 
переменные. Пусть, например, заданы такие перечисленные типы: 


суре 
со10ог$ = (Ъ]асКк, геа, мр1%е); 
огаепа]= (опе, %мо, $Пгее); 
Чау$ = (Мопаау, Таезаау, Меапезаау); 


С точки зрения мощности и внутреннего представления все три типа эквива- 
лентны: 


"" Ога (Б1асК) =0, ..., Ога (мр1е) =2, 
”” Ога (опе) =0, ..., Оха (&Вгее) =2, 


”" Ога (Мопаау) =0, ... , Ога (Меапезаау) =2. 
Однако рассмотрим случай, когда определены следующие переменные: 


у\уаг 
со1 : с010г$; 
пи : огаепа1; 
Чау : Чауз$; 
Тогда перечисленные ниже операторы допустимы: 


со1 := Б1аск; 
пам := басс (мо); 
ау := Ргеа (Тоаезаау); 


В то время как следующие операторы недопустимы: 


со1 := опе; 
Чау := Б1асКк; 


Как уже упоминалось, между значениями перечисленного типа и множеством 
целых чисел существует однозначное соответствие, задаваемое функцией Оха (Х). 
В ОерЫ! допускается и обратное преобразование: любое выражение типа Иога 
можно преобразовать в значение перечисленного типа, если только значение це- 
лочисленного выражения не превышает мощности этого типа. Такое преобразова- 
ние достигается применением автоматически объявленной функции с именем пе- 


118 Глава 6. Типы данных 


речисленного типа. Например, для рассмотренного выше объявления типов экви- 
валентны следующие присваивания: 


со1 := Б1аск; 
со1 := со]10:$ (0); 


Разумеется, представленное ниже присваивание будет недопустимым, Так Как 
перечисленному типу нельзя присвоить Целое значение: 


со] := 0; 


Переменные любого перечисленного типа можно объявлять без предваритель- 
НОГО ОоПИсания этого типа, Например: 


уаг 
со1: (р1асКк, мП16е, агееп); 


Тип-диапазон 


Тип-диапазон есть подмножество своего базового типа, в качестве которого может 
выступать любой порядковый тип, кроме типа-диапазона. 
Тип-диапазон задается границами своих значений внутри базового типа: 


<мин.знач.>. .<макс.знач.> 


Здесь <мин . знач . > — минимальное значение типа-диапазона; <макс.знач.> — 
максимальное его значение. 


Например: 

суре 
Ча1еЕ = '0'..'9'; 
а1а2 = 48 .. 57; 


Тип-диапазон необязательно описывать в разделе буре, а можно указывать 
непосредственно при объявлении переменной, например: 


маг 
Чафе : 1..31; 
попер: 1..12; 
1спг : 'А'..'0!;. 
При определении типа-диапазона нужно руководствоваться следующими 
правилами: 


 двасимволаточки (. .) рассматриваются как один символ, поэтому между ними 
недопустимы пробелы; 


„.„ Левая граница диапазона не должна превышать его правую границу. 


Тип-диапазон наследует все свойства своего базового типа, но с ограничения- 
ми, связанными с его меньшей мощностью. В частности, пусть определена пере- 
менная.: | 


Суре 
Чау$ = (мо, ба, ме, ЕП, Ег, за, 54а); 
МееКкКЕпа = за .. $51; 

маг 


и : МееКЕра; 
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епа; 

Тогда функция Ога (М) вернет значение 5, в то время как Ргеа (И) приведет 
к ошибке. 

В стандартную библиотеку Оер!! включены две функции, поддерживающие 
работу с типами-диапазонами: 


"” Нлав (Хх) — возвращает максимальное зНачение типа-диапазона, к которому 
принадлежит переменная Х; 


”. Том (Хх) — возвращает минимальное значение типа-диапазона. 


Вещественные типы 


В отличие от порядковых типов, значения которых всегда сопоставляются с рядом 
целых чисел и, следовательно, представляются в ПК абсолютно точно, значения 
вещественных типов определяют произвольное число лишь с некоторой конечной 
точностью, зависящей от внутреннего формата вещественного числа (табл. 6.5). 


Таблица 6.5. Вещественные типы 


Длина, | Название Количество значащих цифр | Диапазон значений 
байтов 


[её [156 миа" 
[зале [6.8 11508. 34мм 


прое [15.46 [бам 
Зк10иия,.1.1х109 

[ео 
[8 [сохкепсу [19.0 [4922337203685477.5807 | 


ПРИМЕЧАНИЕ В версиях Оерь! 1...3 тип Веа1 занимал 6 байт и имел диапазон значе- 
ний от 2,9х10`39 до 1,7ж1038. В версиях 4...7 этот тип эквивалентен 
типу РооЪ1е. Если требуется (в целях совместимости) использо- 
вать 6-байтный тип Веа1, нужно указать директиву компилятора 
{<ВЕАГСОМРАТТВТЬТТУ ОМ}. 


Как видно из табл. 6.5, вещественное число в Ое|р!1 занимает от 4 до 10 смеж- 
ных байтов и имеет следующую структуру в памяти компьютера: 


ест 


Здесь $ — знаковый разряд числа; е — экспоненциальная часть; содержит дво- 
ичный порядок; т — мантисса числа. 

Мантисса т имеет длину от 23 (для $1па1е) до 63 (для Ехсепаеа) двоичных 
разрядов, что и обеспечивает точность 6...8 для $1п91е и 19...20 для Еххепаеа 
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десятичных цифр. Десятичная точка (запятая) подразумевается перед левым (стар- 
шим) разрядом мантиссы, но при действиях с числом ее положение сдвигается 
влево или вправо в соответствии с двоичным порядком числа, хранящимся в экс- 
поненциальной части, поэтому действия над вещественными числами называют 
арифметикой с плавающей точкой (запятой). 

Отметим, что арифметический сопроцессор всегда обрабатывает числа в фор- 
мате Ехсепаес, а три других вещественных типа в этом случае получаются про- 
стым усечением результатов до нужных размеров и применяются в основном для 
экономии памяти. | 

Например, пусть «машинное эпсилон» (см. описание программы Ер$Полп в гла- 
ве 4) вычисляется с помощью такой программы: 


Суре 
БКеа]Туре = Веа1; 
уаг 
Ерз11оп : Веа1Туре; 
Бед1п 
Ерз11о0оп := 1; 
\р11е 1+Ерз$11оп/2 > 1 ао 
Ерз11оп := Ер$110оп/2; 
1р0оЕриае.СарЕ1оп := Е1оаЕТобег (Ерз11оп) 
епа; 


Тогда независимо от объявления типа Веа1Туре (он может быть $1п491е, Веа1, 
Рос 1е или Ехеепдеа) на печать будет выведен следующий результат: 

1,08420217248550Е-0019 

Это соответствует типу Ехфепаеа, поскольку все операнды вещественного 
выражения 1+Ерз11оп/2 в операторе мЬ11е перед вычислением автоматически 


преобразуются ктипу Ехеепаеа. Чтобы получить правильный результат, програм- 
му необходимо изменить следующим образом: 


Суре 
Веа]1Туре = КВеа1; 
уаг 
Ер$11оп, Ер$1 ;: Кеа]1Туре; 
Бед1п 
Ер$11о0п := 1; 
гереа* 
Ер$1]1оп := Ерз11оп/2; 
Ерз1 := 1 + Ер$110п 
11611 Ер51 = 1; 
16036 риае.Саре&1оп := Е1оа%Тобег (2*Ер511оп) 
епа. 


Особое положение в РерЬ! занимают типы Сопр и Сиггепсу, которые тракту- 
ются как вещественные числа с дробными частями фиксированной длины: в Сомр 
дробная часть имеет длину 0 разрядов, то есть просто отсутствует, в Саггепсу 
длина дробной части составляет 4 десятичных разряда. Фактически, оба типа оп- 
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ределяют большое целое число со знаком, сохраняющее 19...20 значащих десятич- 
ных цифр (во внутреннем представлении они занимают 8 смежных байтов). В то 
же время в выражениях Сопр и Сиггепсу полностью совместимы с любыми дру- 
гими вещественными типами: над ними определены все вещественные операции, 
они могут использоваться как аргументы математических функций и т. д. Наибо- 
лее подходящей областью применения этих типов являются бухгалтерские расчеты. 

Для работы с вещественными данными могут использоваться стандартные ма- 
тематические функции, представленные в табл. 6.6. В этой таблице Веа1 означает 
любой вещественный тип, Тпкедег — любой целый тип. 


Таблица 6.6. Стандартные математические функции Оберм 


Обращение | Тип пара- | Тип резуль- Примечание 
метра тата 

арз (х) Веа1, Тип аргумента Модуль аргумента 
о вы 


| АксТап(х) | ‚ веа1  |веа1 == |Арктангенс (значение в радианах) Арктангенс (значение в радианах) 
олоо Тоже Тоже | Логарифм шатурмыый 
ож [1-3415926. 


Капаом То же  Посвлослучайное число, равномерно 
распределенное в диапазоне 0...[ 1] 
Вапаоп (х) Тпкеадег | 


ВапАотм1ге 


Псевдослучайное целое число, равномерно 
распределенное в диапазоне 0... (х-1) 


Инициализация генератора 
псевдослучайных чисел 


Синус, угол в радианах 
Квадрат аргумсита 
акс ож ож — [краьюальтны 


заг® (х 


Указанная в таблице функция Вапаом представляет собой генератор псевдо- 
случайных чисел. Эта функция получает некоторое целое число, называемое базо- 
вым, изменяет его разряды по определенному алгоритму и выдает новое число как 
результат. Одновременно с этим новое число становится базовым при следующем 
обращении к функции и т. д. (Так как алгоритм процедуры не меняется в ходе ее 
работы, числа называются исевдослучайными.) В системном модуле 5узеет, кото- 
рый автоматически доступен любой программе, базовое число хранится в пере- 
менной с именем Вапа5еек и всегда имеет начальное значение 0. Это означает, 
что при последовательном обращении к функции Вапаом в разных программах 
(или при нескольких ‘прогонах одной программы) будет всегда выдана одна и та 
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же последовательность псевдослучайных чисел. Например, при следующем обра- 
ботчике БЮВопС11сК окно нашей учебной программы будет выглядеть так, как 
показано на рис. 6.2: 


ргосеааге ТЕпЕхапр1е.6ВипС11скК (бепаек: ТОБЗес®); 
уаг 

К: Тпбсеаег; 

5,55: 56ЕгЕ1па; 
Бед1п 


Бог К := 1 во 300 ао 
Бед1п 
55 := ТаЕТобег (Вапаом (1000)); 
мр11е ГепаеЕМ (55) <3 ао 
55 := '0'+55; 
5 := 95+55+'! '; 
1Е К моа 20=0 Ецеп 
Бед1п 
пиОчерие. Ь1пе$5 .Ааа ($); 
К ‚ = т 


000 031 861 20г 272 671 318 161 З7г 425 082 474 070 840 053 2933 917 367 774 327 ты 
_ 697 844 71? 306 162 329 466 246 825 273 481 149 874 287 772 976 492 887 827 020 
Е 141 143 500 021 592 009 774 650 770 708 557 206 681 592 955 644 998 243 676 235 
2085 772 495 881 509 573 953 684 338 007 705 988 774 749 197 143 913 784 583 864 
2689 287 093 628 280 87? 161 273 543 960 174 157 268 177 576 498 285 155 609 733 
|746 080 076 059 106 795 805 381 612 436 740 493 341 818 817 141 093 067 060 193 
(672 227 570 254 365 837 314 314 656 692 902 318 478 2936 766 740 551 723 411 542 
(595 880 668 112 471 403 114 053 548 673 080 921 838 681 927 277 700 734 499 663 
2158 230 946 364 126 986 306 054 101 866 554 697 100 668 016 309 904 535 327 442 
900 347 353 487 071 350 760 180 922 493 127 892 403 207 807 587 109 623 9327 540 
|326 448 226 184 630 996 629 691 540 097 747 148 232 880 713 438 980 154 033 184 
{009 378 394 363 082 453 504 460 675 817 566 253 372 582 874 607 257 696 557 878 
2360 363 621 780 457 205 698 837 751 901 186 775 267 235 702 456 364 188 012 224 
} 899 322 862 763 966 274 396 836 020 246 052 507 422 000 150 709 312 395 547 250 
(151 292 076 705 330 789 655 566 896 021 255 884 684 032 158 155 412 418 143 003 


. — 
К С озе . 
ель 


Рис. 6.2. Последовательность псевдослучайных чисел 
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В программе выводятся 300 псевдослучайных чисел, которые группируются 
в строки по 20 чисел и дополняются ведущими нулями, если число имеет меньше 
трех цифр. Если вы захотите повторить программу, вы получите точно такую же 
последовательность чисел, что и на рис. 6.2. С помощью процедуры ВКапаом12е 
в переменную Вапа5еек можно поместить численное значение системного вре- 
мени, что приведет к генерации другой последовательности. Обращение к этой про- 
цедуре нужно сделать в самом начале обработчика. 

_ ВРеры включен модуль Ма& сп, который существенно расширяет перечислен- 
ный в табл. 6.6 набор встроенных математических функций. Особенностью реали- 
зации содержащихся в нем более 70 функций и процедур является их оптимиза- 
ция для работы с арифметическим сопроцессором класса Репйиит, так что все они 
производят необходимые вычисления за рекордно малое время. Исходный текст 
модуля содержится в файле боигсе\ В \буз\МаесН.раз каталога размещения Оеры. 
В приложении Б перечисляются некоторые подпрограммы модуля Мафесв. 


Тип дата-время 


Тип дата-время определяется стандартным идентификатором ТРафеТ1те и пред- 
назначен для одновременного хранения и даты, и времени. Во внутреннем пред- 
ставлении он занимает 8 байт и, подобно типу Сиггепсу, представляет собой ве- 
щественное число с фиксированной дробной частью: в целой части числа хранится 
дата, в дробной — время. Дата определяется как количество суток, прошедших с 
30 декабря 1899 г., а время — как часть суток, прошедших с 0 часов, так что значе- 
ние 36444,837 соответствует дате 11.10.1999 и времени 20:05. Количество суток 
может быть и отрицательным, однако значения, меньшие —693 594 (соответствует 
дате 00.00.0000 от Рождества Христова), игнорируются функциями преобразова- 
ния даты к строковому типу. 

Над данными типа ТРафеТ1ме определены те же операции, что и над веще- 
ственными числами, а в выражениях этого типа могут участвовать константы и пе- 
ременные целого и вещественного типов. Для работы с датой и временем исполь- 
зуются подпрограммы, некоторые из которых перечислены в табл. 6.7. 


Таблица 6.7. Подпрограммы для работы с датой и временем 


ЕопсЕ1оп Рафе: ТРафеТ1пе; Возвращает текущую дату 


Подпрограмма 


Еапсе1оп ПасеТобег (р: 
ТрРафеТ1ме): 5%гапда; 


Преобразует дату в строку символов 


Еипсе1оп ПабсеТ1теТоЗех (р; 
ТРафсеТ1пе): $%гхапа; 


Преобразуст дату и время в строку символов 


Еапсе1оп ГогмасракеТ1ме 
(Гогма*: Зг1па; Уа10е: 
ТРафзеТ1пе): $ЗЕг1пд; 


Преобразует дату и время из параметра Уа1ае 
в строку символов в соответствии со 
спецификаторами параметра Гогща® 
(см. пояснения в разделе «Строки») 


Еопсе1оп Мом: ТБафеТ1пе; Возвращает текущис дату и время 
Еапсе1оп Т1те: ТрафеТ1пе; Возвращает текущее время 


Бопселоп Т1теТобскг(Т: Преобразует время в строку 
ТРасеТ1те): $%:1пд; 
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Полный перечень функций для работы с датой-временем приводится в прило- 
жении Б. 

Поскольку тип ТРафеТ1те совместим с форматом вещественных чисел, мож- 
но без труда определить дату, отстоящую от заданной на сколько-то дней вперед 
или назад: для этого достаточно соответственно прибавить к заданной дате или 
отнять от нее нужное целое число. Например, следующий оператор поместит в мет- 
ку 160 цЕрие дату, соответствующую текущей дате плюс 3 недели: 


1Ь0чЕрие.СарЕ1оп := РафеТобег (Рафе + 21); 


Чуть сложнее с исчислением времени. Например, чтобы добавить к текущему 
времени полтора часа, можно использовать любое из выражений: 


Т1ме + ЗЕгТоТ4 ме ('1:30') 
Т1ме + 1.5/24 


Замечу, что специализированные функции Тпсхххх (см. приложение Б) ме- 
няют указанную дату-время на нужное количество лет, месяцев, недель, дней, ча- 
сов, минут, секунд, миллисекунд: 


1504 Ероае.Саре1оп := РабеТо5ег (Тпсрау (Рафе, 21)); 
ТпсНочхг (ТпсМ1поаее (Т1лпе, 30), 1). 


С помощью показанного ниже обработчика БЬВипС11ск учебной программы 
вы сможете ввести в текстовое поле любое вещественное число и посмотреть его 
интерпретацию как значение типа ТРафеТ1те: 


ргосе4иге ТЕпЕхапр1е.5ЬВКипС11скК (бепаег: ТОБЗесЕе); 
{Показывает вещественное число, введенное в поле еаТприЕ, 
в Формате даты-времени} 
уаг 
К: РооЬ1е; 
Бед1п 
// Преобразуем строковый ввод в вещественное число 
Еху 
К := ЗЕгТоЕР1оа® (еЧ4Тпро®.Тех®); 
ехсере 
ЗПомМе$засце ('Ошибка записи вещественного числа'); 
еЧЯТпрое.5е1ес®А11; 


Ех 
епа; 
// Показываем результат как дату-время 
1БО0чЕроае.СарЕе1оп := ГогмаеВафеТ1ме 


('аа.пм.уууу — №В:тм:$$', К); 
// Возвращаем фокус ввода в еаТприЕ 
еаТпра® .5ееРосиз; 
епа; 


Структурированные типы 


Любой из структурированных типов (ав Оеры их четыре: массивы, записи, мно- 
жества и файлы) характеризуется множественностью образующих этот тип эле- 


Структурированные типы 125 


ментов. Каждый элемент, в свою очередь, может принадлежать структурирован- 
ному типу, что позволяет говорить о возможной вложенности типов. В Реры! до- 
пускается произвольная глубина вложенности типов, однако суммарная длина 
любого из них во внутреннем представлении не должна превышать 2 Гбайт. 

В целях совместимости со стандартным языком Паскаль в ОерЫ! разрешается 
перед описанием структурированного типа ставить зарезервированное слово 
раскКе@, предписывающее компилятору по возможности экономить память, отво- 
димую под объекты структурированного типа. 


Массивы 


Массивы в Реры ВО МНОГОМ СХОЖИ С аналогичными типами Данных в других язы- 
ках программирования. Отличительная особенность массивов заключается в ТОМ, 
что все их компоненты — Данные одного типа (возможно, структурированного). 
Эти компоненты можно легко упорядочить и обеспечить ДОСТУП К любому ИЗ НИХ 
простым указанием его порядкового номера, Например: 


Суре 
91916 = аггау [0..9] оЕЁ Съаг; 
паег1х = агхау [Русе] оЕЁ $51пад1е; 
уаг 
Ш: пафг1х; 
Ч: 91914; 
1: 1пседег; 
Бед1п 
[17] := ога (9[1-1])/10; 
епа. 


Описание типа массива задается следующим образом: 
<имя типа> = акгхау [ <сп.инд.типов> ] ©оЁ <тип>; 


Здесь <имя типа> — правильный идентификатор; аггхау, оЕ — зарезервиро- 
ванные слова (массив, из); <сп.инд.типов> — список из одного или нескольких 
индексных типов, разделенных запятыми; квадратные скобки, обрамляющие спи- 
сок, — требование синтаксиса; <тип> — любой тип Иер]. 

В качестве индексных типов в Ое|рЬ! можно использовать любые порядковые 
типы, имеющие мощность не более 2 Гбайт (то есть кроме ГопаМога и Тп+ 64) 

Определить переменную как массив можно и непосредственно при описании 
этой переменной без предварительного описания типа массива, например: 


\аг 
а, ЮР: аггхау [1..10] оЁ КБеа1; 


Обычно в качестве индексного типа используется тип-диапазон, в котором за- 
даются границы изменения индексов. Так как тип <тип>, идущий вописании мас- 
сива за словом о, — любой тип Пер, то он может быть, в частности, и другим 
массивом, например: 


суре 
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пае = агхау [0..5] оЕ аггхау [-2..2] оЕЁ аггау [Спаг] оЕ 
Вусе; 

Такую запись можно заменить более компактной: 
Суре | 
пас = агхау [0..5, -2..2, спаг] оЕЁ Ву%е; 

Глубина вложенности структурированных типов вообще, а, следовательно, 
и массивов произвольная, поэтому количество элементов в списке индексных ти- 
пов (размерность массива) не ограничено, однако суммарная длина внутреннего 
представления любого массива не может быть больше 2 Гбайт. В памяти ПК эле- 
менты массива следуют друг за другом так, что при переходе от младших адресов 
к старигим наиболее быстро меняется самый правый индекс массива. Например: 


уаг 
а: аггау [1..2, 1..2] оЕЁ Вусе; 
Бед1п 


епа. 


Для такого массива в памяти последовательно друг за другом будут расположе- 
ны байты со значениями 1, 3, 2, 4. Это обстоятельство может оказаться важным 
при использовании стандартной процедуры копирования памяти МоуеМемокгу. 

В Ре!рЫ! можно одним оператором присваивания передать все элементы одно- 
го массива другому массиву того же типа, например: 


уаг 
а, Ь: аггау [1..5] оЕЁ 51па]е; 
Бед1п 
а := ВБ; 
епа. 


После этого присваивания все пять элементов массива А получат те же значе- 
ния, что и элементы в массиве В. Замечу, что следующее объявление создаст раз- 
ные типы Массивов: 


уаг 
а: аггау [1..5] оЕ 51па1е; 
Ь: аггау [1..5] оЁ 51па1е; 


Поэтому показанный ниже оператор вызовет сообщение об ошибке: 

а := ВБ; 

Над массивами не определены операции отношения. Нельзя, например, запи- 
сать: 

1Е а = Ь еп ... 

Сравнить два массива можно поэлементно, например: 
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уаг 
а, ЮР: аггау [1..5] оЕЁ $51п91е; 
еа : Воо1еап; 
1 : Вуее; 
Беда 
еа := Тгаое; 
Бог 1 := 1 0 5 @ 
1Е а[1] <> 6[1] &Веп 
еа := Га1$е; 
1Е еа Бел 
епа. 


Динамические массивы 


В версии Пер 4 впервые введены так называемые динамические массивы. При 
объявлении динамических массивов в программе не следует указывать границы 
индексов: 


уаг 
А: аггау оЕЁ Тпседег; 
В: агхау оЁ аггау оЕЁ Стаг; 
С: агхау оЕ аггау оЕЁ аггау оЕЁ Веа1; 


В этом примере динамический массив А имеет одно измерение, массив В — два 
и массив С — три измерения. Распределение памяти и указание границ индексов 
по каждому измерению динамических массивов осуществляется в ходе выполне- 
ния программы путем инициализации массива с помощью функции 5$е ТепаЕВ. 
В ходе выполнения следующего оператора одномерный динамический массив А 
будет инициализирован, то есть получит память, достаточную для размещения трех 
целочисленных значений: 


бЗесьепает (А, 3); 


Нижняя граница индексов по любому измерению динамического массива все- 
гда равна 0, поэтому верхней границей индексов для А станет значение 2. 

Фактически идентификатор динамического массива ссылается на указатель, 
содержащий адрес первого байта памяти, выделенной для размещения массива. 
Поэтому для освобождения этой памяти достаточно присвоить идентификатору 
значение МТ! (другим способом является использование процедуры Е1па112е): 


уаг 
А, В: аггау оЕЁ Тотедег; 
Бед1п 
// Распределяем память: 
бесЬепаей (А, 10); 
Зееьепаев (В,20); 
// Используем массивы: 
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// Освобождаем память: 


А := МТ; 
ЕГ1па117е(В); 
еп; 


При изменении длины уже инициированного динамического массива по како- 
му-либо его измерению сначала резервируется нужная для размещения нового 
массива память, затем элементы старого массива переносятся в новый, после чего 
освобождается память, выделенная прежнему массиву. Чтобы сократить допол- 
нительные затраты времени, связанные с изменением границ большого динами- 
ческого массива, следует сразу создать массив максимальной длины. 

В многомерных массивах сначала устанавливается длина его первого измере- 
ния, затем второго, третьего ит. д. Например, вот как создается динамический мас- 
сив3х3: 


уаг 
А: аггау оЕЁ аггау оЕЁ Тпседег; 
// Двумерный динамический массив 
Бед1п 
// Устанавливаем длину первого измерения 
// (количество столбцов): 
бееьепаЕТ (А, 3); 
// Задаем длину каждого столбца: 
ЗееьепаеВ (А[0],3); 
бесьепаей (А[1],3); 
Зееьепаев (А[2],3); 


епа; 


Замечу, что Зе ЪепаЕН — одна из немногих стандартных подпрограмм, кото- 
рая допускает обращение с переменным количеством параметров. Вместо четырех 
строк в предыдущем примере можно использовать одну: 


бЗеЕеЬепа В (А, 3, 3); 


Обратите внимание: в отличие от обычных массивов стандартного языка Пас- 
каль (и ОерЫ), динамические массивы могут иметь разную длину по второму и сле- 
дующим измерениям. В предыдущем примере определен квадратный массив Зх 3. 
Однако ничто не мешает нам создать, например, треугольный массив (обращаться 
к подпрограмме 5$е ГепаеП с количеством параметров более трех нельзя): 


Зесьепаей (А, 3); 

// Задаем длину каждого столбца: 
ЗесЬепаен (А[0],3); 

ЗееьепаевВ (А[1],4); 

Зееьепаей (А[2],5); 


В многомерных динамических массивах каждый элемент любого из М-1 изме- 
рений (№ — количество измерений) представляет собой динамический массив 
и, следовательно, нуждается в инициализации. Вот как, например, можно инициа- 
лизировать вещественный кубический массив Зх 3х3: 
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уаг 
А: аггау оЕЁ аггау оЕЁ аггау оЕЁ КВеа1; 
1, ): Тпбеаег; 


Бедап 
бесЬепаеВ (А, 3); 
Бог 1 := О 0 2 @ 
Бедлп 
бееьепаеН (А[1],3); 
Бог ) := 0 во 2 ао 
бееьепаев {А[1,7],3); 
епа; 
епа; 
Записи 


Запись — это структура данных, состоящая из фиксированного количества компо- 
нентов, называемых полями записи. В отличие от массива, компоненты (поля) за- 
писи могут быть разного типа. Чтобы можно было ссылаться на тот или иной ком- 
понент записи, поля именуются. 

Структура объявления типа записи такова: 


<имя типа> = гесога <сп.полей> епа; 


Здесь <имя типа> — правильный идентификатор; гесога, еп — зарезерви- 
рованные слова (запись, конец); <сп.полей> — список полей; представляет со- 
бой последовательность разделов записи, между которыми ставится точка с запя- 
ТОЙ. 

Каждый раздел записи состоит из одного или нескольких идентификаторов 
полей, отделенных друг от друга запятыми. За идентификатором (идентификато- 
рами) ставится двоеточие и описание типа поля (полей), например: 

Суре 

В1геПрау = гесога 
Рау, МопЕБ: Вуее; 
Уеаг : Мога 

епа; 

уаг 

а, Ю : В1гЕ Ваау; 

В этом примеретип В1 гЕПРау (день рождения) есть запись с полями Рау, Мопе 
и Уеаг (день, месяц и год); переменные А и В содержат записи типа В1гепрау. 

Как и в массиве, значения переменных типа записи можно присваивать другим 
переменным того же типа, например: 


а := ББ; 


К каждому из компонентов записи можно получить доступ, если использовать 
составное имя, то есть указать имя переменной, затем точку и имя Поля: 


а.Чау := 27; 
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Ю.уеаг := 2002; 
Для вложенных полей приходится продолжать уточнения: 
Суре 
В1г%ПРау = гесога 
Рау, МопЕП: Вусе; 
Уеаг Иога 
епа; 
уаг 
с : хесога 
Маме: 3&г1па; 
Ва В1гЕПрау 
епа; 
Бед1п 


1Е с.Ва.уеаг = 1989 $Веп 

епа. 

Чтобы упростить доступ к полям записи, используется оператор присоедине- 
ния м1 ЕВ: 

м1ЕВ <переменная> Ао <оператор>; 

Здесь м1 В, 4о — зарезервированные слова (с, делать); <переменная> — имя 
переменной типа запись, за которым, возможно, следует список вложенных полей; 
<оператор> — любой оператор Ое]рн:. 


Например: 

с.Ва.МопЕеН := 9; 

Это эквивалентно любому из следующих трех операторов: 
м1ЕБ с.Ва ао МопЕВ := 9; 

м1ЕВ с ао м1 ЕВ Ва ао МопЕв := 9; 

м1 ЕВ с, Ва ао МопЕВ := 9; 


Ое|рЬ! разрешает использовать записи с так называемыми вариантными поля- 
ми, например: 
Суре 
ГКогта = гесога 
Маме: Зег1па; 
сазе Буфе оЁ 


0: (В1еЕБР1асе: $6хара [40]); 

1: (СоопЕку ЗЕтапа [20]; 
ЕпЕгуРогЕ ЗЕгапа [20]; 
Епегурафе 1..31; 
Ех1ЕРафе 1..31) 


епа; 
В этом примере тип Гогма определяет запись с одним фиксированным полем 
Маме и вариантной частью, которая задается предложением сазе ... о. Вариант- 
ная часть состоит из нескольких вариантов (в примере — из двух вариантов: 0 и Г). 
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Каждый вариант определяется константой выбора, за которой следует двоеточие 
и список полей, заключенный в круглые скобки. В любой записи может быть толь- 
ко одна вариантная часть, и, если она есть, она должна располагаться за всеми фик- 
сированными полями. 

Замечательной особенностью вариантной части является то обстоятельство, что 
все заданные в ней варианты «накладываются» друг на друга, то есть каждому из 
них выделяется одна и та же область памяти. Это открывает дополнительные воз- 
можности преобразования типов, например: 


уаг 
Меп4: хесога 
сазе Ву{е оЁ 
0: (Бу: агхау [0..3] оЕЁ Ву%е); 
1: (мо: агхау [0..1] оЕЁ Мога); 
2: (1о: БопаТп®); 
епа; 


В этом примере запись Мем4 имеет три варианта, каждый из которых занимает 
в памяти один и тот же участок из 4 байт. В зависимости от того, к какому полю 
записи мы обращаемся в программе, этот участок может рассматриваться как мас- 
сив из 4 байт (поле ру), массив из двух целых типа Мога (поле мо) или, наконец, 
как одно целое число типа БопаТп® (поле 1о). Например, этой записи можно сна- 
чала присвоить значение как длинному целому, а затем проанализировать резуль- 
тат по байтам или словам: 


уагх 
х : Иога; 
хр: Вуее; 
х1: Гопа1ще; 
Бед1п 


и1ЕВ п ао 
Бед1п 
1о := Ткоапс (2*р1*х); 
1Е мо[1] = 0 еп 
1Е ру[1] = 0 ел 
хЬ := х[0] 
е1зе 
х := м0о[0] 
е1зе 
х1 := 10 
епа; 


епа. 
В вариантной части нельзя указывать поля с управляемым временем жизни 


(подробнее об этом см. раздел «Типы с управляемым временем жизни» далее в этой 
главе). 
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Предложение сазе ... о, открывающее вариантную часть, внешне похоже на 
соответствующий оператор выбора, но на самом деле лишь играет роль своеобраз- 
ного служебного слова, обозначающего начало вариантной части. Именно поэто- 
му в конце вариантной части не следует ставить слово еп& как пару к сазе ... оЕ 
(поскольку вариантная часть — всегда последняя в записи, за ней все же стоитепа, 
но лишь как пара к гесог@а). Ключ выбора в предложении сазе ... о фактически 
игнорируется компилятором: единственное требование, предъявляемое к нему 
в Деры, состоит в том, чтобы ключ определял некоторый стандартный или пред- 
варительно объявленный порядковый тип. | 

Имена полей должны быть уникальными в пределах той записи, где они объяв- 
лены, однако если записи содержат поля-записи, то есть вложены одна в другую, 
имена могут повторяться на разных уровнях вложения. 


Множества 


Множества — это наборы логически связанных друг с другом объектов. Характер 
связей между объектами лишь подразумевается программистом и никак не конт- 
ролируется Реры. Количество элементов, входящих во множество, может меняться 
в пределах от 0 до 256 (множество, не содержащее элементов, называется пустым). 
Именно непостоянством количества своих элементов множества отличаются от 
массивов и записей. 

Два множества считаются эквивалентными тогда и только тогда, когда все их 
элементы одинаковы, причем порядок следования элементов во множестве без- 
различен. Если все элементы одного множества входят также и в другое, говорят 
о включении первого множества во второе. Пустое множество включается в любое 
другое. | 

Пример определения и задания множеств: 


Суре 
4191ЕСРаг = зеё оЕЁ '0'..'9!; 
9191 = её оЕЁ 0..9; 
уаг 
$1,52,$53 : Аза1еСваг; 
54,595,56 : А1а1Е; 
Беда п 
$51 := ['1', '2', "'3'!]; 
$2 := ['3', 1'2', '1!]; 
53 := ['2'!, '3!]; 
$4 := [0..3, 6]; 
$5 := [4, 5]; 
56 := [3..9]; 
епа. 


В этом примере множества 51 и 52 эквивалентны, а множество $3 включено 
В 52, но не эквивалентно ему. 
Описание типа множества имеет вид: 


<имя типа> = зеЕ оЕЁЕ <базовый тип>; 
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Здесь <имя типа> — правильный идентификатор; зе*, оЁ — зарезервирован- 
ные слова (множество, из); <базовый тип> — базовый тип элементов множе- 
ства, в качестве которого может использоваться любой порядковый тип, кроме 
Мога, Тпседег, ГопаТпе, Тпе 64. 

Для задания множества используется так называемый конструктор множества: 
список спецификаций элементов множества, отделенных друг от друга запятыми; 
список обрамляется квадратными скобками. Спецификациями элементов могут 
быть константы или выражения базового типа, а также тип-диапазон того же базо- 
вого типа. 

Над множествами определены следующие операции: 


" пересечение множеств ( * ); результат содержит элементы, общие для обоих мно- 
жеств; например, 54*$6 содержит [3], $54*55 — пустое множество (см. выше); 


объединение множеств (+); результат содержит элементы первого множества, 
дополненные недостающими элементами из второго множества: 


О $4+5$5 содержит [0,1,2,3,4,5, 6]; 
С $5+56 содержит [3,4,5,6,7, 8, 9]; 


”” разность множеств (-); результат содержит элементы из первого множества, 
которые не принадлежат второму: 


О $6-55 содержит [3,6,7,8, 9]; 
О $4-$5 содержит [0,1,2,3, 6]; 


‚” Проверка эквивалентности (=); возвращает Тгоае, если оба множества эквива- 
лентны, 


“ проверка неэквивалентности (<>); возвращает Тгие, если оба множества неэк- 
вивалентны; 


”” проверка вхождения (<=); возвращает Тгое, если первое множество включено 
во второе; 


‚” Проверка вхождения (>=); возвращает Тгое, если второе множество включено 
в первое, 


* проверка принадлежности (1п); в этой бинарной операции первый элемент — 
выражение, а второй — множество одного и того же типа; возвращает Тгое, если 
выражение имеет значение, принадлежащее множеству: 

О 3 1п 56 возвращает Тгие; 

С] 2*2 1п 51 возвращает Еа1 зе. 

Дополнительно к этим операциям можно использовать две процедуры. 

Процедура Тпс1а4е включает новый элемент во множество. Обращение к про- 
цедуре: 

Тос1оаае ($,т) 

Здесь $ — множество, состоящее из элементов базового типа Т5еЕВазе; Т — 


элемент типа Т5ееВазе, который необходимо включить во множество. 
Процедура Ехс1а4е исключает элемент из множества. Обращение: 


Ехс]1аае ($,тТ) 
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Параметры обращения — такие же, как у процедуры Тпс1 ое. 

В отличие от операций + и -, реализующих аналогичные действия над двумя 
множествами, процедуры оптимизированы для работы с одиночными элементами 
множества и поэтому отличаются высокой скоростью выполнения. 

В следующем примере, иллюстрирующем приемы работы с множествами, реа- 
лизуется алгоритм выделения из первой сотни натуральных чисел всех простых 
чисел'. В его основе лежит прием, известный под названием «решето Эратосфе- 
на». В соответствии с этим алгоритмом вначале формируется множество Ведч1п5е*, 
состоящее из всех целых чисел в диапазоне от 2 до М. Во множество Ре1мегбее 
(оно будет содержать искомые простые числа) помещается 1. Затем циклически 
повторяются следующие действия. 


1. Взять из Вед1пбее первое входящее в него число МехЕе и поместить его 
В Ризмегбее. 


2. Удалить из Вед1п5еф число Мехе и все другие числа, кратные ему, то есть 
2*М№ехе, 3*МехЕ ит. д. 


Цикл повторяется до тех пор, пока множество Вед1п5е* не станет пустым. 
Эту программу нельзя использовать для произвольного значения М, так как 
в любом множестве не может быть больше 256 элементов. 


ргосеааге ТЕпЕхапр1е.р5ВопС11сК (Зепаег: ТОБ)есЕ); 
// Выделение всех простых чисел из первых М целых 
соп5Е 

М = 255; // Количество элементов исходного множества 


Суре 
зесоЕМитрег = зеё оЕЁ 1..М; 

уаг 
п1,Мехе, 1: Мога; // Вспомогательные переменные 
Веа1пбек, // Исходное множество 
Рг1тегбее: бееоЕМоптег; // Множество простых чисел 
5: Бекаа; 

Бед1п 
Вед1пбее := [2..М]; // Создаем исходное множество 
Рк1мег5ее:= [1]; // Первое простое число 
Мехе =2; // Следующее простое число 
м511е Ведч1пбее <> [] ао // Начало основного цикла 
Бед1п 

п1 := Мехе; // п1 - число, кратное очередному простому 


// (М№хЕ) 
// Цикл удаления из исходного множества непростых чисел: 
мр11е п1 <= М @. 
Бед1п 
Ехс1аае (Веч1пбее, п1); 


' Простыми называются целые числа, которые не делятся без остатка на любые другие целые числа, 
кроме единицы и себя. К простым относятся числа 1, 2, 3, 5, 7, 11, 1З ит. д. 
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п1 := 101 + М№ехЕ // Следующее кратное 
епа; // Конец цикла удаления 
Трс1оае (Рглмегбее, пех); 
// Получаем следующее простое, которое есть первое 
// число, не вычеркнутое из исходного множества 
гереаЕе 
1пс (М№ехф) 
ипе11 (МехЕе 1п Вед1п5еф) ог (Мехе > М) 
еп; // Конец основного цикла 
// Выводим результат: 
5 := '1'; 
Бог 1 := 2 © М а 
3Е 1 1п Рглиегбее вБеп 
5 := 9+!, '+ТоЕТобЕг (1); 
пмОсерие.Т1пез.Ааа (5) 
епа; 


Перед тем как закончить рассмотрение множеств, полезно провести небольшой 
эксперимент. Измените описание типа $е ОоЕМоатъех следующим образом: 
суре 
бесоОЕ№апрех = зе® оЕЁ 1..1; 


Еще раз запустите программу из предыдущего примера. На экран будет выве- 
дено: 


1, 3, 5, 7 


Множества Ведч1п5е* и Рг1мег5е% состоят теперь из одного элемента, а про- 
грамма сумела поместить в них не менее семи! 

Секрет прост: внутреннее устройство множества таково, что каждому его эле- 
менту ставится в соответствие один двоичный разряд (один бит); если элемент 
включен во множество, соответствующий разряд имеет значение 1, в противном 
случае — 0. В то же время минимальной единицей памяти является один байт, со- 
держащий 8 бит, поэтому компилятор выделил множествам по одному байту, и в ре- 
зультате мощность каждого из них стала равна 8 элементам. Максимальная мощ- 
ность множества — 256 элементов. Для таких множеств компилятор выделяет по 
16 смежных байтов. 

И еще один эксперимент: измените диапазон базового типа на 1..256. Хотя 
мощность этого типа составляет 256 элементов, при попытке компиляции програм- 
мы компилятор сообщит об ошибке (множества могут иметь не более 256 элемен- 
тов): 

без мау Пауе аф позе 256 е1етмепез$ 


Причина — нумерация элементов множества начинается с нуля, независимо от 
объявленной в программе нижней границы. Компилятор разрешает использовать 
в качестве базового типа целочисленный тип-диапазон с минимальной границей 0 
и максимальной 255 или любой перечисленный тип не более чем с 256 элементами 
(максимальная мощность перечисленного типа — 65 536 элементов). 
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Строки 


Для обработки текстов в РерЫ используются следующие типы: 


." короткая строка $ЗПогЕ5Ег1па или З8хгапа [М], гдем <= 255; 


”” длинная строка $&:1п9 или Апз15г1п9; 


„" широкая строка И1ае$г1па; 


.' заканчивающаяся нулем строка РСПахг. 


Общим для этих типов является то, что каждая строка трактуется как одномер- 
ный массив символов, количество элементов в котором может меняться в работа- 
ющей программе: для $&х1па [№] длина строки меняется от 0 до М, для ЗЕга пд, 
1 ае5Ег1па и РСпаг — от 0 до 2 Гбайт. 

В стандартном языке Паскаль используются только короткие строки 
ЗЕг1па [№]. В памяти такой строке выделяется №+1 байт, первый байт содержит 
текущую длину строки, а сами символы располагаются, начиная со 2-го по счету 
байта. Поскольку для длины строки в этом случае отводится один байт, макси- 
мальная длина короткой строки не может превышать 255 символов. Для объявле- 
ния короткой строки максимальной длины предназначен стандартный тип 5$ВогЕ- 
ЗЕг1па (эквивалент $%&х1па9[255]). 

В УЙпао\м$ широко используются заканчивающиеся нулем строки, представ- 
ляющие собой цепочки символов, ограниченные символом #0. Максимальная дли- 
на такой строки лимитируется только доступной памятью и может быть очень боль- 
шой. 

В 32-разрядных версиях ОерЬ! введен новый тип $&х1п9д, сочетающий в себе 
удобства обоих типов. При работе с этим типом память выделяется по мере надоб- 
ности (динамически) и ограничена имеющейся в распоряжении программы дос- 
тупной памятью. 

Для совместимости с компонентами, основывающимися на ОГ.Е-технологии, 
в 32-разрядных версиях Ое|рН! введены также широкие строки, объявленные стан- 
дартным типом М1Зе5$ег1па. По своим свойствам они идентичны длинным стро- 
кам 5%&г1п4, но отличаются от них тем, что для представления каждого символа 
используются не один, а два байта. 

Примеры объявлений строковых типов: 


уаг 
$55: ЗЕхапа[250]; // Короткая строка длиной до 250 символов 
55Мах: ЗВогЕ5Ег1па; // Короткая строка длиной до 
// 255 символов 


$65: 56Е1па; // Длинная строка 
5и5: М1Аае5ег1па; // Широкая строка 
рс$: РСраг; // Ссылка на заканчивающуюся нулем строку 


ас5: ахггау [0..1000] оЕ Стаг; // Заканчивающаяся нулем 
// строка длиной до 
// 1000 символов 
При объявлении переменной 3$ компилятор выделяет для ее размещения 
250 + 1 = 251 байт и помещает в первый байт 0 — текущую длину строки. Рассмот- 
рим следующий фрагмент программы: | 
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ргосеаиге ТЕпЕхапр1е.5ЬВопС11сК (бепаег: ТОБ)ес®); 
уаг 
555: 56гапа [250]; 


Ьед1п 
555 := 'Строка символов’; 
355$[6] := 'и'; // Символы в строке нумеруются, начиная с 1 
1600&ра®.СарЕ1оп := $$5; // Выводится строка "Строки 
символов" 
епа; 


При выполнении этого фрагмента сначала в переменную 355 будет помещена 
цепочка символов Строка символов, причем 1-й байт получит значение 15 (ко- 
личество символов в строке). После выполнения второго оператора символ с ин- 
дексом 6 (индексация байтов начинается с 0, но поскольку первый байт содержит 
текущую длину, первый символ в строке имеет индекс 1) будет заменен символом 
«и», и в переменной окажется цепочка Строки символов. 

Совершенно другим будет механизм работы с памятью при объявлении длин- 
ной строки +5: компилятор выделит для переменной 4 байта, достаточные для 
размещения номера той ячейки памяти, начиная с которой будет фактически рас- 
полагаться символьная строка. Говорят, что 3$ ссылается на строку. Такого рода 
переменные-ссылки называются указателями и обсуждаются ниже в разделе «Ука- 
затели и динамическая память». Рассмотрим следующий обработчик: 


ргосе4аге ТЁЕпЕхапр1е.5ЮВопС11сК (беп4ег: ТОБ]ес®); 
уаг 
$25, $5655: $86г1пда; 


Бед1п 
565 := 'Строка символов"; 
$655 := $65; 
$565 := 'Это - '+565; 
565[7] := 'с'; // Символы в строке нумеруются, начиная с 1 
1604Ери®е.СарЕ1оп := $65; 
// Выводится "Это - строка символов" 
епа; 


При выполнении первого оператора такого обработчика программа (а не ком- 
пилятор!) определит длину цепочки символов Строка символов, обратится к ядру 
операционной системы с требованием выделить для нее участок памяти длиной 
15+5 = 20 байт, поместит в переменную з+5$ номер первого выделенного байта! 
и, начиная с него, разместит в этом участке цепочку символов, завершив ее завер- 
шающим нулем и 4-байтным счетчиком ссылок. Такое размещение на этапе прого- 
на программы называется динамическим, в то время как размещение на этапе ком- 
пиляции — статическим. Счетчик ссылок играет важную роль в механизме работы 
с памятью. С его помощью реализуется «кэширование» памяти: 


$255 := $695; 


' На самом деле в зЕ$ запоминается дескриптор выделенного участка памяти (см. главу 9). 
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При выполнении этого оператора память для размещения значения перемен- 
ной $&55$ не выделяется, в переменную $+55 помещается содержимое указателя 
35, а счетчик ссылок в связанной с ним памяти увеличивается на единицу. Таким 
образом, оба указателя будут ссылаться на одну и ту же область памяти, счетчик 
ссылок которой будет содержать значение 2. При выполнении следующего опера- 
тора счетчик ссылок уменьшается на единицу, выделяется новая область памяти 
длиной 20 - 6 = 26 байт, указатель на эту область помещается в 5%$5, а в саму па- 
мять переписывается цепочка символов Это - Строка символов, завершаю- 
щий нуль и содержащий единицу счетчик ссылок: 


$5 := 'Это - '+5$65; 


Теперь переменные $+$ и з&5$ ссылаются на разные участки памяти, счетчи- 
ки ссылок которых содержат по единице. Выделенная для размещения строки 
З+к1па область памяти освобождается, если ее счетчик ссылок становится рав- 
ным нулю. 

Похожим образом осуществляется работа с памятью при объявлении перемен- 
ной рс$ типа РСВаг: компилятор считает эту переменную указателем и выделяет 
для нее 4 байта: 


ргоседиге ТЕпЕхаптр1е.0юВопС11сК (бепаег: ТОБ)ес®); 
уаг 
рс$5: РСПпаг; 


Бед1п 
рс$ :='Строка символов!; 
рс5[5] := 'и'; (Символы в строке нумеруются, начиная с 0} 
15ОоЕри*.СарЕ1оп := рс5; // Выводится "Строки символов" 
епа; 


Программа потребует от операционной системы 15 + 1 = 16 байт, разместит 
в памяти цепочку символов с завершающим ее нулем и поместит адрес выделен- 
ного участка памяти в рс$. 


ПРИМЕЧАНИЕ В стандартном языке Паскаль при обращении к области памяти, на 
которую ссылается указатель, требуется за именем указателя ставить 
специальный символ «^». В Оер интенсивно используется динами- 
ческая память, поэтому это жесткое требование смягчено: в большин- 
стве случаев (и при обращении кттипу РСВаг втом числе) символ «^» 
ставить не следует. 


И, наконец, последнее объявление ас$ как массива символов. В Де|рЫ счита- 
ется совместимым с РСваг одномерный массив символов с нулевой нижней гра- 
ницей. В отличие отрс$ память для такой переменной выделяется статически (в на- 
шем примере компилятор выделит в сегменте данных для переменной ас$ 1001 
байт). Для размещения в ас$ завершающейся нулем цепочки символов использу- 
ется процедура ЗЕ хСору: 

ргоседиге ТЕпЕхапр1е.ЮЬКопС11сКк (беп4ехг: ТОБ)ес®); 


у\уаг 
ас$: агхау [0..1000] оЕЁ Сраг; 
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Бедап 
ЗЕхгСору (ас5, 'Строка символов'); 


ас$[5] := 'и';{ Символы в строке нумеруются, начиная с 0} 
160о6рае.СарЕ1оп := асб$; // Выводится "Строки символов" 
епа; 


Необходимость в строках, завершающихся нулем, возникает только при пря- 
мом обращении к АРТ-функциям \/114о\5. При работе с компонентами Пер 
в основном используются более удобные длинные строки, которые рассматрива- 
ются ниже. 

Еще несколько слов о широких строках. 32-разрядные версии \/1п4о\/з исполь- 
зуют три сорта символов: однобайтный символ АМЗГ, двухбайтный символ и сим- 
вол Отшсоёе. Однобайтный символ связан с одним из 256 возможных значений, 
которые трактуются в зависимости от установленной в \/1140\$ национальной 
страницы (для кириллицы используется страница 1251). 256 символов вполне до- 
статочно для отображения национального алфавита любого европейского языка. 
Для отображения алфавитов некоторых азиатских языков этого недостаточно. 
В этом случае используется двухбайтный символ, в котором младший байт обычно 
кодируется семибитным АЗСП-кодом, а старший указывает, как должен тракто- 
ваться этот код (каким символом он будет изображаться в документе или на экра- 
не). Символ Отисоде в памяти занимает одно слово, которое имеет 65 536 возмож- 
ных значений. Специальная международная комиссия по Отисо4е выработала 
соглашение, позволяющее с помощью этого кода представить все символы всех 
языков мира. Двухбайтные символы и символы Отгисо4е объявляются стандарт- 
ным типом М1аеСрах, а составленные из них строки — типом И1Че$Ег1па. Все 
Уп4о\з-программы, использующие ОГ.Е-технологию обмена строками, должны 
кодировать символы в соответствии с Огисоде. 

Несмотря на разницу во внутреннем представлении, короткие строки 5Пог®- 
ЗЕг1п9 и длинные строки $&:3.п9 имеют для программиста одинаковые свойства. 

Текущую длину строки можно получить с помощью функции Ъепаев. Напри- 
мер, следующий оператор уничтожает все ведомые (хвостовые) пробелы: 


мБ11е (Гепоев($е5) <> 0) апа (5+5 [Ъепаей ($$65)] = ' ') ао 
бесьепеай ($$$, ШепаеЕвВ ($85) - 1); 
В этом примере стандартная процедура 5е Тепа&т устанавливает новую дли- 
ну строки. К строкам можно применять операцию сцепления (+), например: 
35 := 'а' + 'Ъ'!; И/ $Ё5$ содержит "а" 
365 := $65 + 'с!; И/ $5Ё$ содержит "аБс" 
Если длина строки превысит максимально допустимую длину М короткой стро- 


ки, то «лишние» символы отбрасываются. Следующая программа, например, вы- 
ведет символ «1»: 


ргосеаиаге ТЕпЕхап1ре.5ВопС11сК (бепаег: ТОБ)ес®); 
уаг 
$55: З6гапа [1]; 


$55 := '1231!; 
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10цЕриае := 
еп; 


Операции отношения (=, <>, >, <, >= и <=) выполняются над двумя строками 
посимвольНно, СЛева направо с учетом внутренней кодировки символов. Если одна 
строка меньше другой по длине, недостающие символы короткой строки заменя- 
ются значением #0. 

Следующие операции отношения дадут значение Тгие: 


| ЗА И < '.! 

ТА! > 1]! 

'Ор]есе' < ' Бе1рЬ\' 
'Пас' > 'Разса1' 


Все остальные действия над строками и символами реализуются с помощью 
стандартных процедур и функций, указанных в табл. 6.8 (см. также приложе- 


ние Б). 


Таблица 6.8. Подпрограммы для работы со строками 


Подпрограмма [Описание 


Еапсезоп Ап$1ГомегСазе 
(сопзЕ 5: 56г1па): 
5Ег1па; 


Еипсе1оп Апз1ОррегСазе 
(сопзЕ 5: 56.119): 
З&г1па; 


Еапс&1оп Сопсаф ($1 [, 52, 
., ЭМ]: 5З&ЕЕтла“): 
ЗЕг1па; 


Еипсе1оп Сору (58: Зегара; 
Траех, Соцпе: Тпфедег): 
ЗЕгапа; 


ргосеаиге Пе1еке (5%: 
ЗЕг1па; Тпаех, Соипе: 
Трпеедег); 


ргосеаиге Тпзег® (55%: 
ЗЕгапа; 56, Тпаех: 
Трпбедег); 


Еипсе1оп ГепаеЕИ (56: 
ЗЕгапа): Тпседег; 


Еапсе1оп ГомегСазе (соп$& 
3: 56Ег2па): 5ЗЕгапа; 


ргосеаиге О1езегТозегУах 
(Зоцгсе: Р\1аеСраг; умах 
Резе: ЗЕгапа); 


Возвращает исходную строку $, в которой все 
прописные буквы заменены строчными 

в соответствии с национальной кодировкой 
\Уп4о\з (то есть с учетом кириллицы) 


Возвращаст исходную строку $, в которой все 
строчные буквы заменены прописными 

в соответствии с национальной кодировкой 
Мп 4о\$ 


Возвращает строку, представляющую собой 
сцепление строк-параметров $51, 52, ..., $М 


Из строки $* копирует Сочп* символов, начиная 
с символа с номером Тпаех 


Удаляет СоипЕ символов из строки 5%, начиная 
с символа с номером Тпаех 


Вставляет подстроку 555 в строку 5%, начиная 
‘с символа с номером Тпаех | 


Возвращает текущую длину строки 5% 


Возвращает исходную строку $, в которой все 
латииские прописные буквы заменены строчными 


Копирует широкую (двухбайтную) строку 
в обычную строку Веры! 
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Подпрограмма Гопивание 


ЕипсЕ1оп Роз (бабе, 5%: 
5&г1па): Тпседег; 


ргосеаиге ЗесГепаевВ (5%: 
ЗЕгапа; МемьЬепаёВ: 
Трееаег); 


Еапсе1оп бЕг1паОЕСраг (СП: 
СПаг; Соип®е;: Тпфеаег): 
ЗЕг1па; 


Еапсе1оп бЕг1паТооО1е5 г 
(сопзЕ бойгсе: 5ЗекЕ1па): 
РИ1аеСраг; 


Еапсе1оп 5ег1паТоМ1аеСраг 
(сопзе боцгсе: 5%г1пда; 

Резе: РИ1аеСраг; 
Тп$сеаег): РИзаеСтаг; 


Еипсе1оп ОррегСазе (соп$® 
5: 5Ег1па): Зегара; 


Резе$127е: 


Отыскивает в строке 5% первое вхождение 
подстроки 555% и возвращает помер позиции, 
с которой она начинастся. Если подстрока не 
пайдена, возвращается нуль 


Устанавливает новую (меньшую) длину МемЬепае в 
строки 5%. Если МеиЬепаев больше текущей длины 
строки, обращение к $е ЬепаеВ игнорируется 


Создает строку, состоящую из Соцпе раз 
повторенного символа СВ 


Копирует обычную строку в двухбайтную 


Преобразует обычную строку в строку с символами 
Отисо4е 


Возвращает исходную строку $5, в которой все 
строчные латинские буквы заменены прописными 


Подпрограммы преобразования строк в другие типы 


Еапсе1оп ЗЕгТоСиагг (56: 
ЗЕгапа): Саггепсу; 


Еапс61оп ЗЕгТораее (5%: 
СЕг1па): ТРафсеТ1те; 


ЕапсЕзоп 


ЗЕг1па): ТРафхеТ1те; 


| Запрс 1оп 
ЗЕг1па): 


бЕгТоЕ1 оа% (5%: 
ЕхЕепаетл; 


ЭЗЕгТотТпе (5%: 
Тпсеачег; 


ЕапсЕ1оп 
ЗЕг1па): 


СбЕгТорахеТ1аше (5%: 


Преобразует символы строки $+ в целое число типа 
Сиггкепсу. Строка не должна содержать ведущих 
или ведомых пробелов 


Преобразуст символы строки $+ в дату. Строка 
должна содержать два или три числа, разделенных 
правильным для \!1140\5 разделителем даты 

(в русифицированной версии таким разделителем 
является точка). Первое число — правильный день, 
второе — правильный месяц. Если указано третье 
число, оно должно задавать год в формате ХХ или 
хххх. Если символы года отсутствуют, дата 
дополняется текущим годом. Например, оператор 
РасеТоЗег (56 гТораее ('28.06')) даст строку 
'28.06.02' (см. ниже пояспения) 


Преобразует символы строки $+ в дату и время. 
Строка должна содержать правильную дату 

(см. ЗЕ гТораке) и правильное время 

(см. бегТоТ1ме), разделенные пробелом, например: 
ЗЕгТорафеТ1те ('28.06 18:23') 


Преобразуст символы строки $+ в вещественное 
число. Строка нс должна содержать ведущих или 
ведомых пробелов 


Преобразует символы строки $+ в целое число. 
Строка не должна содержать ведущих или ведомых 
пробелов 


продолжение #7 
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Таблица 6.8 (продолжение) 


Подпрограмма [Описание 


ЕапсЕ1оп ЗЕгТо1пеШеЕ (5%: 
5$:1п49; ПеЁао16: Тпфедег): 
Тп$едег; 


Еапсе1оп ЗЕгТо1пЕВапае (5%: 
ЗЕх1па; М1п, Мах: 
БопаТп®): ФопаТпе; 


Еипсе1оп ЗЕгТоТ1ше (5%: 
ЗЕ:1п9): ТРафеТ1те; 


ргоседиге \Уа1 (56: $%г1па; 
уаг Х; Соае: Тпфедег); 


Преобразуст символы строки $+ в целое число. 
Если строка не содержит правильного 
представления целого числа, возвращается значение 
РеЁац1 


Преобразует символы строки $ в целое число 
и возбуждает исключение ЕВапдеЕггохг, если число 
выходит из заданного диапазона М1 п...Мах 


Преобразуст символы строки $ во время. Строка 
должна содержать два или три числа, разделенных 
правильным для \/114о\$ разделителем времени 
(для русифицированной версии таким разделителем 
является двосточие). Числа задают часы, минуты 

и, возможно, секунды. За последним числом через 
пробсл могут следовать символы «ат» или «рт», 
указывающие на 12-часовой формат времени 


Преобразует строку символов 5+ во внутреннее 
представление целой или вещественной переменной 
Хх, которое определяется типом этой переменной. 
Параметр Соае содержит ноль, если преобразование 
прошло успешно, и тогда в Х помещается результат 
преобразования, в противном случае он содержит 
номер позиции в строке $, где обнаружен 
ошибочный символ, и в этом случае содержимое Х 
не меняется. В строке $* могут быть ведущие и/или 
ведомые пробелы. Если $& содержит символьное 
представление вещественного числа, разделителем 
целой и дробной частей должна быть точка 
независимо от того, каким символом этот 
разделитель указан в \/Лт4о\$ 


Подпрограммы обратного преобразования 


ЕапсЕ1оп ПасеТт1щеТто$ т 
(Уа1це: ТрабеТ1ме): 
ЗЕгапа; 


ргосеацге ПРатеТ1теТто$&г1п9 
5: 5%6:1па; Рогтаф: 
5114; \Уа1ле: ТрахаТ1пте); 


Еапсе1оп ПафеТобег (Уа1ще: 
ТРафеТ1ме): Зехапа; 


Еопсезоп Е1оа%ТоЗег (Уа]11е: 
Ехсепаеа): Зех1па; 


ЕипсЕ1оп Е1оасТоЗегЕР 
(Уа1ще: Ехсепаеа; Гогмаф: 
ТЕ]оа*Гогма®; Ргес1$1оп, 
019185: Тплеедег): Зег1па; 


Преобразует дату и время из параметра Уа1ие 
в строку символов 


Преобразует дату и время из параметра Уа1це (уах 
в строку 5% в соответствии со спецификаторами 
параметра Когта* (см. пояснения ниже) 


Преобразует дату из параметра Уа1ле в строку 
символов 


Преобразует вещественное значение Уа1те в строку 
СИМВОЛОВ 


Преобразует вещественное значение Уа11ще в строку 
символов с учетом параметра Еогта* и параметров 
Ргес1$1опи 0131$ (см. пояснения ниже) 
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Подпрограмма Гопивание 


Еопсе1оп Гогпа® (сопз® Преобразует произвольное количество аргументов 
ГКогпаф*: $%х1п4; сопзЕ открытого массива Агаз в строку в соответствии со 
Ахаз: аггау оЁ сопз*): спецификаторами параметра Гогта* (см. пояснения 
ЗЕг1тпа; ниже) 


Еипсе1оп ГогпаеракеТ1те Преобразует дату и время из параметра Уа1ие 
(Гогма*: $%&х21па; Уа1щае: в строку символов в соответствии со 
ТрРасеТ1ме): 5ег1па; спецификаторами параметра Гогта& 

(см. пояснения ниже) 


Еипсе1оп Гогпа®ЕР1оа% Преобразует вещественное число Уа1че в строку 
(Рогма®: Запад; Уа1ще: символов в соответствии со спецификаторами 
Ехсепаеа) : Зег1пда; параметра Гогма* (см. пояснения ниже) 


Еапсе1оп ТпЕТоНех (Уа1ие: Преобразует целое число Уа1 че в строку 
Тпеедег; 019165: символьного представления шестнадцатеричного 


Тпеедег): $5%&х1па; формата: 2191&$ — минимальное количество 


символов В строке 


Еипсе1оп ТпЕТобег (Уа1ще: Преобразует целое число Уа1че в строку символов 
Тпфедег): З&га1па; 


ргоседиге 5&г(хХ [:И1аев Преобразует число Х любого вещественного или 

[:рес1ма1$]]; маг 5%: целого типов в строку символов 5%; параметры 

ЗЕг1па); Итасв и Рес1та] $, если опи присутствуют, задают 
формат преобразования: №1 а* В определяет общую 
ширину поля, выделенного под соответствующее 
символьное представление числа Х, а Ррес1та1$ — 
количество символов в дробной части (этот 
параметр имеет смысл только в том случас, когда 
Х — вещественное число) 


Еопсе1оп Т1меТобег (Уа1пе: | Преобразуст время из параметра Уа1е в строку 
ТрафсеТ1ме): ЗекЕзпа; СИМВОЛОВ 


При преобразовании с помощью функций 5ЕгТоххх строка может содержать 
недопустимые для типа ХХХ символы. В этом случае возбуждается исключитель- 
ная ситуация ЕСопуег%Еггог. Однако при использовании $ хТотпереЕ исклю- 
чение не возникает, и функция возвращает умалчиваемое значение. При обратных 
преобразованиях ХХХТо3Ег формат получаемой строки зависит от установлен- 
ных в \/т4о\/$ системных параметров: разделителей даты, времени, целой и дроб- 
ной частей вещественного числа. 

Используемая в процедуре Рас еТ1меТо$г1па ивфункции Еогта*РафеТ1те 
строка Гогма& может содержать символы-спецификаторы (см. приложение Б). 
Замечу, что любые другие символы, указанные в строке Гогма*, а также заклю- 
‘ченные в апострофы или кавычки специальные символы-спецификаторы поме- 
щаются в выходную строку без преобразования, поэтому спецификаторы 'В час 
п мин' дадут строку 19 час 45 мин,а 'Вчас "п" мин' — 19 час п мин. 

При форматном преобразовании времени-даты или других типов в строку 
и обратно могут пригодиться системные переменные, приведенные в прило- 
жении Б. 
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Для форматного преобразования вещественных чисел предназначены функции 
Е1оа*То5е ги ЕКогта<Е1оа*. Первая использует значение Еогта* перечисленно- 
го типа ТЕ1оаЕРогмае и два дополнительных параметра — Ргес1з1оп 
и 21915. Правила использования параметров функции Е1оаЕТобегеЕ, а так- 
же спецификаторы параметра Гогма* в функции Когма*Е1оа& приведены 
в приложении Б. 

Как и в случае даты/времени, любые другие символы строки Гогта*, а также 
заключенные в апострофы или кавычки специальные символы-спецификаторы 
помещаются в выходную строку без преобразования: для параметра \а1 пе, равно- 
годх 1000 спецификаторы '#, рубля’ дадут 3 142 рубля. 

Мощная функция преобразования Гогма* перешла в Ое[рЫ из языка Си (в нем 
она называется рг1пеЕ). Она позволяет преобразовать сразу несколько элемен- 
тов открытого массива аргументов в соответствии с указаниями форматирующей 
строки. Например, рассмотрим выражение: 


Гогмаф ('Строка "%5" содержит %А символов', ['Паскаль',7]) 
Это выражение даст такой результат: 
Строка "Паскаль" содержит 7 символов 


Элементами массива аргументов могут быть константы и/или переменные це- 
лого и вещественного типа, строки и указатели. 

Форматирующая строка — это произвольная строка, в которую в любом месте 
можно вставить форматирующий спеиификатор. Количество форматирующих 
спецификаторов должно быть не больше количества элементов массива аргумен- 
тов — в противном случае возникнет исключительная ситуация. Каждому элементу 
массива аргументов по порядку их перечисления в конструкторе массива функ- 
ция ставит в соответствие форматирующий спецификатор по порядку его следо- 
вания в форматирующей строке: первому аргументу — первый спецификатор, 
второму — второй ит. д. Если количество спецификаторов меньше количества ар- 
гументов, «лишние» аргументы игнорируются. 

Форматирующий спецификатор всегда начинается символом процента и в об- 
щем случае имеет такую структуру (в квадратных скобках указываются необяза- 
тельные элементы): 


"ъх" [1зпаех ":"] ["-"] [м1а%р] ["." ргес] вуре 
Здесь: 1п4ех ":" — индекс открытого массива, с помощью этого элемента 


можно явно указать аргумент, который будет обрабатывать спецификатор; "-" 
указывает на необходимость прижать отформатированный спецификатором текст 
к левой границе отведенного для него пространства; и1АЕВ — число, определяю- 
щее количество символов для обработанного спецификатором текста; если это чис- 
ло меньше требуемого, этот элемент спецификатора игнорируется, если больше — 
дополняется справа (если есть элемент "-") или слева (если он отсутствует) нуж- 
ным количеством пробелов; "." ргес — точность представления целых 
и вещественных типов; с уре — символ, определяющий тип форматирования 
(табл. 6.9). 
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Таблица 6.9. Форматирующие спецификаторы для функции РГопта1 


Спецификатор |Описание 


Целос десятичное число. Если задан параметр ргес, то символьное 
представление должно содержать по меньшей мере ргес десятичных 
цифр: если символьное представление содержит меньше цифр, оно 
дополняется слева символами 0, если больше — параметр ргес 
игнорируется. Если аргумент не является целым числом, возникает 
исключительная ситуация 


Беззнаковое целое число. Используется подобно типу а, но аргумент 
должен быть положительным числом. Если аргумент — 
отрицательное целое, результат форматировапия непредсказуем 


Вещественное число в экспоненциальном представлении: 
символьное представление имеет вид -а, ааааадаааааЕ+ава. 
Если число положительное, ведущий минус опускается, а если его 
модуль меньше 1, знак плюс меняется на минус. Всегда содержит 
одну цифру целой части, по меньшей мере, одну цифру дробной 
части и не меньше трех цифр десятичного порядка. Если задан 
параметр точности, он определяет общее количество цифр до 
символа Е, но не меньше двух: если парамстр точности содержит 1 
или 0, он заменяется на 2. Если символьное представление содержит 
больше символов, чем ргес, оно округляется по первой 
отбрасываемой цифре. Умалчиваемое значение параметра 

точности — 15 


Вещественное число в виде -ааа, ааа (фиксированное 
представление). Параметр точности (по умолчанию 2) определяет 
количество цифр в дробной части. Если он нулевой, выводится 

только целая часть числа 


Веществеиное число в максимально коротком представлении 
(экспоненциальном или фиксированном). Параметр точности 

(по умолчанию 15) опредсляст максимальное количество значащих 
разрядов. Если число имеет меньшее количество цифр, оно не 
дополняется до ргес, аесли число не имеет дробпой части, опо 
выводится как целое (без запятой) 


Соответствует фиксированному представлению, но использует 
символ-разделитель тысяч 


Денежное представление вещественного числа. Подобно ТИПУ п, 
но справа ставится знак денежной единицы 


Указатель. Выводит содержимое указателя в виде 8 
шестнадцатеричных цифр 


Аргумент должен быть символом, строкой или строкой 
с завершающим пулем. Парамстр точности, ссли указан, определяет 
максимальную длину строки: если строка больше, она усекается, 

если меньше — параметр точности игнорируется 


Шестнадцатеричное представление целого числа. Параметр точности 
определяет минимальное количество шестнадцатеричных цифр 
(если число меньше, оно дополияется ведущими нулями) 
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Функция не чувствительна к регистру букв, определяющих тип преобразова- 
ния. Параметры 1п4дех, ргес им1 ЧЕЙ задаются явно (числами в форматирующей 
строке) или неявно — с помощью символа «*». В этом случае в качестве параметра 
берется значение очередного аргумента в списке аргументов (он должен быть це- 
лым числом). Например, два следующих выражения дадут одинаковый результат: 


Рогма® ('%*.*ЁЕ', [8, 2, 123.456]); 
Гогпа* ('%8.2Е', [123.456]); 


Указатели и динамическая память 


Динамическая память 


Динамическая память — это оперативная память компьютера, предоставляемая 
ядром операционной системы программе по ее требованию. Динамическое разме- 
щение данных означает использование динамической памяти непосредственно при 
работе программы. В отличие от этого статическое размещение осуществляется 
компилятором Ое]р|! в процессе компиляции программы. При динамическом раз- 
мещении заранее не известны ни тип, ни объем размещаемых данных. 


Указатели 


Оперативная память ПК представляет собой совокупность ячеек для хранения 
информации — байтов, каждый из которых имеет собственный номер. Эти номера 
называются адресами, они позволяют сбращаться к любому байту памяти. Эеры 
предоставляет в распоряжение программиста гибкое средство управления дина- 
мической памятью — так называемые указатели. Указатель — это переменная, ко- 
торая в качестве своего значения содержит адрес байта памяти. С помощью указа- ° 
телей можно размещать в динамической памяти любой из известных в ерЬ! типов 
данных. Лишь некоторые из них (Вуфе, Сваг, бПохЕТпЕ, Воо1еап) занимают во 
внутреннем представлении один байт, остальные — несколько смежных. Поэтому 
на самом деле указатель адресует лишь первый байт данных. 

Как правило, указатель связывается с некоторым типом данных. Такие указа- 
тели будем называть типизированными. Для объявления типизированного указа- 
теля используется значок ^, который помещается перед соответствующим типом, 
например: 


уаг 
р1 : ^ТпЕедег; 
р2 : ^Веа1; 
Суре 
РегсопРо1пеег = ^РегсопВесога; 
РегсопВесога = гесога 
Маме : ЗЕх1па; 
Чо : $З%г1па; 
Мехе : РегсопРо1пфег 
епа; 


Указатели и динамическая памятъ 147 


Обратите внимание: при объявлении типа РегсопРо1пеег мы сослались на 
тип РегсопВесога, который предварительно в программе объявлен не был. Как 
уже отмечалось, в ОерЬ! последовательно проводится в жизнь принцип, в соот- 
ветствии с которым перед использованием какого-либо идентификатора он дол- 
жен быть описан. Исключение сделано только для указателей, которые могут ссы- 
латься на еще не объявленный тип данных. 

В Реры можно объявлять указатель и не связывать его при этом с каким-либо 
конкретным типом данных. Для этого служит стандартный тип Ро1пфегк, напри- 
мер: 

уаг 

р: Ро1зпеег; 


Указатели такого рода будем называть нетипизированными. Поскольку нети- 
пизированные указатели не связаны с конкретным типом, с их помощью удобно 
динамически размещать данные, структура и тип которых меняются в ходе работы 
программы. 

Как уже отмечалось, значениями указателей являются адреса переменных в па- 
мяти, поэтому следовало бы ожидать, что значение одного указателя можно пере- 
давать другому. На самом деле это не совсем так. В Ое|рЬ! можно передавать зна- 
чения только между указателями, связанными с одним и тем же типом данных. 
Например, пусть имеет место следующее объявление: 


уагх 
р11,р!2: ^Тплеедег; 
РВ: ^Веа1; 


р: Ро1пеек; 

В этом случае показанное ниже присваивание вполне допустимо: 

р11 := рта; 

В то же время следующее присваивание запрещено, поскольку рт1 и рв указы- 
вают на разные типы данных: 

р11 := рв; 

Это ограничение, однако, не распространяется на нетипизированные указате- 
ли, поэтому мы могли бы записать: 

р := РК; 

р11 := В; 
и тем самым достичь нужного результата. 


Выделение и освобождение 
динамической памяти 


Вся динамическая память в Ое|рЫ рассматривается как сплошной массив байтов, 
который называется кучей. 

Память под любую динамически размещаемую переменную выделяется проце- 
дурой Мем. Параметром обращения к этой процедуре является типизированный 
указатель. В результате обращения указатель приобретает значение, соответству- 
ющее адресу, начиная с которого можно разместить данные, например: 
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уаг 
РТ,рЧУ: ^Тпеевег; 
РВ: ^Веа1; 
Бед1п 
М№ем (рт); 
Мем (рК); 
епа; 


После того как указатель приобрел некоторое значение, то есть стал указывать 
на конкретный физический байт памяти, по этому адресу можно разместить лю- 
бое значение соответствующего типа. Для этого в операторе присваивания сразу 
за указателем без каких-либо пробелов ставится значок ^, например: 


рУ^ := 2; // В область памяти рф помещено значение 2 
рК^ := 2*р1; // В область памяти рК помещено значение 6.28 


Таким образом, значение, которое адресует указатель, то есть собственно дан- 
ные, размещенные в куче, обозначаются значком ^ сразу за указателем. Если за 
указателем нет значка ^, то имеется в виду адрес, по которому размещены данные. 
Имеет смысл еще раз задуматься над только что сказанным: значением любого 
указателя является адрес, а чтобы показать, что речь идет не об адресе, а о тех дан- 
ных, которые размещены по этому адресу, за указателем ставится значок ^ (иногда 
об этом говорят как о разыменовании указателя). 

Динамически размещенные данные можно использовать в любом месте про- 
граммы, где это допустимо для констант и переменных соответствующего типа, 
например: 

рВ^ := 5аг(рВ^) + Т^ - 17; 

Разумеется, совершенно недопустим следующий оператор, так как указателю 
рк нельзя присвоить значение вещественного выражения: 

РВ := баг (рВ^) + Т^ - 17; 

Точно так же недопустим оператор: 

РВК^ := заг(рВ); 

Причина в том, что значением указателя р является адрес и его (в отличие от 
того значения, которое размещено по этому адресу) нельзя возводить в квадрат. 


Ошибочным будет и следующее присваивание, так как вещественным данным, на 
которые указывает рвВ, нельзя присвоить значение указателя (адрес): 


^ 


РК^ := рЧ; 

Динамическую память можно не только забирать из кучи, но и возвращать об- 
ратно. Для этого используется процедура 21 зрозе. Например, показанные ниже 
операторы вернут в кучу память, которая ранее была закреплена за указателями 
рди в (см. выше). 


215розе (ру) 
215розе (рК) 


чо 


“о 


Замечу, что процедура 21 зрозе (рРег) не изменяет значения указателя рРек, 
а лишь возвращает в кучу память, ранее связанную с этим указателем. Однако | 
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повторное применение процедуры к свободному указателю приведет к возникно- 
вению ошибки периода исполнения. Освободившийся указатель программист мо- 
жет пометить зарезервированным словом МТЬ. Помечен ли какой-либо указатель 
или нет, можно проверить следующим образом: 


соп5® 
р: ^Веа1 = МТЬ; 
Бед1п 
1Е рк = МТЬ &Беп 
№ем (рК); 
215розе (рВ); 
РК := МТВ; 


епа; 


Никакие другие операции сравнения над указателями не разрешены. 

Приведенный выше фрагмент иллюстрирует предпочтительный способ объяв- 
ления указателя в виде типизированной константы с одновременным присваива- 
нием ему значения МТЬ. Следует учесть, что начальное значение указателя (при 
его объявлении в разделе переменных) может быть произвольным. Использова- 
ние указателей, которым не присвоено значение процедурой Мем или другим спо- 
собом, не контролируется ОерЫ и вызовет исключение. 

Как уже отмечалось, параметром процедуры Мем может быть только типизиро- 
ванный указатель. Для работы с нетипизированными указателями используются 
процедуры бсееМеп и ЕгееМем: 


СеЕМем (Р, $512е); // Резервирование памяти 
ГхееМем(Р, $1272е); // Освобождение памяти 


Здесь Р — нетипизированный указатель; 5$12е — размер в байтах требуемой 
или освобождаемой части кучи. 


СОВЕТ — Использование процедур бееМем и ЕгееМеп, как и вообще вся работа с дина- 
мической памятью, требует особой осторожности и тщательного соблюдепия 
простого правила: освобождать нужно ровно столько памяти, сколько ее было 
зарезервировано, и именно с того адреса, с которого она была зарезервирована. 


В табл. 6.10 приводится описание как уже рассмотренных процедур и функций 
РерЬ, так и некоторых других, которые могут оказаться полезными при обраще- 
нии к динамической памяти. 


Таблица 6.10. Средства Ое!рН! для работы с памятью 


Подпрограмма Готивание 


Еипсе1оп Аааг (Хх): Ро1псекг; Возвращает адрес аргумента Х. Аналогичный 
результат возвращает операция @ 


ргоседиге П15розе (уаг Р: Возвращает в кучу фрагмент динамической 
Ро1пфег); памяти, который рансе был зарезервироваи 
за типизированным указателем Р 


продолжение = 
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Таблица 6.10 (продолжение) 


Подпрограмма Гопивание 


ргоседиге ГгееМеп(уаг Р: Возвращает в кучу фрагмент динамической 
Ро1пфег ; 512е: Тпеедег); памяти, который ранее был зарезервирован 
за истипизированным указателем Р 


ргоседиге Се*Меп(уаг Р: Резервирует за нетипизированным указателем р 
Ро1пфег ; 512е: Тпфедекг); фрагмент динамической памяти требуемого 
размера $12е 


ргосеаиге Меи(уаг Р: 
Ро1пеег); 


Резервируест фрагмент кучи для размещения 
переменной и помещает в типизированный 
указатель Р адрес первого байта 


Еапсе1оп $5127е0Е (Хх): 
Тр$едег; 


Возвращает длину в байтах внутреннего 
представления указанного объекта Х 


М/т4до\$ имеет собственные средства работы с памятью. За более полной ин- 
формацией обращайтесь к справочной службе в файле \МЗ2.НЕР или \ММ325$.НЕР. 


Псевдонимы типов 


Для любого типа можно объявить сколько угодно псевдонимов. Например: 
Туре 
ТМуТпееает = Тпфедег; 
В дальнейшем псевдоним можно использовать так же, как и базовый тип: 


уаг 

МуТпе: ТМуТоседекг; 
Бед1п 

Мутпе := 2*Воипа (р1); 
епа; 


Такого рода псевдонимы обычно используются для лучшей наглядности кода 
программы. Однако в ОерЬ! можно объявлять строго типизированные псевдони- 
мы добавлением зарезервированного слова +уре перед именем базового типа: 

Суре 

ТМу!Гп$едегТуре = Фуре Тпотедег; 
уаг 
МутпеУаг: ТМуТп$едегТуре; 


С точки зрения компилятора, типизированные псевдонимы совместимы с ба- 
зовым типом в различного рода выражениях, но фактически они объявляют новый 
тип данных, поэтому их нельзя использовать в качестве формальных параметров 
обращения к подпрограммам вместо базового типа. Пусть, например, объявлена 
процедура: 

Еипсе1оп МутТпЕЕГипс (АРаг: Тпседег): Типеедекг; 

Бед1п 


епа; 
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Тогда следующее обращение к ней будет расценено компилятором как оши- 
бочное: 


МуТпЕЕРипс (МуТпфУахг) 


Строго типизированные псевдонимы заставляют компилятор вырабатывать 
информацию о типе для этапа прогона программы (Кип-Типе Туре шюгтаЧйоп, 
ВТТГ. Эта информация обычно используется средой Ое|ры, чтобы обеспечить 
функционирование разного рода редакторов свойств и программ-экспертов (мас- 
теров). 


Типы с управляемым временем жизни 


Некоторые типы ($%х1п43, И1 Че г1па, Уаг1апь, О1е\Уаг1апк, 1п%ех2асе 
и 91 5р1пехЕасе) являются типами с управляемым временем жизни. Особенно- 
стью такого рода типов является то, что выделенная для размещения переменной 
область памяти автоматически возвращается системе после того, как переменная 
перестает существовать (например, локальные переменные в подпрограммах). 
Освобождение выделенных ресурсов часто называется «сборкой мусора» (рагБабе- 
соЙеске4). 

Освобождение памяти, выделенной для глобальных переменных, обычно рез- 
лизуется в ходе завершения работы программы. Для локальных подпрограмм этот 
процесс приводит к некоторому их усложнению. Пусть, например, имеем такую 
процедуру: 

ргосеамге МуРгос; 

уах 

5: 56г1п9“; 
Ьед1п 

// В теле процедуры используется переменная $5 
епа; 


В действительности компилятор вырабатывает код, соответствующий такому 
тексту (о блоках &ку и Е1па11у см. главу 13.): 


ргоседиге МуРгос; 
уаг 

$: ЗЕЕала; 
Бед1п 


ху 

// В теле процедуры используется переменная 5 

Ё1па11у 

// Здесь реализуется освобождение памяти для 5$ 
епа; 


Глава 7 
Процедуры и функции 


Процедуры и функции представляют собой относительно самостоятельные фраг- 
менты программы, оформленные особым образом и снабженные именем. Упоми- 
нание этого имени в тексте программы называется вызовом процедуры (функции). 
Отличие функции от процедуры заключается в том, что результатом исполнения 
операторов, образующих тело функции, всегда является некоторое значение, по- 
этому обращение к функции можно использовать в соответствующих выражени- 
ях наряду с переменными и константами. Условимся далее называть процедуру 
или функцию общим именем «подпрограмма», если только для излагаемого мате- 
риала указанное отличие не имеет значения. 


Локализация имен 


Напомню, что вызов подпрограммы осуществляется простым упоминанием име- 
ни процедуры в операторе вызова процедуры или имени функции в выражении. 
В 32-разрядной версии ОерЬ! функцию можно вызывать точно так же, как и про- 
цедуру, то есть без использования возвращаемого ею значения. Для этого следует 
задействовать так называемый расширенный синтаксис языка, который вводится 
установкой флажка Ежепаед 5уп{ах на вкладке СотрЦег окна Орйоп$ (вызывается 
командой Рго]есЁ » ОрНоп$) или заданием директивы компилятора {$5х+}. 

Как уже отмечалось, любое имя в программе должно быть обязательно описа- 
но, перед тем как оно появится среди исполняемых операторов. Не делается 
исключения и вотношении подпрограмм: каждую свою процедуру и функцию про- 
граммисту необходимо описать в разделе описаний. 

Описать подпрограмму — значит указать ее заголовок и тело. В заголовке объяв- 
ляются имя подпрограммы и формальные параметры, если они есть. Для функ- 
ции, кроме того, указывается тип возвращаемого ею результата. За заголовком сле- 
дует тело подпрограммы, которое, подобно программе, состоит из раздела описаний 
и раздела исполняемых операторов. В разделе описаний подпрограммы могут встре- 
титься описания подпрограмм низшего уровня, а в них — описания других под- 
программ ит. д. 
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Вот какую иерархию описаний получим, например, для программы, структура 
которой представлена на рис. 7.1 (для простоты считается, что все подпрограммы 
представляют собой процедуры без параметров): 


ргосеаиге А; 
ргосеаиге А1; 


Беда п 

епа {41}; 
ргосеаиге А2; 

Беда п 

епа {42}; 
Бедап {Д.Д} 
епа {4}; 

ргосеаиге В; 

ргосеаоге В1; 


Бедлап 

епа (8В1}; 
ргосеаиге В2; 

ргосеасге В21; 


Программа 


Подпрограмма А 


Подпрограмма А1 
Подпрограмма А2 


Подпрограмма В 


Подпрограмма В1 


Подпрограмма В2 
Подпрограмма В21 
Подпрограмма В22 


Рис. 7.1. Пример структуры программы 


Подпрограмма любого уровня имеет обычно множество имен констант, Пере- 
менных, типов и вложенных в нее Подпрограмм низшего уровня. Считается, ЧТО 
все имена, описанные внутри подпрограммы, локализуются в ней, то есть они как 
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бы «невидимы» снаружи подпрограммы. Таким образом, для операторов, обраща- 
ющихся к подпрограмме, она представляется как «черный ящик», в котором реа- 
лизуется тот или иной алгоритм. Все детали этой реализации скрыты от глаз пользо- 
вателя подпрограммы и потому недоступны ему. Например, в рассмотренном выше 
примере из основной программы можно обратиться к процедурам А и В, но нельзя 
вызвать ни одну из вложенных в них процедур А1, А2, В] ит. д. 

Сказанное относится нетолько к именам самих подпрограмм, но и вообще к лю- 
бым объявленным в них именам — типам, константам, переменным и меткам. Все 
имена в пределах подпрограммы, в которой они объявлены, должны быть уникаль- 
ными и не могут совпадать с именем самой подпрограммы. 

При входе в подпрограмму низшего уровня становятся доступными не только 
объявленные в ней имена, но и сохраняется доступ ко всем именам верхнего уровня. 
Образно говоря, любая подпрограмма как бы окружена полупрозрачными стенка- 
ми: снаружи подпрограммы мы не видим ее внутренности, но, попав в подпрограм- 
му, можем наблюдать все, что делается снаружи. Так, например, из подпрограммы 
В21 мы можем вызвать подпрограмму А, использовать имена, объявленные в ос- 
новной программе, в подпрограммах В и В2, и даже обратиться к ним. Любая под- 
программа может, наконец, вызвать саму себя — такой способ вызова называется 
рекурсиеи. 

Пусть имеем такое описание: 


уаг \1 : ...; 
ргосеасге А; 
уаг \2 : ...; 
еп [А}; 
ргосеаиге В; 
уаг \3 : ...; 
ргосеасге В1; 
уаг \4 : ...; 


ргосеаиге В11; 
уаг \5; 


Из процедуры В11 доступны все пять переменных \1, ..., /5, из процедуры В1 
доступны переменные \1, ..., У4, из центральной программы — только \1. 

При взаимодействии подпрограмм одного уровня иерархии вступает в силу 
основное правило Пер: любая подпрограмма перед ее использованием должна 
быть описана. Поэтому из подпрограммы В можно вызвать подпрограмму а, но из 
А вызвать В невозможно, точнее, такая возможность появляется только с исполь- 
зованием опережающего описания (см. ниже раздел «Рекурсия и опережающее 
описание»). Продолжая образное сравнение, подпрограмму можно уподобить ящи- 
ку снепрозрачными стенками и дном, но полупрозрачной крышей: из подпрограм- 
мы можно смотреть только «вверх» и нельзя «вниз», то есть подпрограмме доступ- 
ны только те объекты верхнего уровня, которые описаны до описания данной 
подпрограммы. Эти объекты называются глобальными по отношению к подпро- 
грамме. 
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В Бер! допускается произвольная последовательность описания констант, 
переменных, типов, меток и подпрограмм. Например, раздел уах описания пере- 
менных может появляться в пределах раздела описаний одной и той же подпро- 
граммы много раз и перемежаться с объявлениями других объектов и подпрограмм. 
Для БерЫ совершенно безразличен порядок следования и количество разделов 
уаг, суре, сопз® и 1аЪе1, но при определении области действия этих описаний 
следует помнить, что имена, описанные ниже по тексту программы, недоступны из 
ранее описанных подпрограмм, например: 


у\аг \/1 ; 
ргосеаиге 5; 
маг \2 : ...; 
епа {5}; 

уаг \3 : ...; 


Из процедуры $ можно обратиться к переменным У1 и \У2, но нельзя использо- 
вать \3, так как описание этой переменной следует в программе за описанием 
процедуры 5. 

Локализованные в подпрограмме имена могут совпадать с ранее объявленны- 
ми глобальными именами. В этом случае считается, что локальное имя «закрыва- 
ет» глобальное и делает его недоступным, например: 


уаг 
1 : Тпбеаег; 
ргосеаиге Р; 
уагх 
1 : Тобедег; 
Бед1п 
160оЕрие.Сарезоп := ТпЕТобег (1); 
епа {Р}; 
Бед1п 


епа; 


Что выведет эта программа на экран? Все, что угодно: значение внутренней пе- 
ременной 1 при входе в процедуру Р не определено, хотя одноименная глобальцая 
переменная имеет значение 1. Локальная переменная «закроет» глобальную, и на 
экран будет выведено произвольное значение, содержащееся в неинициализиро- 
ванной внутренней переменной. Если же убрать из процедуры Р показанное ниже 
описание, то на экран будет выведено значение глобальной переменной 1, то есть 1: 


уаг 
1 : 1пеедег; 

Таким образом, одноименные глобальные и локальные переменные — это раз- 
ные переменные. Любое обращение к таким переменным в теле подпрограммы 
трактуется как обращение к локальным переменным, то есть глобальные перемен- 
ные в этом случае попросту недоступны. 
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Описание подпрограммы 


Описание подпрограммы состоит из заголовка и тела подпрограммы. 


Заголовок и стандартные директивы 


Заголовок процедуры имеет вид: 
ргосеацге <имя> [(<сп.ф.п.>)]; 
Заголовок функции: 
ЕапсЕ1оп <имя> [(<сп.ф.п.>)] : <тип>; 


Здесь <имя> — имя подпрограммы (правильный идентификатор); <сп.ф.п.> — 
список формальных параметров; <тип> — тип возвращаемого функцией резуль- 
тата. 

Сразу за заголовком подпрограммы может следовать одна из стандартных ди- 
ректив аззепЪ1ег, ехвегпа1, Еаг, Еогмага, 1п11пе, 1пЕеггир*, пеаг. Эти 
директивы уточняют действия компилятора и распространяются на всю подпро- 
грамму и только на нее, то есть если за подпрограммой следует другая подпрог- 
рамма, стандартная директива, указанная за заголовком первой, не распространя- 
ется на вторую. 


”” аззептЪ1ег — эта директива отменяет стандартную последовательность машин- 
ных инструкций, вырабатываемых при входе в процедуру и перед выходом из 
нее. Тело подпрограммы в этом случае должно реализоваться с помощью ко- 
манд встроенного ассемблера. 


" ехбегпа1 — с помощью этой директивы объявляется внешняя подпрограмма. 


”' Баг — компилятор должен создавать код подпрограммы, рассчитанный на даль- 
нюю модель вызова. Директива пеаг заставит компилятор создать код, рассчи- 
танный на ближнюю модель памяти. Обе директивы введены для совместимо- 
сти с Ое|рЫ версии 1, в которой использовалась сегментная модель памяти. 


” ЕБогмагка — используется при опережающем описании (см. раздел «Рекурсия 
и опережающее описание») для сообщения компилятору, что описание подпро- 
граммы следует где-то дальше по тексту программы (но в пределах текущего 
программного модуля). 


1п011пе — указывает на то, что тело подпрограммы реализуется с помощью 
встроенных машинных инструкций. 


п 1пеггиар® — используется при создании процедур обработки прерываний. 


Помимо описанных в ОерЫ можно задействовать также стандартные дирек- 
тивы, регламентирующие способ передачи параметров через стек и применение 
регистров для их передачи — такие директивы используются при работе с ядром 
МЛа4о\з (табл. 7.1). Столбец Порядок определяет порядок размещения парамет- 
ров в стеке: Слева направо означает размещение в стеке по порядку описания — 
сначала первый параметр, затем второй ит. д.; Справа налево означает размещение 
с конца перечисления параметров — сначала последний, затем предпоследний ит. д. 
Столбец Очистка определяет, кто будет очищать стек: подпрограмма перед пере- 
дачей управления в вызывающую программу, или программа после получения 
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управления. В столбце Регистры указывается Да, если для передачи параметров 
помимо стека используются также регистры центрального процессора, и Нет 
в противном случае. 


Таблица 7.1. Стандартные директивы, регламентирующие способ передачи параметров 
через стек и использование регистров для их передачи 


Слева направо Подпрограмма 


Справа палево Подпрограмма 
заЁеса11 Справа налево Подпрограмма 


ВНИМАНИЕ —=— Для поддержки всех функций АР! ядра \/т4о\$ подпрограмма должна 
компилироваться с директивой зЕ4са11, адля поддержки функций СОМ — 
с директивой заёеса11. 


Да 


Параметры 


Список формальных параметров необязателен и может отсутствовать. Если же он 
есть, то внем должны быть перечислены имена формальных параметров и их типы, 
например: 

ргосеаиге ЗВ(а: Кеа1; Р: Тпфедег; с: Сраг); 


Как видно из примера, параметры в списке отделяются друг от друга точкой 
с запятой. Несколько следующих подряд однотипных параметров можно объеди- 
нять в подсписки, например, следующие два описания эквивалентны: 


Еорсе1оп Е(а: Веа1; Ъ: Веа1): Веа]1; 
Еапсе1оп Е(а,б: Кеа1): КВеа1; 


Для операторов тела подпрограммы список формальных параметров является 
своеобразным расширением раздела описаний: все переменные из этого списка 
могут использоваться в любых выражениях внутри подпрограммы. Таким спосо- 
бом осуществляется настройка алгоритма подпрограммы на конкретную задачу. 


ВНИМАНИЕ В отличие от процедуры, любая фуикция имеет внутреннюю переменную 
Кез 1 & того же типа, что и тип функции. Присваивание этой переменной 
значения трактуется как указание результата, возвращаемого функцией. 
В стандартном языке Паскаль такой переменной нет, и для указания воз- 
вращаемого результата нужно присваивать значение названию функции. 


Например: 
Еапсе1оп МуРГопс: Тпбедег; 
Бедап 
МуРипс := 0 


епа; 
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ПРИМЕЧАНИЕ Веры упоминание имени функции в левой части оператора присва- 
ивания означает рекурсивный вызов функции (см. ниже раздел «Ре- 
курсия и опережающее описание»). Следует писать так: 

ЕипсЕ1оп МуРипс: Тпбедег; 
Ъед2п 

Вези1е := 0 
епа; 


Рассмотрим такой полезный пример. В Ое[рЫ не предусмотрена операция воз- 
ведения вещественного числа в произвольную степень. Тем не менее эту задачу 
можно решить с использованием стандартных математических функций Ехр и п 
по следующему алгоритму: 

ХУ = е(’и(Х)) 


Создадим функцию с именем Ромег и двумя вещественными параметрами А 
и В, которая будет возвращать результат возведения А в степень В. Обработчик 
события ЪБВапС11сКк нашей учебной формы ЕтЕхатр1е читает из компонента 
еЯТприЕ текст и пытается выделить из него два числа, разделенных хотя бы од- 
ним пробелом. Если это удалось сделать, он обращается к функции Ромег дваж- 
ды: сначала возводит первое число Х в степень второго числа У, затем Х возводится 
в степень -У (проект 5оигсе\СПар_07\Ромег\Ромег.арг). 


ргосеасге ТЕпЕхапр1е.ЮюКипС11ск (бЗепаег: ТОБ]ес®); 

Еоапс®е1оп Ромег(А, В: КВеа1): Веа1; 

{ Функция возводит число А в степень В. Поскольку логарифм 
отрицательного числа не существует, реализуется проверка 
значения А; отрицательное значение заменяется 
положительным, для нулевого числа результат равен нулю. 
Кроме того, любое число в нулевой степени дает единицу. } 


Бед1п 
1Е А > 0 &Ъеп 
Везц1%е := Ехр(В * Гп(А)) 
е]1зе 1Е А < 0 еп 
Везоа16 := Ехр (В * Гл (АБЗ(А))) 
е1зе 1Е В = 0 ЕЪеп 
Везо1е := 1 
е1 зе 
Везо1* := 0; 
еп; // Рошег 
уаг 
5: ЗЕЕара; 
Хх, У: Веа1; 
Бед1п 


' Начиная с версии 2, с ОерыЫ поставляется модуль Ма& св, в котором соответствующая функция есть 
(см. приложение Б). 
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{ Читаем строку из еаТприЕ и выделяем из нее два 
вещественных числа, разделенных хотя бы одним пробелом } 


5 := еаТпрае.Техе; 
1Е (5$ = '') ог (роз(' ' ‚,5) = 0) ЕБеп 
Ех1{; // Нет текста или в нем нет 
// пробела - прекращаем дальнейшую работу 
Егу 
// Выделяем первое число: 
Х := ЗЕГТоЕТ1оа® (сору(5, 1, роз(' ', 5) - 1)); 


// Если успешно, удаляем символы до пробела 
// и выделяем второе число: 
Ре1ефе ($, 1, роз(' ', 5)); 


У := ЗЕгТоЕ1оа% (Тг1м(5$)); 
ехсер® 

Ех1е; // Завершаем работу при ошибке преобразования 
еп; 


пиОсера®.Т1пе$.Ааа('Х в степени У = 
'+Е1оаеТобЗЕхг (Ромег (Хх, \У)))}; 
пиОч рае. Т1пе$з .Ааа ('Х в степени -У 
'+Е] оаеТоЗЕг (Ромег (Х, -\)))}; 
епа; 


Для вызова функции Ромег мы просто указали ее в качестве параметра при 
обращении к стандартной функции преобразования вещественного число в стро- 
ку Е1оаТоЗ%г. Параметры Х и У в момент обращения к функции Ромег — это 
фактические параметры. Они подставляются вместо формальных параметров А 
и Ввзаголовке функции и затем над ними осуществляются нужные действия. По- 
лученный результат присваивается специальной переменной с именем Везо1%, 
которая в теле любой функции интерпретируется как то значение, которое вернет 
функция после окончания своей работы. В программе функция Ромег вызывает- 
ся дважды — сначала с параметрами Х и У, затем с параметрами Х и -У, поэтому 
будут получены два разных результата. 

Механизм замены формальных параметров фактическими позволяет нужным 
образом настроить алгоритм, реализованный в подпрограмме. Дер}! следит за тем, 
чтобы количество и типы формальных параметров строго соответствовали коли- 
честву и типам фактических параметров в момент обращения к подпрограмме. 
Смысл используемых фактических параметров зависит от того, в каком порядке 
они перечислены при вызове подпрограммы. В нашем примере первый по порядку 
фактический параметр возводится в степень, задаваемую вторым параметром, а не 
наоборот. Программист должен сам следить за правильным порядком перечисле- 
ния фактических параметров при обращении к подпрограмме. 

Любой из формальных параметров подпрограммы может быть либо парамет- 
ром-значением, либо параметром-переменной, либо, наконец, параметром-кон- 
стантой. 

В предыдущем примере параметры А и В определены как параметры-значения. 
Если параметры определяются как параметры-переменные, перед ними необходимо 
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ставить зарезервированное слово мах, а если это параметры-константы, — слово 
соп$%, например: 


ргосеаиге Мургосеаосге (уаг А: Веа1; В: Веа1; соп5® С: 
ЗЕгапа); 


Здесь А — параметр-переменная, В — параметр-значение, а С — параметр-кон- 
станта. 

Определение формального параметра тем или иным способом существенно, 
в основном, ТОЛЬКО ДЛЯ вызывающей программы: если формальный параметр объяв- 
лен как параметр-переменная, то при вызове подпрограммы ему должен соответ- 
ствовать фактический параметр в виде переменной нужного типа; если формаль- 
ный параметр объявлен как параметр-значение или параметр-константа, то при 
вызовеему может соответствовать произвольное выражение. Контроль за неукосни- 
тельным соблюдением этого правила осуществляется компилятором Оер|1. Пред- 
положим, для предыдущего примера был использован такой заголовок функции: 


ЕапсЕ1оп Ромег (А: Веа1; чаг В : КВеа1): Веа1; 


Тогда при втором обращении к функции компилятор указал бы на несоответ- 
ствие типа фактических и формальных параметров (параметр обращения -У есть 
выражение, в то время как соответствующий ему формальный параметр В описан 
как параметр-переменная). 

Для того чтобы понять, в каких случаях использовать тот или иной тип пара- 
метра, рассмотрим, как осуществляется замена формальных параметров факти- 
ческими в момент обращения к подпрограмме. 

Если параметр определен как параметр-значение, то перед вызовом подпрограм- 
мы это значение вычисляется, полученный результат копируется во временную 
память (стек) и передается подпрограмме. Важно учесть, что даже если в качестве 
фактического параметра указано простейшее выражение в виде переменной или 
константы, все равно подпрограмме будет передана лишь копия переменной (кон- 
станты). Любые возможные изменения в подпрограмме параметра-значения ни- 
как не воспринимаются вызывающей программой, так как в этом случае изменя- 
ется копия фактического параметра. 

Если параметр определен как параметр-переменная, то при вызове подпрограм- 
мы передается сама переменная, а не ее копия (фактически в этом случае подпро- 
грамме передается адрес переменной). Изменение параметра-переменной приво- 
дит к изменению фактического параметра в вызывающей программе. 

В случае параметра-константы в подпрограмму также передается адрес обла- 
сти памяти, в которой располагается переменная или вычисленное значение. Од- 
нако компилятор блокирует любые присваивания параметру-константе нового 
значения в теле подпрограммы. 

Итак, параметры-переменные используются как средство связи алгоритма, ре- 
ализованного в подпрограмме, с внешним миром: с помощью этих параметров под- 
программа может передавать результаты своей работы вызывающей программе. 
Разумеется, в распоряжении программиста всегда есть и другой способ передачи 
результатов — через глобальные переменные. Однако злоупотребление глобаль- 
ными связями делает программу, как правило, запутанной, трудной в понимании 
и сложной в отладке. В соответствии с требованиями хорошего стиля программи- 
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рования рекомендуется там, где это возможно, передавать результаты через фак- 
тические параметры-переменные. 

С другой стороны, описание всех формальных параметров как параметров-пе- 
ременных нежелательно по двум причинам. Во-первых, это исключает возможность 
вызова подпрограммы с фактическими параметрами в виде выражений, что делает 
программу менее компактной. Во-вторых, и это главное, в подпрограмме возмож- 
но случайное использование формального параметра, например, для временного 
хранения промежуточного результата, то есть всегда существует опасность непред- 
намеренно испортить фактическую переменную. Вот почему параметрами-пере- 
менными следует объявлять только те, через которые подпрограмма в действи- 
тельности передает результаты вызывающей программе. Чем меньше параметров 
объявлено параметрами-переменными и чем меньше в подпрограмме использует- 
ся глобальных переменных, тем меньше опасность получения непредусмотренных 
программистом побочных эффектов, связанных с вызовом подпрограммы, тем про- 
ще программа в понимании и отладке. По той же причине не рекомендуется ис- 
пользовать параметры-переменные в заголовке функции: если результатом рабо- 
ты функции не может быть единственное значение, то логичнее задействовать 
процедуру или нужным образом декомпозировать алгоритм на несколько подпро- 
грамм. 

Для передачи результатов вызывающей программе можно использовать па- 
раметры-переменные, которым предшествует зарезервированное слово ое. 
Например: 

ргосеаиге АРгос (ое А: ВКеа1; В: Тпфедег); 


Вэтом примере параметр А есть параметр-переменная, поэтому вызов процеду- 
ры может быть, Например, Таким: 


уаг 

Хх: Веа1; 
Бед1п 

АРгос (Х, 123); 


еп; 


Параметры оч нельзя использовать в подпрограмме как входные, они пред- 
назначены исключительно для передачи результата вызывающей программе. 

Существует еще одно обстоятельство, которое следует учитывать при выборе 
вида формальных параметров. Как уже говорилось, при объявлении параметра- 
значения осуществляется копирование фактического параметра во временную 
память. Если этим параметром будет массив большой размерности, то существен- 
ные затраты времени и памяти на копирование при многократных обращениях 
к подпрограмме можно минимизировать, объявив этот параметр параметром-кон- 
стантой. Параметр-константа не копируется во временную область памяти, что 
сокращает затраты времени на вызов подпрограммы, а любыеего изменения в теле 
подпрограммы невозможны — за этим строго следит компилятор. 

Еще одно свойство Бер — возможность использования нетипизированных 
параметров. Параметр считается нетипизированным, если тип формального пара- 
метра-переменной в заголовке подпрограммы не указан, при этом соответствую- 
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щий ему фактический параметр может быть переменной любого типа. Заметим, 
что нетипизированными могут быть только параметры-переменные: 


ргосеаиге МуРгос (уаг аРагамефг); 


Нетипизированные параметры обычно используются в случае, когда тип дан- 
ных несущественен. Такие ситуации чаще всего возникают при копировании од- 
ной области памяти в другую, например, с помощью процедур В1оскКВеаа, 
В1оскКИг1 фе, МоуеМептохгу ит. п. 

Как уже говорилось, список параметров подпрограммы может отсутствовать. 
В этом случае по правилам стандартного языка Паскаль опускаются и обрамляю- 
щие список круглые скобки. Однако в Ое|р|1 7 скобки можно оставить: 


ргосеацге МуРгос (); 


Это сделано для упрощения перехода на Шер! программистов, активно ис- 
пользующих языки С, С++, ]ауа. 


Умалчиваемые параметры 


В Реры можно использовать так называемые умалчиваемые параметры, то есть 
параметры, которые могут опускаться при обращении к подпрограмме. Умалчива- 
емые параметры замыкают список формальных параметров и имеют вид: 

<имя>: <тип> = <значение> 

Например: 

ргоседиге Р(а: аггау оЕЁ Тпфедег; 5: 5Зегапа = ''); 

В этом случае два следующих обращения идентичны: 

Р([1,2,3],''); 

Р([1,2,3]); 

Если в подпрограмме используются два и более умалчиваемых параметра, то 
в случае переопределения одного из них при обращении к подпрограмме следует 
указывать все параметры вплоть до последнего переопределяемого (то есть нельзя 
заменять запятыми те умалчиваемые параметры, которые не переопределяются). 
Например: 

ргосеааге Р(а: Тпеедег; 5: Зхапа = ''; В: Тпбедег = 0); 

Допустимые обращения: 

Р (123); 

Р (123, "'Строка'); 

Р (123, '', 1) 

Умалчиваемые параметры должны следовать в конце списка параметров. Они 


могут быть только простых типов и передаются по значению или с модификато- 
ром соп$*. 


Параметры-массивы и параметры-строки 


Может сложиться впечатление, что объявление переменных в списке формаль- 
ных параметров подпрограммы ничем не отличается от объявления их в разделе 
описания переменных. Действительно, в обоих случаях много общего, но есть одно 
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существенное различие: типом любого параметра в списке формальных парамет- 
ров может быть только стандартный или ранее объявленный тип. Поэтому нельзя, 
например, объявить следующую процедуру: 


ргоседиге 5 (а: аггау [1..10] оЕЁ геа1); 


Причина в том, что в списке формальных параметров фактически объявляется 
тип-диапазон, указывающий границы индексов массива. 

Если мы хотим передать какой-то элемент массива, то проблем, как правило, не 
возникает, но если в подпрограмму передается весь массив, то следует первона- 
чально описать его тип. Например: 

Суре 

аТуре = аггау [1..10] оЕЁ Веа1; 
ргосеаиге 5(уаг а: аТуре); 


Поскольку короткая строка является фактически своеобразным массивом, ее 
передача в подпрограмму осуществляется аналогичным образом: 
Суре 
ТпроеТуре = $З%гх1па [15]; 
ОпфраеТуре = З&хгапа [30]; 
Еапсе1оп 56(5: ТпроЕеТуре): Осера Туре; 


Требование описать любой тип-массив или тип-строку перед объявлением под- 
программы, на первый взгляд, кажется несущественным. Действительно, в рамках 
простейших вычислительных задач обычно заранее известна структура всех ис- 
пользуемых в программе данных, поэтому статическое описание массивов не вы- 
зывает проблем. Однако разработка программных средств универсального назна- 
чения связана со значительными трудностями. 


Открытые массивы 


Пер! поддерживает так называемые открытые массивы, легко решающие про- 
блему передачи подпрограмме одномерных массивов переменной длины. 
Открытый массив представляет собой формальный параметр подпрограммы, 
описывающий базовый тип элементов массива, но не определяющий его размер- 
ности и границы: | 


ргхосеацге МуРгос (ОрепАггау: аггхау оЁ Тпеедег); 


Внутри подпрограммы такой параметр трактуется как одномерный массив 
с нулевой нижней границей. Верхняя граница открытого массива возвращается 
стандартной функцией Н1аЪ. Используя 0 как минимальный индекс и значение, 
возвращаемое функцией Н1а№, как максимальный индекс, подпрограмма может 
обрабатывать одномерные массивы произвольной длины. 


ргосеаиге ТЕпЕхаптр1е.ЮЮВКипС11скК (Зепаег: ТОБ)ес®); 
{Иллюстрация использования открытых массивов: программа 
выводит в компонент ттОиЕриЕЁ содержимое двух одномерных 
массивов разной длины с помощью одной процедуры АггауРг1пЁ} 
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ргосеаиге АггауРг1п{ (аАггау: аггау оЕЁ Тпуедег); 


уаг 
К: Тобедег; 
5: 56Егара; 
Бед1п 
5 :='!; 
Бог К := О во Н1оаПп(аАггау) ао 
5 := 5 + ТПЕТобег (аАггау[К]); 
пиОпероае.Ъ1пе$ .Ааа (5); 
еп; 
соп$Е 
А: аггау [-1..2] оЕ Трпеедег = (0,1,2,3); 
В: аггау [5..7] оЕ Тпеедег = (4,5,6); 
Бед1п 


АггауРг1п® (А); 
АггауРг1 п (В); 

епа; 

Как видно из этого примера, фактические границы массивов А и В, передавае- 
мых в качестве параметров вызова процедуре АггауРг1п%, не имеют значения. 
Однако размерность открытых массивов (количество индексов) всегда равна 1 — 
за этим следит компилятор. Например, добавим в программу двухмерный массив С: 

уаг 

С: аггкау [1..3,1..5] оЕЁЕ Тпеедег; 

Тогда следующее обращение вызовет сообщение об ошибке. 

АггауРг1 пе (С) 

РерьЫ! поддерживает также открытый массив констант, который задается клю- 


чевыми словами аггау оЕ сопз*. Такой массив может содержать данные раз- 
личных типов. Например: 


ргосе4иге МуРгос (аггау оЕЁ сопз®); 


МуРгос (['', 123, @МуРгос, 3.14, Еа1$е]); 


Конструктор массива 


При обращении к подпрограмме на месте формального параметра в виде от- 
крытого массива можно указывать так называемый конструктор массива. Кон- 
структор массива представляет собой список разделенных запятыми значений 
элементов массива, обрамленный квадратными скобками. Вспомним преды- 
дущий пример: 


соп5® 
А: агхгау [-1..2] оЕ Тпседег = (0,1,2,3); 
В: аггау [5..7] оЕ Тпфеедег = (4,5,6); 
Беда п 


АггауРг1пе (А); 
АггауРг1п® (В); 


епа; 


Параметры-массивы и параметры-строки 


Обращения к массивам в этом примере мы могли бы написать так: 


Бед1п 
АггауРг1 п ([0,1,2,3]); 
АггауРг1п® ([4,5,6]); 

еп; 


Вариантные массивы-параметры 


В Реры при передаче подпрограмме массивов переменной длины и размерности 
удобно использовать вариантные массивы (подробнее о вариантах см. главу 9). 
В следующем примере с помощью функции СеЕАггауАуегаде определяется сред- 
нее арифметическое значение всех элементов вариантного массива произвольной 
длины и размерности не выше 5: 


ЕапсЕ1оп СебАггауАуегасае (сопз® У: Уаг1ап®): 


РоцЬ]1е; 


{Возвращает среднее арифметическое значение массива 
произвольной длины и размерности или очень маленькую 


отрицательную величину, 


размерность больше 5} 


<> УагАггау) 
еп 


если У - не вариант или если его 


ог 


ао 


уаг 
1,),к,1,м: Тпеедекг; 
бим: РочЬ1е; 
МТЕеш: Тпбедег; 
Бед1п 
ВКези16 := -1Е-309; 
1Е ((УагТуре (У) апа УагАгкгау) 
(УагАггаур1тСочп® (У) > 5) 
Ех1 Е; 
Зим := 0; 
МТеем := 0; 
// Подсчитываем количество элементов массива 
Еог К := 1 во УагАггау)1тСочпеЕ (У) 
МТеем := 


УагАггауГомВоцлпа (У, К); 


// Подсчитываем сумму элементов 


сазе УагАггаур1тСосп® (У) оЕ 


1: 


Бог 1: 

Зам 
Бог 1: 
Еог ): 

зим 
Бог 1: 
Рог ): 
Бог К: 

зим 
Бог 1: 


=УагАггауЬомВоопа (У, 1) 
Заш-+уУ [1]; 
=УагАггауГомВоцпа (У, 1) 
=УагАггауГомВотлпа (\,2) 
Зит+У [1,3]; 
=УагАггауЪомВотпа (У, 1) 
=УагАггауомВоцпа (У, 2) 
=УагАггауГомВочпа (У, 3) 
Зит+У [1,79,К]; 
=УагАггауГомВочпа (У, 1) 


Фо 


фо 
фо 


фо 
фо 
фо 


фо 


МТЕеп+УагАгкаун1анВоипа (У, К) - 


УагАггауН1айВоопа (\,1) 


УагАггауН1айВопцпа (У, 1) 
\УагАггауН1айВоппа (\,2) 


УагАггауН1айВооипа (У, 1) 
УагАггауН1айВоспа (\У,2) 
\УагАггауН1айВоопа (У, 3) 


УагАггауН1апВоопа (\,1) 


165 


ао 


ао 
ао 


ао 
ао 
ао 


ао 
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Бог ) 
Бог К 
Бог 1 
зим 

5: Бог 
Бог 
Еог 
Бог 
Бог 
зим 


: 
2 
К 
1 
Щ 


епа; 
Везо1е 
епа; 


: =УагАггауГомВоллпа (У, 
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: =УагАггауГомВоолпа (\,2) 
: =УагАггауЬомВоцпа (\, 3) 
: =/УагАггауГомВоппа (У, 4) 


:= бим+У[1,7),кК, 1]; 
=УагАггауГомВотпа (У, 
=УагАггауГомВолппа (У, 


=УагАггауГомВоппа (\, 
=УагАггауГомВоппа (У, 
:= бам+уУ[1,),кК,1,мщ]; 


1) 
2) 
3) 
4) 
5) 


:= бим/МТЕ ем 


Со 
фо 
фо 


Фо 
фо 
фо 
фо 
Фо 


УагАггауН1айВоолпа (\У,2) 
УагАггауН1айВочлпа (У, 3) 
УагАггауН1апВочлпа (У, 4) 


УагАггауН1айПВочлпа (У, 
УагАггауН1айВоцпа (У, 
УагАггауН1айВоцлпа (\, 
УагАггауН1айВозлпа (У, 


1) 
2) 
3) 
4) 
УагАггауН1айВоцпа (У, 5) 


Яо 
ао 
Яо 


ао 
ао 
ао 
ао 
ао 


Как нетрудно догадаться, функция УахАгхаур1тСооп® () возвращает размер- 
ность вариантного массива. 


Процедурные типы 


Основное назначение процедурных типов — дать программисту гибкие средства 
передачи функций и процедур в качестве фактических параметров обращения 
к другим процедурам и функциям. 

Для объявления процедурного типа используется заголовок процедуры (функ- 
ции), в котором опускается ее имя, например: 


суре 
Ргос1 
Ргос2 
Ргос3 
ГКопс1 
Гапсё2 


= ргоседиге (а, Б, с: 
= ргосеаиге (уаг а, 
= ргоседиге(); 


Еипсе1оп: ЗЕг1па; 
Еапсе1оп 


Веа1; 
р); 


уаг Ч: Кеа1); 


(уаг $: 5Ег1па): Веа1; 


Как видно из приведенных примеров, существует два процедурных типа: тип- 
процедура и тип-функция. 
В следующий программе (проект 5оигсе\СВар_07\РгосТуре\РгосТуре.4рг) иллю- 
стрируется механизм передачи процедур в качестве фактических параметров вы- 
зова. Программа выводит на экран таблицу двух функций: 
5111(х) = Фт(@) + Г) х Ехр(-х) 
Со$1(х) = (Со$(х) + 1) х Ехр(-х) 
Вычисление и печать значений этих функций реализуются в процедуре Рг1п%- 
Гипс, которой в качестве параметров передается количество МР вычислений функ- 
ции в диапазоне Х от 0 до 2 ххи имя нужной функции. 


ЕапсЕ1оп $51101 (Х: Веа1): 


Бед1п 
Вези1 Е 
епа; 


ЕапсЕ1оп Со$1(Х: Веа1): 


Веа1; 


:= (510 (Х) + 1) 
ИХ $111 


Веа1; 


* Ехр(-Х) 
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Бед1п 
Веза1е := (Соз(Х) + 1) * Ехр(-Х) 
епа; // Соз1 


ргосеачге ТЕпЕхатр1е.ЮЬВопС11сК (5епаег: ТОБ)есЕ); 
Суре 


Гипс = Еапс&1оп (Х: Веа1): Веа1; // Процедурный тип 
ргосеачге Рг1пЕРопс (МР: Тпеедег; Г: ГРапс) ; 
уагх 

к: Тобседег; 

Х: Кеа1; 
Бед1п 

Бог К := 0 60 № 94° 

Бедлп 

Хх := К * 2 * р: / М; 


пмОсери®.Ъ1пе$.Ааа (Е1оаеТозегЕ (Х, ЕЕЕхропепе, 10, 2) + 
#989 + Е1оаеТо5ехЕ (К (Х), ЕЕЕхропепе, 10, 2)); 


епа; 
епа; // РЕЛВЕЕРИПС 
Беда п // ЬБКипсС11ск 


пмОцерие.ТЪ1пез.Ааа (#9'Функция $1№1:'); 
РизпЕРГапс (10, $5111); 
пиОиеро®.Т1пе$.Ааа (#9'Функция С051:'); 
РилпЕРипс (10, Со$1); 

епа; 


Обратите внимание: передаваемые подпрограммы не могут быть локальными, 
то есть процедурами или функциями, объявленными внутри другой подпрограм- 
мы. Вот почему описание подпрограмм $1п1 иСоз1 размещаются вне обработчика 
ЮБВипС11скК, но выше него по тексту модуля. Замечу, что символ #9 — это символ 
табуляции, который вставляется в формируемые строки для разделения колонок 
с цифрами. 

В программе могут быть объявлены переменные процедурных типов, напри- 
мер, так: 


маг 
р1 : Ргос1; 
Е1, Е2: Еопс2; 
ар : аггау [1..№] оЕ Ргос1; 


Переменным процедурных типов допускается присваивать в качестве значе- 
ний имена соответствующих подпрограмм. После такого присваивания имя пере- 
менной становится синонимом имени подпрограммы. 


Рекурсия и опережающее описание 


Рекурсия — это такой способ организации вычислительного процесса, при кото- 
ром подпрограмма в ходе выполнения составляющих ее операторов обращается 
сама к себе. 
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Рассмотрим классический пример — вычисление факториала. Программа по- 
лучает от компонента еЯТпрак целое число М и выводит в компонент имОо рае 
значение М! ‚ которое вычисляется с помощью рекурсивной функции Гаског1а1. 

При выполнении правильно организованной рекурсивной подпрограммы осу- 
ществляется многократный переход от некоторого текущего уровня организации 
алгоритма к нижнему уровню последовательно до тех пор, пока, наконец, не будет 
получено тривиальное решение поставленной задачи. В нашем случае решение при 
№=0 тривиально (факториал 0 равен 1) и используется для остановки рекурсии 
(проект 5оигсе\СВар_07\Рас®опа[\Расфопа(.арг). 


ргосеаиге ТЕпЕхапр1е.рЬКиапС11сК (бепаег: ТОБ]ес®); 
ЕапсЕ1оп РГасеог1а1 (№: Мога): ЕхЕепаеча; 


Бед1п 
1Е М = О еп 
Веза1® := 1 
е1 зе 
Везо1* := М * ГРГасвог1а1 (№-1) 
епЯ; // ГасЕог1а1 
уаг 
№: Тробедег; 
Бед1п 
Егу 
№ := ЭегТоТпе (Тг1м (е4аТпра®.Тех®)); 
ехсере 
Ех1С; 
епа; 


ппОпероае.Ъ1пе$ .Ааа (е4Тпрае.Техф+ 
'! = '+ЕР1оа6ТоЗ&г (ЕГас$фог1а1 (№))); 
еЯТпрое.ТехЕ := ''; 
еЧаТпро®.збееРоса$ 
епа; 


Рекурсивная форма организации алгоритма обычно выглядит изящнее итера- 
ционной и дает более компактный текст программы, но при выполнении, как пра- 
вило, медленнее и может вызвать переполнение стека (при каждом входе в подпро- 
грамму ее локальные переменные размещаются в организованной особым образом 
области памяти, называемой программным стеком). 

Рекурсивный вызов может быть косвенным. В этом случае подпрограмма обра- 
щается к себе опосредованно, путем вызова другой подпрограммы, в которой со- 
держится обращение к первой, например: 


ргосеаиге А (1 : Вуее); 
Бед1п 


ргоседоге В (7) : Вусе); 
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епа; 


Если строго следовать правилу, согласно которому каждый идентификатор пе- 
ред употреблением должен быть описан, то такую программную конструкцию ис- 
пользовать нельзя. Чтобы такого рода вызовы стали возможны, вводится опере- 
жающее описание: 


ргосеапге В (-} : Вузе); Еогмагка; 
ргосеацге А (1 : Вубе); 


Бед1п 


ргоседиге В; 
Бед1п 


А (7); 


епа; 


Как видим, опережающее описание заключается в том, что объявляется лишь 
заголовок процедуры В, а ее тело заменяется стандартной директивой Кохмака. 
Теперь в процедуре А можно использовать обращение к процедуре В — ведь она 
уже описана, точнее, известны ее формальные параметры, и компилятор может 
правильным образом организовать ее вызов. Обратите внимание: тело процедуры 
В начинается заголовком, в котором уже не указываются описанные ранее фор- 
мальные параметры. 


Глава 8 
Классы 


Классами в Ое|рЬ1 называются специальные типы, которые содержат поля, методы 
и свойства. Как и любой другой тип, класс служит лишь образцом для создания 
конкретных экземпляров реализации, которые называются объектами. Сразу же 
уточню, что в предшественнице Ое|рЫ — системе программирования ТигБо Раз- 
са] — объектами называются типы, имеющие много общего с классами Пер. Од- 
нако существенные усовершенствования, внесенные в объектную модель Оеры, 
заставили разработчиков языка ввести для обозначения объектов специальный тер- 
мин — класс, заимствованный, кстати, из С++. Для совместимости с ранее разра- 
ботанными программами системы ТигБо Разса| мИБ ОБес$ 7.0 в рерЫ сохранен 
тип-объект ОБ) ес+, поддерживающий «старую» объектную модель. Поскольку все 
возможности этой модели доступны классам, я не буду рассматривать ее в этой 
книге, а «освободившийся» термин объект буду употреблять исключительно для 
обозначения конкретного экземпляра реализации класса. 

Важным отличием классов от других типов является то, что объекты класса 
всегда распределяются в куче, поэтому объект-переменная фактически представ- 
ляет собой лишь указатель на динамическую область памяти. Однако в отличие от 
других указателей, при ссылке на содержимое объекта запрешается использовать 
символ «^» за именем объекта: 

Суре 

ТМуС1аз$ = с1а$$ (ТОр]ес®) 
Е1е1а: Треедег; 


епа; 
уагх 
МуС1аз$: ТМуС1а$$; 
Бед1п 
МуС1аз5^.Е1е1а := 0; // Ошибка! Следует писать так: 


МуС1а5$.Езе]1а := 0; 


епа; 
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Основные понятия 


Классы — это особое «изобретение» программистов для упрощения разработки 
сложных программ и улучшения их качества. В основе классов лежат три фунда- 
ментальных принципа, которые называются инкаисуляция, наследование и поли- 
морфизм. 


Инкапсуляция 


Класс представляет собой единство трех сущностей — полей, методов и свойств. 
Объединение этих сущностей в единое целое и называется инкапсуляцией. Ин- 
капсуляция позволяет во многом изолировать класс от остальных частей програм- 
мы, сделать его «самодостаточным» для решения конкретной задачи. В результате 
класс всегда несет в себе некоторую функциональность. Например, класс ТГогм 
содержит (инкапсулирует в себе) все необходимое для создания окна \/!т4о\5- 
программы, класс ТМето представляет собой полнофункциональный многостроч- 
ный текстовый редактор, класс ТТ1мег обеспечивает работу программы с тайме- 
ром ит. д. 

Инкапсуляция является мощным средством обмена готовыми к работе про- 
граммными заготовками. Библиотека классов Ое!рЬ! — это, фактически, набор 
«кирничиков», созданных программистами Вог|ап для построения ваших про- 
грамм. 


Наследование 


Любой класс может быть порожден от другого класса. Для этого при его объявле- 
нии указывается имя класса-родителя: 


ТСр1]1аС1азз$ = Сс1аз$ (ТРагеп*С1а$5) 


Порожденный класс автоматически наследует поля, методы и свойства своего 
родителя и может добавлять новые. Таким образом, принцип наследования обес- 
печивает поэтапное создание сложных классов и разработку собственных библио- 
тек классов. 

Все классы Оер порождены от единственного родителя — класса ТОБ)еск. 
Этот класс не имеет полей и свойств, но включает в себя методы самого общего 
назначения, обеспечивающие весь жизненный цикл любых объектов — от созда- 
ния до уничтожения. Программист не может создать класс, который не был бы 
дочерним классом ТОБЗес+. Следующие два объявления идентичны: 


ТаС1аз5 = с1азз (ТОБ)ес®) 
ТаС1аз5 = с1а$$ 


Принцип наследования приводит к созданию ветвящегося дерева классов, по- 
степенно разрастающегося при перемещении от класса ТОБ]есе к его потомкам. 
Каждый потомок дополняет возможности своего родителя новыми и Передает их 
своим потомкам. Замечу, что дочерний класс не может удалить какую-либо СУщ- 
ность родительского класса. В отличие от С+-, дочерний класс не может иметь два 
и более родительских классов, то есть в Деры: запрещено множественное Насле- 
дование. 
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Для примера на рис. 8.1 показан небольшой фрагмент дерева классов Ое]ры. 
Класс ТРег$1з$еп& обогащает возможности своего родителя ТОБ)еск: он «уме- 
ет» сохранять данные в файле и получать их из него, в результате это умеют делать 
и все его потомки. Класс ТСотропеп*, в свою очередь, умеет взаимодействовать 
со средой разработчика и передает это умение своим потомкам. Класс ТСопего1 
не только способен работать с файлами и средой разработчика, он еще умеет 
создавать и обслуживать видимые на экране изображения, а его потомок 
ТИ1пСопего1 может создавать окна \/104о\$-программ ит. д. 


ТмеПасеОШес ТРегу$ет{ 
ТЭгеатАдар{ег ЕпОЩЕггог ЕощО{Метегу ЕАБо{ 


ТСойесюп ТСотропеп{ 
ТСопго! 


ТМ/пСоп о! 


Рис. 8.1. Фрагмент дерева классов Веры 


Полиморфизм 


Полиморфизм — это свойство классов решать схожие по смыслу проблемы разны- 
ми способами. В рамках Ое]рВЬ! поведенческие свойства класса определяются на- 
бором входящих в него методов. Изменяя алгоритм того или иного метода в по- 
томках класса, программист может придавать этим потомкам отсутствующие 
у родителя специфические свойства. Для изменения метода необходимо перекрыть 
его в потомке, то есть объявить в потомке одноименный метод и реализовать в нем 
нужные действия. В результате в объекте-родителе и объекте-потомке будут дей- 
ствовать два одноименных метода, имеющие разную алгоритмическую основу и, сле- 
довательно, придающие объектам разные свойства. Это и называется полиморфиз- 
мом объектов. 

В Реры полиморфизм достигается не только описанным выше механизмом 
наследования и перекрытия методов родителя, но и их виртуализаиией (см. ниже), 
позволяющей родительским методам обращаться к методам своих потомков. 


Составляющие класса 


Поля 
Полями Называются инкапсулированные в классе данные. Поля могут быть любо- 
Го тига, в том Числе — классами, Например: 


туре 
ТМуС1аз$ = с1а$5$ 
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аТпеЕ1е1а: Тпъедег; 
азегЕ1е1а: $&г1ра; 
а0ь]Е1е1а: ТоОБ]есе; 


епа; 


Каждый объект получает уникальный набор полей, но общий для всех объек- 
тов данного класса набор методов и свойств. Фундаментальный принцип инкап- 
суляции требует обращаться к полям только с помощью методов и свойств класса. 
Однако в Пер! разрешается обращаться к полям и напрямую: 

Суре 

ТМуС1аз5$ = с1а$5$ 
ЕТпЕЕ1е14А: Тпфедег; 
Е5сгЕ1е1а: $&г2пд; 
епа; 
уаг 
ао0ю]есе: ТМуС1а$$; 
Бед1п 
аО0Б)]есе.ЕТпЕЕ1е1а := 0; 
аор]есе.Е5ЕгЕ1е1А := "Строка символов!; 


епа; 


Класс-потомок получает все поля всех своих предков и может дополнять их 
своими, но он не может переопределять их или удалять. Таким образом, чем ниже 
в дереве иерархии располагается класс, тем больше данных получают в свое распо- 
ряжение его объекты. 


Методы 


Инкапсулированные в классе процедуры и функции называются методами. Они 
объявляются так же, как и обычные подпрограммы: 
Суре 
ТМуС1а$5 = с1а$$ 
РКипсе1оп МуГопс (аРаг: Тпеедег): Тпеедег; 
Ргосеацге МуРгос; 
епа; 


Доступ к методам класса, как и кего полям, возможен с помощью составных 
имен: 


уаг 
ао0Б]ес®: ТМуС1а$$; 

Беда п 
а0р)ес®.МуРгос; 


епа; 
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ВНИМАНИЕ — Любому методу класса доступна автоматически объявляемая переменная 
Зе1 Е, которая трактуется как текущий экземпляр данного класса. Если, 
например, в классе объявлено целочисленное поле ТпЕРака, то два следу- 
ющих присваивания в каком-либо методе класса идентичны: 

ТпеБафа := 123; 
5е1ЁЕ.тТпЕБаба := 123; 


Как уже говорилось, методы класса могут перекрываться в потомках. Напри- 
мер: 
фуре 
ТРагепеС1а$$ = ©с1а$з3 
Ргосеацге ПРомогКк; 
епа; 


ТСр119С1аз$ = с1аз$$ (ТРагеп*С1а$5$) 
Ргосеаиге ПБойогк; 
епа; 


Потомки обоих классов могут выполнять сходную по названию процедуру 
роМокгк, но, в общем случае, будут это делать по-разному. Такое перекрытие мето- 
дов называется статическим, так как реализуется компилятором. 

В Реры гораздо чаще используется динамическое перекрытие методов на эта- 
пе прогона программы. Для реализации этого метод, перекрываемый в родитель- 
ском классе, должен объявляться как динамический (с директивой дупам1с) или 
виртуальный (у1хча1.). Встретив такое объявление, компилятор создаст две таб- 
лицы — ОМТ (ОШупапис Мефо4 ТаЫе) и УМТ (Ушгаа| Мефо4 Тае) и поместит 
в них адреса точек входа соответственно динамических и виртуальных методов. 
При каждом обращении к перекрываемому методу компилятор вставляет код, по- 
зволяющий извлечь из той или иной таблицы адрес точки входа в подпрограмму. 
В классе-потомке перекрывающий метод объявляется с директивой оуегг14е 
(перекрыть). Получив это указание, компилятор создаст код, который на этапе 
прогона программы поместит в родительскую таблицу точку входа метода класса- 
потомка, что позволит родителю выполнить нужное действие с помощью нового 
метода. 

Пусть, например, родительский класс с помощью методов $Пом и Н1 де соот- 
ветственно показывает что-то на экране или прячет изображение. Для создания 
изображения он использует метод Огам с логическим параметром: 

фуре 

ТУ150а10р]есе = с1аз8 (ТМ1пСопЕго1) 
Ргосеацге Н14е; 
Ргосеацге 5Пом; 
Ргосе4иге Пгам(Т55Пом: Воо1еап); \1х%4а1; 
епа; 


ТУ151а1Сп11а05)]есЕ = с1азз (ТУ1$0а10Б)есф) 
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Ргосеааге Пгам(155Ром: Воо1еап); очеггзае; 
епа; 


Реализация методов 5Пом и Н1 де очень проста: 


Ргоседиге Т\У151а105]есе.5Пом; 
Бед1п 

ОРгам (Тгое); 
епа; 


Ргосеаиге ТУ1501а1ОБ]есе.Н1ае; 
Бед1п 

Огам (ЕГа15е); 
епа; 


Методы ОРгам у родителя и потомка имеют разную реализацию и создают раз- 
ные изображения. В результате родительские методы $пом и Н1ае будут прятать 
или показывать те или иные изображения в зависимости от конкретной реализа- 
ции метода ОРгам у любого из своих потомков. Динамическое связывание в полной 
мере реализует полиморфизм классов. 

Разница между динамическими и виртуальными методами состоит в том, что 
таблица динамических методов (ОМТ) содержит адреса только тех методов, кото- 
рые объявлены с директивой Яупам1.с в данном классе, в то время как таблица 
УМТ содержит адреса виртуальных методов не только данного класса, но и всех 
его родителей. Значительно большая по размеру таблица УМТ обеспечивает бо- 
лее быстрый поиск, в то время как при обращении к динамическому методу про- 
грамма сначала просматривает таблицу ОМТ у объекта, затем — у его родитель- 
ского класса и так далее, пока не будет найдена нужная точка входа. 

Динамически перекрываемые методы часто могут вообще ничего не делать. 
Такие методы называются абстрактными, они обязаны перекрываться в потомках. 
Программист может запретить вызов абстрактного метода, объявив его с директи- 
вой аЪзёгас*. Например: 

фуре 

ТУ15иа105)есе = с1азз (ТМ1пСоп®го1) 

Ргосеацге Пгам(Т$51ом: Воо1еап); \1х6аа]1; афзфгас*; 
епа; 
ТУ15$ца1С111а06)]ес® = с1азз (ТМ1пСопего1) 


Ргосеааге ПОгам(Т$51ом: Воо1еап); очегг1ае; 


уаг 
а/У1$па1ОБ)есё: ТУ15$\а10ОБ]еск; 
а\У1$1а1С111а: ТУ1$ца1С111а05)есе; 
Бед1п 
а\У15ца10ю)]есе.5Пом; (Ошибка! Обращение к абстрактному 
методу} 
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а\У130а1С111Аа.5Вом; {Нормальное обращение. Метод Огам 
у класса ТУ15$иа]1Ср11аорлесё 
перекрыт. } 


Обращение к неперекрытому абстрактному методу вызывает ошибку периода 
исполнения. Разумеется, в грамотно составленной программе абстрактные мето- 
ды никогда не вызываются. Классы, содержащие абстрактные методы, называются 
абстрактными. Такие классы инкапсулируют общие свойства своих неабстракт- 
ных потомков, но объекты абстрактных классов никогда не создаются и не использу- 
ются. Для эксплуатации абстрактных классов в библиотеку классов ОерЫ вклю- 
чаются классы-потомки, в которых перекрываются абстрактные методы родителя. 

В состав любого класса входят два специальных метода — конструктор и де- 
структор. У класса ТОБ)ес& эти методы называются Сгеа*е и Оезекоу, также 
они называются в подавляющем большинстве его потомков. Конструктор распре- 
деляет объект в динамической памяти (размещаются лишь поля объекта, его мето- 
ды являются общими для всех объектов данного класса и в кучу не переносятся) 
и помещает адрес этой памяти в переменную 5е1 Е, которая автоматически объяв- 
ляется в классе. Деструктор удаляет объект из кучи. Обращение к конструктору 
должно предварять любое обращение к полям и некоторым методам объекта. По 
своей форме конструкторы и деструкторы являются процедурами, но объявляют- 
ся с помощью зарезервированных слов Сопзхгасфог и Безёгас®ог: 

Суре 

ТМУуС1а$5$ = с1а$$ 
ТпсЕ1е1аА: Тпъеедег; 
Соп5Егасвог Сгеаее (Уа]1ие: Тпбедег); 
Резёгасвог Пезегоу; 

епа; 


Любые поля объекта, а также методы класса, оперирующие с его полями, могут 
вызываться только после создания объекта путем вызова конструктора, так как 
конструкторы распределяют объект в динамической памяти и делают действитель- 
ным содержащийся в объекте указатель и автоматически объявляемую перемен- 
ную 5е1 Е. 


уаг 
МуоБ]есе: ТМуС1а$3$; 
Бед1п 
МуоБлесе. ТпЕЕ1е]1а := 0; {Ошибка! Объект не создан 
конструктором! } 
МуОБ)]есЕ := ТМуС1азз.Сгеафе; // Надо так: создаем объект 
МуоБ)есе.ТпЕЕ1е1а := 0; // и обращаемся к его полю 
МуОБесе.Егее; // Уничтожаем ненужный объект 
епа; 


В базовом классе ТОБ)ес+ определен метод Егее, который сначала проверяет 
действительность адреса объекта и лишь затем вызывает деструктор Резегоу. 
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Обращение к деструктору объекта будет ошибочным, если объект не создан конст- 
руктором, поэтому для уничтожения ненужного объекта следует вызывать метод 
ггее, как это сделано в предыдущем примере. 

Специально для уничтожения объектов в модуле $узЕем определена процеду- 
ра ЕгееАпам1 1, которая не только уничтожает объект, но и помещает в его указа- 
тель (напомню, что им является идентификатор объекта) значение МТГ: 


ГгееАпам11 (МудБ]ес+) 


Большинство конструкторов реализуют некоторые действия, необходимые для 
правильной работы объекта. Поэтому в конструкторе класса-потомка следует сна- 
чала вызвать конструктор своего родителя, а уже затем осуществлять дополни- 
тельные действия. Вызов любого метода родительского класса достигается с по- 
мощью зарезервированного слова ТпЪег1 +е4 (унаследованный): 


Соп5Егасеог ТМуСс1аз$ .Сгеаке (Уа1ие: Треедег); 
// Возможная реализация конструктора 


Бед1п 
Тпрег1$еА Сгеафе; // Вызываем унаследованный конструктор 
ТпЕЁЕ1е1а := Уа1ае; // Реализуем дополнительные действия 
епа; 


Некоторые методы могут вызываться без создания и инициализации объекта. 
Такие методы называются методами класса, они объявляются с помощью зарезер- 
вированного слова с1аз$$: 

фуре 

ТМУуС1аз5 = с1а$$ (ТОр]ес®) 
с1аз$ Рипс&1оп СееС1аз5Маме: $%гх1пда; 
епа; 

уаг 

5: 5Егапа; 
Бед1п 
5 := ТМуС1а$$.СеЕеС1а$$Мапте; 


Методы класса не должны обращаться к полям, так как в общем случае вызы- 
ваются без создания объекта, а, следовательно, в момент вызова полей просто не 
существуют. Обычно они возвращают служебную информацию о классе — имя 
класса, имя его родительского класса, адрес метода и т. п. 


Одноименные методы 


В Оеры имеется возможность в рамках одного класса объявлять несколько одно- 
именных методов. Описанный выше механизм перекрытия родительского метода 
одноименным методом потомка приводит к тому, что потомок «не видит» пере- 
крытый родительский метод и может обращаться к нему лишь с помощью зарезер- 
вированного слова ТпВех1 +еа. В Ое|рЫ введено зарезервированное слово оуег- 
1оа4 (перезагрузить), с помощью которого становятся видны одноименные методы 
как родителя, так и потомка. 
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ВНИМАНИЕ — Чтобы одноименные методы можно было отличить друг от друга, каждый 
из них должен иметь уникальный набор параметров. В ходе выполнения 
программы при обращении к одному из одноименных методов программа 
проверяет тип и количество фактических парамстров обращения и выби- 
рает пужный метод. 


При обнаружении одноименного метода компилятор Верь! предупреждает 
о том, что у класса уже есть аналогичный метод с другими параметрами. Для по- 
давления сообщений объявление одноименного метода можно сопровождать за- 
резервированным словом гезпЕго@асе (вновь ввести). 

В следующем примере в классе ТЕоги1 используются целых 4 одноименных 
метода С1озе. Лишь один из них (унаследованный метод без параметра) выпол- 
няет свои основные функции — закрывает окно. Три другие отличаются набором 
параметров и выводят сообщение в заголовок окна. 

Поместите на пустую форму четыре кнопки ТВа% бол и напишите такие `‘обра- 
ботчики их событий ОпС11скК: 


ргосеаиге ТГогп1.ВоеЕоп1С11сК (бепаег: ТОБ]ес®); 
Бедап 

С1о5е ('Строка символов') 
епа; 


ргоседиге ТГогп1.ВаеЕоп2С11сК (бепаег: ТОБ)ес®); 
Ьед1п 

С1о5е (123) 
епа; 
ргосеааге ТГогп1.ВаеЕоп3С11ск (бепаег: ТОБЗес®); 
Бед1п 

С1озе (20,300); 
епа; 


ргосеааге ТЕГогп1.Ваеоп4С11сК (бепаег: ТОБ)ес®); 
Бед1п 

С1о5е 
епа; 


Теперь в раздел рхачхаее класса ТГогм1 вставьте три объявления методов 
С] о5е: 


рх1уа%е 
{ РглуаЕе аес]агаЕ1оп$ } 
ргосеачге С1о5е(5: 5Ег1пд9); гезпегоаисе; оуег1оаа; 
ргоседиге С1о5е(Т: Тпфедег); хезпегоачцсе; оуег1оаа; 
ргосеаоге С1озе(Т,у: Тпбедег); хгезпЕгоачсе; очхег1оаа; 


И, наконец, в разделе 1пр1емепва*1оп поместите описания объявленных ме- 
ТОДОВ: 


ргосеасге ТЕГогп1.С1о0$5е (5: $8%х1п9); 
Бед1п 
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СарЕ1оп := 5 
епа; 


ргосеаиге ТГогп1.С1озе(Т: Тпёедег); 
Бед1п 

СарЕ1оп := ТпЕТобег (Т) 
епа; 


ргосеаиге ТГогп1.с1о5е(Т,4: Тпфедег); 
Ьед1п 

Сар&1оп := ТпЕТобекг (1*1) 
епа; 


| Теперь после запуска программы три первые кнопки будут вызывать методы 
С1о5е класса ТГогт1 и менять заголовок окна, в то время как кнопка Ва оп4 
обратится к методу С1озе родительского класса ТГогм и закроет окно. 


Свойства 


Свойства — это специальный механизм классов, регулирующий доступ к полям. 
Свойства объявляются с помощью зарезервированных слов ргорегкфу, геа4 и 
иг1 фе (слова геа& и мх1е считаются зарезервированными только в контексте 
объявления свойства). Обычно свойство связано с некоторым полем и указывает 
те методы класса, которые должны использоваться при записи в это поле или при 
чтении из него. Например: 
фуре 
ТаС1аз5$ = с1азз 
ТрЕЕ1е1а: Тпеедег; 
РЕипсё1оп СееЕ1е1а: Тпеедег; 
Ргосеаиге 5еЕЕ1е1а (Уа]1е: Тпседекг); 
Ргорегеу ТпеедегУа]11е: Тпеедег геаа СефГ1е1а 
иг1ве зееЕ1е1а; 
епа; 


В контексте программы свойство ведет себя как обычное поле. Например, МЫ 
могли бы написать такие операторы. 
уаг 


аС1аз$: ТаС1а$сз; 
\Уа10е: Тпфедег; 


Бед1п 
аС1аз$ := ТаС1аз$.Сгеаке; { Обязательное обращение 
к конструктору перед обращением к полю или свойству!) 
аС]1а$5.ТпседегУа11е := 0; 
Уа]1пе.:= аС1а$$.ТпЕедехУа1ае; 
РгееАпМ11 (аС1аз$); // Удаление ненужного объекта 


епа; 
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Более того, возможен и такой оператор присваивания: 
аС1а$5$.ТрпЕЕ1е]1]а := МемУа1ае; 


Разница между этим оператором и оператором, показанным ниже, заключается 
в том, что при обращении к свойству автоматически подключается метод Зе =Е1е14, 
в котором могут реализовываться специфичные действия: 


аС]1а5$5.Тпбеаех\Уа]1ае := МемУа1ае; 
Вспомним использовавшийся нами в учебной программе оператор: 
160аЕраЁе.СарЕ1оп := 'Строка!; 


Свойство СарЕ1оп компонента Гафе1 вызывает метод 5ееТех%, который не 
только запоминает строку символов во внутренней переменной, но и осуществля- 
ет прорисовку метки с новым текстом. 

Если нет необходимости в специальных действиях при чтении или записи свой- 
ства, вместо имени соответствующего метода можно указывать имя поля: 


Суре 
ТаС1аз$5 = с1а$$ 
ТпеР1]1еа: Тпфедег; 
Ргосеаиге бетЕ1е1а (Уа1це: Тпфедег); 
РгорегЕеу ТпеедегУа1ае: 
Тпеедег хгеаА ТпЕЕ1]е мгле бесЕ1е1а; 
епа; 


Если необходимо, чтобы свойство было доступно только для чтения или толь- 
ко для записи, следует опустить соответственно часть иг1е или геаа. Вообще 
говоря, свойство может и не связываться с полем. Фактически оно описывает один 
или два метода, которые осуществляют некоторые действия над данными того же 
типа, что И свойство. 


Объявление класса 


Любой вновь создаваемый класс может содержать секции (разделы), определяе- 
мые зарезервированными словами ру 11 Ве (опубликованные), ре1чха*е (зак- 
рытые), рхо%фесвеа (защищенные), руЪ11с (открытые) и аафома*еа (автома- 
тизированные). Внутри каждой секции вначале определяются поля, а затем методы 
и свойства. 

Секции определяют области видимости элементов описания класса. Секция 
раь11с не накладывает ограничений на область видимости перечисляемых в ней 
полей, методов и свойств — их можно вызывать в любом другом модуле програм- 
мы. Секция руЪ1.1 5 Ве также не ограничивает область видимости, однако в ней 
перечисляются свойства, которые должны быть доступны не только на этапе ис- 
полнения, но и на этапе конструирования программы (то есть в окне инспектора 
объектов). Секция ручЪ1.1зВеа используется только при разработке нестандарт- 
ных компонентов. Замечу, что среда Оер! помещает описания компонентов, встав- 
ленных в форму, в спёциальную секцию без названия, которая располагается сразу 
за заголовком класса и продолжается до первой объявленной секции. Эта секция — 
рчЬ11 $Веа. Программисту не следует помещать в нее собственные элементы описа- 
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ния класса или удалять из нее элементы, вставленные средой. Секция рг1уа*е 
сужает область видимости до минимума: закрытые элементы описания доступны 
только внутри методов данного класса и подпрограммах, находящихся в том же 
модуле, где описан класс. Элемент, объявленный в секции рг1уа*е, становится 
недоступным даже ближайшим потомкам класса, если они размещаются в других 
модулях. Секция рго&ес&еа доступна только методам самого класса, а также 
любым его потомкам, независимо от того, находятся ли они в том же модуле или 
нет. Наконец, секция аафотаее4 используется только для объявления свойств 
и методов, которые будут добавлены к так называемому интерфейсу ОТ.Е-объек- 
тов автоматизации; область видимости членов этой секции не ограничена. 

В Веры разрешается сколько угодно раз объявлять любую секцию, причем 
порядок следования секций не имеет значения. Любая секция может быть пустой. 

Следующий фрагмент кода поясняет различные области видимости: 


911 0п11; 
ТпфегЕасе 
Озез$ СопЕго1$, КГогмз; 
фуре 
ТГоги] = ©с1аз$$ (ТГогп) 
Ваебоп1: ТВиабкоп; // Эта секция обслуживается ПБе]рр1 
// Ее элементы доступны всем 
рг1уаее // Эта секция доступна в модуле 0п1Е1 
ЕТпеЕ1е1а: Тпфеадег; 
Ргосеаоге Зес\Уа1ае (Уа11е: Тпеедег); 
Гипс&1оп Сее\Уа1ае: Тпфедег; 


рУчЬ11зНнеа // Эта секция доступна в любом модуле 
Ргорегеу ТпЕЁГ1е]14: геаа сесУа1ое мг1%е Зес\Уа10е; 
рго$есвеа // Эта секция доступна классам-потомкам 
Ргосеацге Ргос1; 
рУчЬ11с // Эта секция доступна в любом модуле 
Ргосеаиге Ргос2; 
епа; 
уаг 
Гогм1: ТГогш1; 
Тир1етепфа®1оп 
Ргосеацге ТЕГоги1.Ргос1; 
Воекоп1.Со1ог := Сс1В&пГасе; // Так можно 
ЕТпеЕ1е1а := 0; // Так можно 
ТпеЕ1е1а := 0; // Так можно 
Ргос1; // Так можно 
Ргос2; // Так можно 
епа; 
Ьед1п 
ГКогм1.Ваеоп1.Со1ог := с1В&пРасе; // Так можно 
Гогш1.ЕТпеЕ1е1а := 0; // Так можно 
Гогм1.1п%Е1е]1а := 0; // Так можно 


Когт1.Ргос1; // Так нельзя! 
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Роги1.Ргос2; // Так можно 
епа. 


Опа 0п12; 
ТпёегЕасе 
Озез СопЕго1$, 0п1%1; 
Суре 
ТРГогш2 = С]1азз$ (ТГогп1) 
Ваевоп2: ТВоаееоп; 
Ргоседаиге Вае®оп2С11скК (Зепаег: ТОБ)ес®); 


епа; 
уаг 
Гогт2: ТЕГогш2; 
Тир1етепва®1оп 
Ргосед4иге ТГоги2.ВиаеКоп2С11сК (Зепаег: ТОБ]ес®); 
Бед1п 
Вое$оп1.Со1ог := с1ВёпГасе; // Так можно 
ЕТпеЕ1е1а := 0; // Так нельзя! 
ТпеЕ1е1а := 0; // Так можно 
Ргос1; , // Так можно 
Ргос2; // Так можно 
епа; 
Бед1п | 
Гогм1 .Ваоп1.Со]1ог := Сс1ВёпРасе; // Так можно 
Гогм1.ЕТпеЕ1е1а := 0; // Так нельзя! 
Гоги] .ТпеЕ1е]1а := 0; // Так можно 
ГКоги1.Ргос1; // Так нельзя! 
Гоги1.Ргос2; // Так можно 
епа. 


При объявлении класса-потомка разрешается перемещать элементы класса из 
одной области видимости в другую. Для предыдущего примера допустимо такое 
объявление: 


Суре 
ТРоги2 = СсТаз$ (ТГогп1) 


РаЬ11с 
ргосеачге Ргос1; 
епа; | 
После этого в модуле Ип1+2 возможно следующее обращение: 


РГогм2 .Ргос1; 


После перемещения в секцию рх1уа*е элемент объявления становится неви- 
дим потомкам (если потомок, как это обычно бывает, объявляется в другом моду- 
ле) и, следовательно, его уже нельзя переместить в другую секцию. 
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Класс может объявляться только в интерфейсной области модуля или в самом 
начале области реализации. Нельзя определять классы в разделе описаний под- 
программ. 


Приведение типов классов 


Любой тип-класс относится к так называемым типам с информацией о типе во 
время исполнения (КипТите Туре шюгтайоп, ВКТТГ). Экземпляры таких типов 
компилятор снабжает дополнительной информацией, позволяющей, в частности, 
на этапе прогона программы проверить принадлежность экземпляра нужному клас- 
су и осуществить его приведение. Для этого используются операторы 13 и аз: 


1Е (АОБ1есе 1$ ТМуС1аз$) Веп 
(АОБ]есЕ аз ТМуС1аз5).ТпЕРаеа := 12345; 


Глава 9 
Варианты 


Вариант — это тип Уаг1апк, разработанный специально для тех случаев, когда на 
этапе компиляции программист не может сказать, какого типа данные будут ис- 
пользоваться в выражении или в качестве параметров вызова подпрограмм. Пере- 
менная-вариант занимает в памяти дополнительные 2 байта, в которые помещает- 
ся информация о действительном типе переменной. Эта информация позволяет 
компилятору создать код, который будет осуществлять необходимое преобразова- 
ние типов на этапе прогона программы. 
В переменную-вариант можно поместить: 


‚. Целое или вещественное число; 


; логическое значение; 
"” строку; 


"" время и/или дату; 
*" ОГЕ-объект: 


" массив произвольной размерности и длины, содержащий элементы одного из 
перечисленных выше типов. 


Варианты при условии корректности соответствующих преобразований могут 
участвовать в целочисленных, вещественных и логических выражениях, а также 
в выражениях с временем и датой. Например, если варианту У присвоена строка 
'1.0', то выражение 1+У будет правильным вещественным значением 2,0. Од- 
нако если У содержит строку 'Текст', выражение 1+У вызовет исключение 
ЕУаглап Е Еггок. 

В Реры определены перечисленные в табл. 9.1 константы, указывающие тип 
помещенных в вариант данных. 


Таблица 9.1. Типы возможных значений варианта 


имя [Конетанта [мыл 


уагбма] 1ТпЕ 
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уагСоиггепсу 


Неизвестный ОГЕ-объект 


Структура вариантного типа описывается следующим образом: 


ТУаграфа = раскКе@ гесога 
УТуре: ПМога; 
Везегуеа1, Везегуеа2, КезегуеаЗ: Мога; 
сазе Тптедег оЕЁ 


уагбма11Тпе: (\У\5та11Тле: 5ма111Тп®); 
уагТпееаег: (УТпеедег: Тпфедег); 
уаг51п91е: (У51па1е: 51п1491е); 
уагроор]1е: (УРоцЬ1е: Роир1е}; 
уахСиггепсу: (УСаггепсу: Саггепсу); 
уаграте: (Рае: Ро Ь1е}; 
уагО1езег: (УО1ебег: РИ1аеСПаг); 
уагр15раесп: (\Ур15рабср: Ро1пфег); 
уахЕггог: (УЕггог: МогЯВоо1); 
уагхзег1 па: (УбЕега па: Ро1пфег); 
уагхАггау: (УАггау: РУагАкггау); 
уагВуВеЕ: (УРо1пеег:  Ро1пфег); 
епа; 


Как нетрудно убедиться, любая переменная вариантного типа представляет 
собой 16-байтную запись, содержащую 8-байтную вариантную часть, которая хра- 
нит либо собственно данные, либо их адрес (то есть указатель на динамически раз- 
мещенные данные). В поле УТуре в момент создания варианта компилятор поме- 
щает признак отсутствия данных уахЕпр®у. В работающей программе значение 
этого поля меняется в соответствии с текущим типом данных, размещенных в ва- 
риантной части. Замечу, что программа не может получить прямого доступа к по- 
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ЛЯМ вариантной записи. Получить тип вариантных данных можно с ПОМОЩЬЮ функ- 
ции УагТуре (см. ниже), а изменить тип — путем присваивания варианту нового 
значения. 


Преобразование вариантов 
к данным других типов 


При участии вариантов в выражениях, а также при присваивании их значений пе- 
ременным других типов тип размещенных в варианте данных преобразуется по 
правилам, указанным в табл. 9.2. 


Таблица 9.2. Преобразование типов для вариантов 


Приво- Тип данных в варианте 


дится Целые Вешественные | Дата-время Строковые |Логические 


К целым Преобразо-| Округление до | Округление до |Преобразова-| 0 для Ка1зе, 
вание в со- | ближайшего ближайшего ние в целый | иначе -1 
ответству- | целого целого тип (255 для 
ЮЩИЙ ТИП Вубе) 


К вещест- Преобразо-| Преобразование| Преобразование Преобразова- | 0 для Еа1 зе, 
венным вание в со- | в соответству- | в соответствую- |ние в вещест- | -1 для Ткое 
ответству- | ющий тип ЩИЙ ТИП венный тип 
юЩиЙ ТИП 


30.12.1899 | Преобразо-| Преобразование! Без преобразо- |Преобразова-| Преобразо- 
00:00:00 вание в в Роиб] е вания ние в дату ваниев 
Роц1е Роир1е 


К стро- Пустая Преобразо-! Преобразование! Преобразование| Без преобра- |'0' для 

ковым строка вание в в символьный |всимвольный |зования га15е, '-1' 
СИМВОЛЬ- | ВИД ВИД для Тгие 
НЫЙ ВИД 


К логи- Га]15е для | Га15е для 0, Ра]1зе для 0, |Га1зе для Без преобра- 
ческим 0, иначе иначе Тгце иначе Тгое 'Ра15е' зования 
Тгие и для '0', 
иначе Тгое 


Здесь: 


„К Целым отнесены типы уагВуфе, уагбма11Тп&, уагТпфедегх, уахЕггохг; 


.” К вещественным отнесены типы — уаг51п91е, уагрооЪ1е, уагСиггепсу; 


‚" к строковым отнесены типы — уаг5®*г1па, уагО1е5%гк. 


Использование вариантов в выражениях 


Подобно данным большинства других типов, вариантные данные можно исполь- 
зовать в выражениях при условии корректности автоматического приведения ти- 
пов. Если, например, варианты \1 и\2 содержат целые числа, то выражение \У1+\2 
будет целого типа, а выражение \1 /\У2 — вещественного. Однако что будет, если 
операнды-варианты содержат различные типы данных? Однозначно ответить на 
это трудно — все зависит от структуры выражения. Рассмотрим такой пример: 
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ргосеацге ТЕпЕхатр1е.рЬВопС11сК (5епаег: ТОБ)ес®); 


уаг 
\1, \2, УЗ: УаглапЕ; 
Бед1п 
№1 := 10; // Целый тип 
м2 := 20; // Целый тип 
УЗ := '30'; // Строковый тип 
1600 Ерие.СарЕ1оп := \1+\2+У3 
епа; 


Здесь сначала вычисляется выражение \1+\У2=30, а затем к полученному це- 
лочисленному значению прибавляется строка, которая компилятором будет пред- 
варительно приведена к целому типу. В результате получим 60. 

Изменим пример следующим образом: 


ргосе4иге ТЕпЕхапр1е.ррВопС11сК (5еп4аег: ТОБ)ес®); 


уаг 
\1, \2, УЗ: УаглапЕ; 
Бед21п 
\У1 := '10'; // Строковый тип 
У2 := '20'; // Строковый тип 
УЗ := 30; // Целый тип 
160чЕроае.Саре1оп := \У1+\У2+У3 
епа; 


Теперь сначала будет получена строка '1020', к которой следует прибавить 
целое число 30. Компилятор преобразует строку в целое число, в результате полу- 
чим 1050. Если бы вычислялось следующее выражение, компилятор тут же при- 
вел бы каждый операнд к целому типу, и мы опять получили бы 60: 


Тпеесдег (\У1) +У2+У3 


Об этих тонкостях применения вариантов не следует забывать: если вы исполь- 
зуете выражения с операндами, везде, где это возможно, явно укажите тип резуль- 
тата. К. сожалению, это противоречит самой природе варианта, и поэтому не всегда 
ВОЗМОЖНО. 

Как уже отмечалось, вариант может иметь два особых значения: уагЕпреу 
и \уагМ№о11 (см. табл. 9.1). Первое он получает в момент создания. Оно означает, 
что вариант не имеет никакого значения. Второе означает, что значением варианта 
является ничто (№11). Это значение широко используется в приложениях для 
работы с базами данных. Для проверки, содержит ли вариант значение уагЕмеу 
или уахМо1 1, можно использовать две определенные в модуле 5узеем константы: 
Опазз1апеа и №11. Если хотя бы один операнд выражения содержит значение 
уагМа11, все выражение приобретает такое же значение. Если какой-то операнд 
содержит значение уахЕтмр® у, вычисление выражения приведет к исключитель- 
ной ситуации. 


Подпрограммы для работы с вариантами 


Для работы с вариантами можно использовать подпрограммы, перечисленные 
в табл. 9.3. 
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Таблица 9.3. Подпрограммы для работы с вариантами 


Подпрограмма 


Еипсе1оп \УагАзТуре (сопз® \У: \Уаг1апЕ; 
УагТуре: Тпеедег): Уагзапе; 


Преобразует дапные варианта \ 
к типу, определяемому парамстром 
УагТуре 


Преобразует данные варианта 
Зоигсе к типу, определяемому 
параметром УагТуре, и помещает 
результат в переменную Безе 


ргосеаиге УагСаз® (маг Пез®: Уаг1ап(; 
соп$е Зоигсе: Уаглапе; УагТуре: 
Тпседег); 


Освобождает динамическую память, 
если она была связана с вариантом, 
И даст ему тии уахЕпреу 


ргосеаиге УагСору (маг Пез®: Уаг1ап&; Копирует параметр 5оцгсе 

соп5Е боигсе: Уаг1ап®); в вариаит Резе 

Еапсе1оп УагРЕгопрРафеТ1те (РрахеТ1ме: Возвращает вариант, содержащий 
ТРафеТ1те): Уаг1апе; данные РафеТ1ме типа дата-время 
Еипсе1оп \УагТзЕтпреу (соп$® У: Возвращаст Тгое, если вариант У не 
Уаг1ап®): Воо]1еап; содержит данных 


ргосеаиге УагС]1еат(уаг У: Уаг1апЕ); 


Возвращает Ткое, если вариант \ 
содержит данные неопределенного 
типа (уах№11) 


Еапсе1оп \УагТ$М№11 (сопз® \: 
\Уагзап®): Воо1еап; 


Еапсе1оп \УагТорасеТ1ме (сопз® У: Преобразует данные варианта У 
Уаг1ап®): ТрафеТ1щме); к типу дата-время 


Еипсе1оп \УагТобЗег (сопзе \: \Уаг1апе): | Преобразует данные варианта У 

ЗЕг1па; к строке 

Еипсе1оп \УагТуре (сопзе У: Уаг1ап®): Возвращает тип хранящихся 
Тпеедег; в варианте дапных 


Вариантные массивы 


Значением варианта может быть массив данных, такие варианты называются ва- 
риантными массивами. (Не путайте с обычным или динамическим массивом, эле- 
ментами которого являются варианты!) Значениями элементов вариантного масси- 
ва могут быть любые допустимые для варианта значения, кроме строк уаг$ Е х1 па. 
Значениями элементов вариантного массива могут быть и варианты, а это значит, 
что в таком массиве могут одновременно храниться данные разных типов (и в ТОМ 
числе строки). Например: 


уаг 
У: УаглапЕ; 

Бед1п 
// Создаем одномерный вариантный массив с 5 элементами: 
\У := УагАггауСгеаке ([0, 4], уагУаг1ап®); 
// Наполняем его: 
[0] := 1; // Целый тип 
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[1] := 1234.5678 // Вещественный тип 
У[2] := 'Не]11о мог]1а!; // Строковый тип 
[3] := Ткоае; // Логический тип 


// Пятым элементом исходного массива сделаем еще 
/И/ один массив: 


У[4] := УагАггкауоЕ ([1, 10, 100, 1000]); 
Сар®1оп := \[2]; // Не11о иог1а 
1РО0иЕрие.СарЕ1оп := ТпЕТобег (У[4] [2]); /И/ 100 

ера; 


Все действия с вариантными массивами осуществляются с помощью процедур 
и функций, перечисленных в табл. 9.4. 


Таблица 9.4. Подпрограммы для работы с вариантными массивами 


Подпрограмма 


Еипсе1оп \УагАггауСгеа*е (соп$® 


Воппа$: аггау оЁ Тпфедег; \УагТуре: 


Тп$хеаег): Уаг1апе; 


Еипсе1оп \УагАггау)1тСочп® (соп$® 
А: Уаг1ап®): Тпеедег; 


Еипс&1оп УагАггауН1айвВочпа (сопз® 
А: Уаглап®; П1м: Тпеедег): 
Трседег; 


Еипсе1оп \УагАггауГоск (маг А: 
Уагзап®): Ро1пеег; 


Еипсе1оп УагАггауГомВоппа (соп5е 
А: Уаглап®е; ПР1лм: Треедег): 
1п$седег; 


Еипсе1ол \УагАггауОЕ (соп5® Уа11ез: 


аггау оЁЕ \Уаг1ап®): \Уаг1апс; 


ргосеаиге УагАггауВеа1тп (уаг А: 
Уаг1апе; Н1лаПВоопа: Тпфеаег); 


ЕапсЕ1оп \УагАггаувВЕЕ (соп5% А: 
\Уагзап®): \УагтаптЕ; 


ргосеаиге УагАггау0Оп]оск (уаг 
А: Уаглапф) 


Создает вариантный массив из 
элементов типа УагТуре с количеством 
н границами измерений, определяемыми 
параметром Воцпа5 


Возвращает количество измерений 
вариантного массива А или 0, если А — 
не массив 


Возвращает верхнюю границу индекса 
вариантного массива А по измерению 
Ом 

Блокирует массив (предотвращает его 
возможные изменения размеров) 

и возвращает указатель па связанные 
сним данные 


Возвращает нижнюю границу индекса 
вариантного массива А по измерению 
01 


Создает одномерный вариантный 
массив по перечню значений, содержа- 
щихся в открытом массиве \Уа]цез. 
Нижняя граница индексов вариантного 
массива в этом случае равна 0 


Изменяет верхнюю границу индекса 
вариантного массива А на величину 
Н1айВочцпа. Вызов процедуры 
игнорируется, если массив был 
заблокирован функцией УагАггауЬоск 


Возвращает ссылку на вариантный 
массив. Используется при обращении 
к АР[-функциям 


Отменяет действие функции 
УагАггауГоск 
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Пользовательские варианты 


В РарЫ! можно создавать так называемые пользовательские варианты, которые, 
фактически, снимают ограничения на характер значений варианта. 

Чтобы познакомиться со свойствами новых вариантов, воспользуемся одним 
из них — вариантом, способным хранить комплексные числа, преобразовывать их 
в другие типы и осуществлять над ними нужные действия. Как мы увидим дальше, 
создание пользовательского варианта может быть весьма трудоемким делом — все 
зависит от сложности хранимых в нем данных. Мы воспользуемся вариантом, со- 
зданным разработчиками Оеры и включенным в модуль УагСтр1х -— этот вари- 
ант способен хранить как стандартные для других вариантов значения (числа, стро- 
ки, объекты ОГЕ ит. д.), так и комплексные числа. 

Создайте следующий обработчик Б5ВопС11сК (проект $оигсе\СПар_09\Си$от 
\Уатап(\Си$Маг.арг): 


изез \УагСпр1х; // Эта ссылка обязательна! 
ргосеаиге ТЕпЕхапр1е.ЬКипС11сК (Зепдег: ТОБ)ес®); 
уаг 
\1, \У2: Уаглап®; 
Бед1п 
// Создаем два случайных комплексных числа: 
\У1 := УагСопр1ехСгеа*е (Тгопс (Вапаот*1000) /100, 
Тгапс (Вапаом*1000) /100); 
\2 := УагСопр1ехСгеаке (Тгопс (Вапаом*1000) /100, 
Тгипс (ВапЯ9ом*1000) /100); 
м1ЕВ птОсЕерое.Ъ1пез$ ао 
Ьед1п // Пустая строка-разделитель 
Ааа (''); 
Ааа ('1-е число: '#9+\1); 
Ааа ('2-е число: '#9+У2); 
Ааа ('Сложение' #9+ (У1+\2)); 
АЧа ('Вычитание' #9+ (\1-У2)); 
Ааа ('Умножение ' #9+ (\1*\2)); 
АДА ('Деление' #9#9+ (\1/\2)) 
епа 


Сложная конструкция Тгопс (Вапдот*1000) /100 понадобилась только для 
того, чтобы реальные и мнимые части комплексных чисел содержали по три зна- 
чащих цифры. 

Вид экрана работающей программы показан на рис. 9.1. 

Как видим, новый вариант легко справляется с поддержкой комплексных чи- 
сел: функция УагСопр1ехСгеафе создает вариант, содержащий комплексное 
число, а дальнейшее поведение варианта стандартное (он поддерживает матема- 
тические операции и преобразование к строковому типу). Однако эта легкость 
обманчива: исходный текст модуля УагСптр1х, который, собственно, и придал 
варианту дополнительные свойства (по умолчанию располагается в файле 


1-е число: 
12-е число: 
"Сложение 
|Вычитание 


Зоигсе\ В \Соттоп\\агСтр(х.ра 


40 000 байт. 


0 + 0,311 

8,61 + 2.021 

8.61 + 2,331 

-8,61 - 1,711 

-0,6262 + 2.66911 

0,00800639284001918 + 0,0341262585903788} 


2.72 + 6,711 

3,18 + 1,611 

59+ 8.321 

-0,46 + 5.11 

21535 + 25.7171 

1,53116612224015 + 1,334849856350111 
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Рис. 9.1. Демонстрация комплексных вариантов 


5 каталога размещения Оер|!) содержит более 


Методика создания пользовательских вариантов Достаточно сложна ив ЭТОЙ 
книге не рассматривается. 


Глава 10 
Файлы 


Под файлом понимается именованная область внешней памяти компьютера (жест- 
кого диска, дискеты, компакт-диска ит. п.). 

Любой файл имеет три характерные особенности. Во-первых, у него есть имя, 
что дает возможность программе работать одновременно с несколькими файлами. 
Во-вторых, он содержит компоненты одного типа. Типом компонентов может быть 
любой тип Ое|рЫ, кроме файлов. Иными словами, нельзя создать «файл файлов». 
В-третьих, длина вновь создаваемого файла никак не оговаривается при его объяв- 
лении и ограничивается только емкостью устройств внешней памяти. 

Файловый тип можно задать одним из трех способов: 


<имя> = КР1]1е оЁ <тип>; 
<имя> ТехеЕ1]е; 
<имя> Ег1]1е; 


Здесь <имя> — имя файлового типа (правильный идентификатор); Е11е, о — 
зарезервированные слова (файл, из); ТехЕЕ11е — имя стандартного типа тексто- 
вых файлов; <тип> — любой тип Оеры, кроме файлов. 

Например: 

фуре 

РгоаисЕе = хесога 
Маме: 3З6г1па; 
Соае: Мога; 


Со5®е: Сотшр 
епа; 
ТехЕ80 = Е11е оЕЁ $&г2па[80]; 


уаг 
Е1: Е11е оЕЁ Стаг; 
ЕГ2: ТехёЕ11е; 
ЕЗ;: ЕР11е; 
К4: Тех\80; 
Р5: Е11е оЕ Ргоаосе; 


В зависимости от способа объявления можно выделить три вида файлов: 


”” типизированные файлы (задаются предложением Е11е оё...); 
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текстовые файлы (определяются типом Тех&Е11е); 


”” нетипизированные файлы (определяются типом Е11е). 


В представленном выше примере (1, Е4иЕ5 — типизированные файлы, Е2 — 
текстовый файл, ЕЗ — нетипизированный файл. Вид файла, вообще говоря, опре- 
деляет способ хранения в нем информации. Однако в Ое|р!! нет средств контроля 
вида ранее созданных файлов. При объявлении уже существующих файлов про- 
граммист должен сам следить за соответствием вида объявления характеру храня- 
щихся в файле данных. 


Доступ к файлам 


Файлы становятся доступны программе только после выполнения особой проце- 
дуры открытия файла. Эта процедура заключается в связывании ранее объявлен- 
ной файловой переменной с именем существующего или вновь создаваемого фай- 
ла, а также в указании направления обмена информацией: чтение из файла или 
запись в него. 

Файловая переменная связывается с именем файла в результате обращения 
к стандартной процедуре Аз19пЕ11е: 


Аз$1апЕ1]1е (<ф.п.>, <имя файла>); 


Здесь <ф.п.> — файловая переменная (правильный идентификатор, объяв- 
ленный в программе как переменная файлового типа); <имя файла> — тек- 
стовое выражение, содержащее имя файла и, если это необходимо, маршрут 
доступа к нему. 

Инициализировать файл означает указать для этого файла направление пере- 
дачи данных. В РерЫ можно открыть файл для чтения, для записи информации, 
а также для чтения и записи одновременно. 

Для чтения файл инициализируется с помощью стандартной процедуры Везе*: 


Везее (<ф.п.>); 


Здесь <ф.п.> — файловая переменная, связанная ранее процедурой Аз $19п- 
Е11е с уже существующим файлом. 

При выполнении этой процедуры дисковый файл подготавливается к чтению 
информации. В результате специальная переменная-указатель, связанная с этим 
файлом, будет указывать на начало файла, то есть на компонент с порядковым но- 
мером 0. 

В Веры разрешается обращаться к типизированным файлам, открытым про- 
цедурой Везеек (то есть для чтения информации), с помощью процедуры Иг1*е 
(то есть для записи информации). Такая возможность позволяет легко обновлять 
ранее созданные типизированные файлы и при необходимости расширять их. Для 
текстовых файлов, открытых процедурой Везе*, нельзя использовать процедуру 
Иг1те или Мга ееГп. 

Следующая стандартная процедура инициирует запись информации в файл, 
связанный с файловой переменной <ф.п.>: 


Вемг1Ее (<ф.п.>); 
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СОВЕТ — Если делается попытка инициировать чтение из несуществующего файла, воз- 
буждается исключительная ситуация. Чтобы проверить, существует ли диско- 
вый файл, можно использовать стандартную функцию Е11еЕх1 33$, которая 
возвращает Тгие, если указанный при обращении к этой функции файл суще- 
ствует, и Ка1зе — если не существует. Например: 

Ъед1п 
1Е Е11еЕх1$5$ (Е1]1еМаще) Вед 
// Файл существует 
е1зе 
// Файл не существует 
епа; 


Процедурой Кемг1 ее нельзя инициировать запись информации в ранее суще- 
ствовавший дисковый файл: при выполнении этой процедуры старый файл (если 
он был) уничтожается и никаких сообщений об этом в программу не передается. 
Новый файл подготавливается к приему информации и его указатель принимает 
значение 0. 

Следующая стандартная процедура инициирует запись в ранее существовав- 
ший текстовый файл для его расширения, при этом указатель файла устанавлива- 
ется в его конец: 


Аррепа (<0.1.>) 


Процедура Аррепа применима только к текстовым файлам, то есть их файло- 
вая переменная должна иметь тип ТехеЕ11е (см. выше). Процедурой Аррепа 
нельзя инициировать запись в типизированный или нетипизированный файл. 
Если текстовый файл ранее уже был открыт с помощью процедуры Везе* или 
Веиг1 ее, использование процедуры Аррепа приведет к закрытию этого файла 
и открытию его вновь, но уже для добавления записей. 


Подпрограммы для работы с файлами 


Ниже описываются процедуры и функции, которые часто используются с фай- 
лами любого вида (табл. 10.1). Некоторые другие подпрограммы для фай- 
лов перечислены в приложении Б. Специфика работы с типизированными, 
текстовыми и нетипизированными файлами рассматривается в следующих раз- 
делах. 


Таблица 10.1. Подпрограммы для работы с файлами 


Подпрограмма 


ргоседиге Азз19пг11е (умах |Связывает файловую переменную Е с именем файла 
Е; Е1]1еМаме: 56:1п9а); ЕР11еМаме 


ргоседиге С1озеЕ11е Закрывает файл, однако связь файловой переменной 
(уаг Е); г с именсм файла, установленная ранее процедурой . 
Аз51апЕ1 1е, сохраняется. При создании нового или 
расширении старого файла процедура обеспечивает 
сохранение в файле всех новых записей и регистрацию 
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Подпрограмма [Описание 


файла в каталоге. Процедура С1озег11е 
выполняется автоматически по отношению ко всем 
открытым файлам при пормальном завершении 


программы. Поскольку связь файла с файловой 
персменной сохраняется, файл можно повторно 
открыть без дополнительного использования 
процедуры А$$191Е11е 


Еапсе1оп ЕОЕ (уаг Г): 
Воо1еап; 


'Тестирует конец файла и возвращает Тгое, ссли 
файловый указатель стоит в конце файла. При 
записи это означаст, что очередной компонент будет 
добавлен в конец файла, при чтении — что файл 
исчерпан 


ргосеаге Егазе (уаг Г); Уничтожает файл Е. Перед выполнением процедуры 
необходимо закрыть файл. В ряде случаев вместо 
процедуры Егазе удобнее использовать функцию 
Ре1ехег1 1е, которая не требует предварительного 


связывания имепи файла с файловой переменной. 


ЕапсЕ1лоп Е11еЕх156$ (сопз& 
Р1]еМатме: $%&г1п4а): 
Воо]еап; 


Возвращает Тгие, ссли файл с именем (и, возможно, 
маршрутом доступа) Е11еМаме существует 


Еипс®1оп Е1паЕ1г$5е 
Рав: $%&г1п49; АкСг: 
Тпфедег; чаг Е: 
ТбеагсВВес) : Тлфедег; 


Возвращает атрибуты первого из файлов, 
зарегистрированных в указанном каталоге: Рай — 
маршрут поиска и маска выбора файлов; АЕЕх — 
атрибуты выбираемых файлов; Г — переменная типа 
Т5езгс| Вес, в которой будет возвращено имя 
первого выбранного файла. При успешном поиске 
возвращаст значение 0 


(сопзе 


ргосеааге Е1паС1о5е (уаг 
Г: ТбеагспВес); 


Освобождает память, выделенную для поиска 
файлов функциями Е1паЕ1:зе и Е1паМехе 


Еипсе1оп Е1паМехе (уаг Г: 
ТбеагспВес)}: Тпседег; 


Возвращаст в переменой Е имя следующего файла 
в каталоге. Переменная Е должна предварительно 
иницнализироваться обращением к функции 
Е1паЕ1г3зе. При успешном поиске возвращает 
значение 0 


ргоседиге Е1о5ь(уаг Е); Очищаст внутренний буфер файла и, таким образом, 
гарантирует сохраниость всех последних изменений 


файла на диске 


ргоседиге Сеер1г (р: Возвращает имя текущего каталога (каталога по 
Вубе; чаг 5: $%г1па); умолчанию): р — номер устройства (0 — устройство 
по умолчанию, 1 — диск А, 2 — диск В ит. д.); $ — 
переменная типа З&х3п9, в которой возвращается 
путь к текущему каталогу на указанном диске 


ргосеаиге МКО1х(01г:; 
5Е:11п9); 


Создает новый каталог на указанном диске: 21х — 
маршрут поиска каталога. Последним именем 

в маршруте, то есть именем вновь создаваемого 
каталога, не может быть имя уже существующего 


каталога 
ыы продолжение 1 
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Таблица 10.1 (продолжение) 


Подпрограмма Гопивание 


ргосе4иге Кепапе (уаг К; Переименовывает файл Е; МеиМаме — строковое 
МемМаме: $%х1п9а); выражение, содержащее новос имя файла. Перед 
выполнением процедуры необходимо закрыть файл 


ргосеаиге Кезе® (чаг Г: Открывает существующий файл. Вес$12е имеет 
Е11е; Вес512е: Мога]); смысл только для нетипизированных файлов 


и определяет размер блока данных 


ргосечге Кеиг1\е (уаг Е: Создает новый файл. Вес$12е имест смысл только 
Е1]е [; Вес$17е: Шога]); для негипизированных файлов и определяет размер 
блока данных 


ргоседиге ЕКпО1г(П01г: Удаляет каталог О1г. Удалясмый каталог должен 
ЗЕг1па); быть пустым, то есть не содержать файлов или имен 
каталогов нижнего уровня 


Подпрограммы Е1п9Е1г5Е, Е1паМехе и Е1паС1озе позволяют получить до- 
ступ к группе файлов, объединенных общими признаками. Эти признаки при об- 
ращении к функции Е1паЕ1 к5& указываются маской выбора файлов и их атрибу- 
тами. 

При формировании маски выбора файлов могут использоваться следующие 
символы-заменители: 


‚. * — означает, что на месте этого символа может стоять сколько угодно (в ТОМ 
числе НОЛЬ) разрешенных символов имени или расширения файла; 


„. ? — означает, что на месте этого символа может стоять один из разрешенных 
СИМВОЛОВ. 


Например: 


" *.х* — все файлы из каталога; 


” с*.* — все файлы с именами, начинающимися нас (с1.ра$, сс12345, с.а ит. д.); 


" а?.аа® — имена файлов типа а0.4аф, а2.Да+ и т. д. 


Маске выбора может предшествовать маршрут поиска файлов. Например, ко- 
манда может выглядеть так 


С: \01к\ба6)1к\*.раз 


Эта команда означает выбор всех файлов с расширением РА$ из каталога $иБ т, 
находящегося на диске С; каталог 5иБС\г зарегистрирован в каталоге верхнего уров- 
ня 01", который, в свою очередь, входит в корневой каталог. Если маршрут не ука- 
зан, файлы ищутся в текущем каталоге. 

Параметр АЕЕг при обращении к Е1паЕ1гз® содержит двоичные разряды 
(биты), уточняющие, к каким именно файлам разрешен доступ. Вот как объявля- 
ются файловые атрибуты в модуле $у50%11°: 


соп$Е 
ЕаКеаЯ0Отп1у = $01; // Только чтение 
ЕаН1ааеп = $02; // Скрытый файл 


ЕабузЕ11е = $04; // Системный файл 
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Га\Уо1омеТРр = $08; // Идентификатор тома 
Гар1гесфоку = $10; // Имя вложенного каталога 
ЕаАгсв1уе = $20; // Архивный файл 

ГаАпуЕ1]е = $ЗЕ; // Любой файл 


Комбинацией битов в этом байте можно указывать самые разные варианты, 
например $06 — выбор всех скрытых и/или системных файлов. 

Результат работы процедуры Е1паЕ1гз& возвращается в переменной типа 
Т5еагспВес. Этот тип определяется следующим образом: 


Суре 
ТбеагсйВес = гесога 
Т1ие : Тпседег; 
512е : Тпседекг; 


АсЕу : Тпрседек; 

Мапе : ТЕ11еМапе; 

Ехс1аАеАЕ ег: Тпфедег; 

РГ1паНапа1е : ТНапа1е; 

Г1параке : Тмтп3З2Е1параее; 
епа; 


Здесь АЕЕг — атрибуты файла (см. выше); Т1ме — время и дата создания или 
последнего обновления файла в системном формате; $1хе — длина файла в бай- 
тах; Маше — имя и расширение файла; Е1пЧрафе — переменная с дополнитель- 
ной информацией о файле (время создания, время последнего доступа). 

Результат обращения к процедуре Е1паг15з& возвращается в значении типа 
Тпъесдег, которое равно 0, если нет ошибок. 

Следующая простая программа иллюстрирует способ использования функций 
Е1паЕ1г3е и Е1паМехе. Программа выводит в окно многострочного текстового 
поля пиОиериЕ список всех файлов, маска выбора которых (и, возможно, марш- 
рут поиска) указана в поле еаТприе (см. проект 5оигсе\СВар_10\НпаР(е\АпаЕЦе.арг): 


ргосеаиге ТЕпЕхапр1е.р5ВопС11сК (бепаег: ТОБ)ес®); 
уаг 

Мазк: Зг1апа; 

5В: ТбеагсВВес; 


Беда 
МазКкК := еЧТпрое.Техе; 
1Е МазКк = '' ЕБеп 
МазКк := '*.*!; 


шиОс фри. 11пе$ .С]1еаг; 
1Е Р1паЕ1г5Е (Мазк, ЕаАпуЕ11е, 58) =0 ЕБеп 
гереа® 
пиОйфрое.Ъ1пе$.Ааа (5В.Маме); 
ипЕ11 Е1памехе (5В) <>0; 
Е1паС1о5е (58); 
епа; 


Окно работающей программы представлено на рис. 10.1. 
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|В ведите путь доступа к папке и щелкните на кнопке ОК: о 


[САРТЕА\ОеА \бошее\Срар, 10\ЕиаЕе\* и 


Рис. 10.1. Отображение списка файлов 


Любое обращение к файлу в Пер! осуществляется через некоторый буфер, 
что необходимо для согласования внутреннего представления файлового компо- 
нента (записи) с принятым в операционной системе форматом хранения данных 
на диске. В ходе выполнения процедуры Е1ла 51 все новые записи будут действи- 
тельно записаны на диск. Процедура игнорируется, если файл был инициализиро- 
ван для чтения процедурой Безе. 

В ОерЫ! для защиты программы от краха при выполнении потенциально опас- 
ных фрагментов широко используется механизм обработки исключительных си- 
туаций (см. главу 13). В следующем фрагменте показано, как можно использовать 
этот механизм при работе с файлами. Предположим, что требуется отредактиро- 
вать файл, имя которого содержит переменная Маме. Перед редактированием не- 
обходимо убедиться, что нужный файл имеется на диске, и создать его страховоч- 
ную копию с расширением ВАК. Если одноименный файл (то есть с таким же именем 
и расширением ВАК) уже существует, его надо уничтожить. 


уаг 
Е1 : ТехеЕ11е; // Исходный файл 
Ко : ТехеЕ11е; // Отредактированный файл 
Мате : ЗЕг1па; // Имя исходного файла 


Маме Бак : 5%.1п9; // Имя страховочного файла 


ВАК = '.рак!; 
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// Получаем в пате Бак имя файла с расширением .ВАК: 
Маме _раК := сору (Маме, 1, роз ('.', Маме)) + ВАК; 
// Проверяем существование исходного файла: 
А5$1апЕ11е(Е1, Маме); 
гу 
Кезек (ЁЕ1); 
ехсере 
На1*; // Завершаем программу: файла не существует 
епа; 
С1о5еЕ11е (Е1); 
// Проверяем существование ВАК-файла: 
А5519пЕ11е (Ко, Маме рак); 
Егу 
Везе® (Го); 
// ВАК-файл существует: 
С1о5еЕ11е (Го); // Закрываем его 


Егазе (Го) // и уничтожаем 
Е1па1у 

// Файл не существует: ничего не делаем 
епа; 


// Проверки закончены, подготовка к работе: 
Кепапе (Г1, Маме рак); 

Везеф (Е1); 

Аз$19пЕ11е (Го, Маме); 

Вемг1$е (Го); 


епа. 


Обратите внимание: проверка на существование ВАК-файла в данном примере 
необходима, так как следующее обращение вызовет ошибку в случае, если такой 
файл существует: 


Вепаме (Е1, Маме рак); 


Текстовые файлы 


Текстовые файлы связываются с файловыми переменными, принадлежащими стан- 
дартному типу ТехеЕ1 1е. Текстовые файлы предназначены для хранения тексто- 
вой информации. Именно втакого типа файлах хранятся, например, исходные тек- 
сты программ. Компоненты (записи) текстового файла могут иметь переменную 
длину, что существенно влияет на характер работы с ними. 

Текстовый файл трактуется в ОерН! как совокупность строк переменной дли- 
ны. Доступ к каждой строке возможен лишь последовательно, начиная с первой. 
При создании текстового файла в конце каждой строки ставится специальный 
признак ЕОТ.М (Епа ОЕ М№ е — конец строки), а в конце всего файла — признак ЕОЕ 
(Епа ОГЕЦе — конец файла). Эти признаки можно протестировать одноименны- 
ми логическими функциями (см. ниже). При формировании текстовых файлов 
используются следующие системные соглашения: 


200 Глава 10. Файлы 


Для доступа к записям применяются процедуры Веаа, Веа 1, Иг1 ке, Мга ке!Гл. 
Они отличаются возможностью обращения к ним с переменным количеством фак- 
тических параметров, в качестве которых могут использоваться символы, строки 
и числа. Первым параметром в любой из перечисленных процедур должна стоять 
файловая переменная. Обращение осуществляется к дисковому файлу, связанно- 
му с переменной процедурой Азз1апЕ11е. 

В табл. 10.2 указаны подпрограммы для работы с текстовыми файлами. 


Таблица 10.2. Подпрограммы для работы с текстовыми файлами 


Подпрограмма Гота 


ЕипсЕ1оп Ео1п(уаг Е: Проверяет признак конца строки и возвращает Тгое, 
ТехЕЕ11е): Воо]1еап; если конец строки достигнут 


Читает из текстового файла последовательность 
символьных представлений переменных У1 типа Сраг, 
ЗЕг1 па, а также любого целого или вещественного 
типа, игнорируя признаки ЕОЪЬМ 


ргосеаиге КеаЧ (уаг Г: 
ТехЕЕР11е; \1 [, \2, 
...,МП ]); 


ргоседиге КеаЧГп (уаг | Читает из текстового файла последовательность 

Е: ТехеЕ11е; [\1 [, \2, | символьных представлений переменных \1 типа СЪах, 
., \п]]); ЗЕг1 пд, а также любого целого или вещественного 

типа с учетом границ строк 


Пропускает все пробелы, знаки табуляции и признаки 
конца строки ЕОГМ до признака конца файла ЕОЕ или 
до первого значащего символа и возвращает Тгие, ссли 
признак ЕОЕ обнаружен 


Еапсе1топ ЗееКкКЕоЕ (маг Г: 
Техе): Воо1еап; 


Пропускаст все пробелы и знаки табуляции до 
признака конца строки ЕОТМ или до первого значащего 
символа и возвращает Тгое, если признак обнаружен 


Еапсё1оп ЗеекЕо]п (маг 
Е: ТехЕЕ11е): Воо1еап; 


Записывает символьные представления параметров Р1 
в текстовый файл 


ргосеаиге ИМг1{е (уаг Е: 
ТехЕ; Р1 [, Р2, 
Рп]); 


РГ 


Записывает символьные представления параметров Р1 
и признак конца строки ЕОГМ в текстовый файл 


ргосеаиге Мг1ееГп (уаг 
Е: ТехЕе; [Р1 [, РО, 

., Рп]]); 

Процедура Кеаа предназначена для последовательного чтения из текстового 
файла символьных представлений переменных У1. При чтении переменных типа 
СПаг выполняется чтение одного символа и присваивание считанного значения 
переменной. Если перед выполнением чтения указатель файла достиг конца оче- 
редной строки, то результатом чтения будет символ СВ (код #13), аесли достиг- 
нут конец файла, то — символ ЕОЕ (код #26). Процедуру Веаа не рекомендуется 
использовать для ввода переменных типа ЗЕг1 пд, так как она не способна «Пере- 
прыгнуть» через разделитель строк ЕОЪМ и читает только первую строку текстово- 
го файла. Для ввода последовательности строк нужно использовать процедуру 
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Кеа@аГл (см. ниже). Следующая программа «зависнет», так как вторая строка фай- 
ла никогда не будет прочитана: 


ргосеаиге ТЕпЕхатр1е.ЮЬВопС11скК (бепаег: ТОБ)ес®); 
уаг 
Е: ТехЕЕ1]е; 
5: бЕгапа; 
Бед1п 
А551апЕ11е (Е, 'ехатр1е.раз'); 
Везеё (Е); 
мБ11е по ЕОЕ(ГР) ао 
Бед1п 
Веаа(Е,5); // Ошибка! Бесконечный цикл! 
пиОцерае. Ь1пе$.Ааа (5) 


С1озеЁг11е (РЁ) 
епа; 


При вводе численных переменных процедура Веа4 вначале выделяет подстро- 
ку во входном потоке по следующему правилу: все ведущие пробелы, символы та- 
буляции и признаки конца строк ЕОЪМ пропускаются; после выделения первого 
значащего символа, наоборот, любой из перечисленных символов или символ ЕОЕ 
служат признаком конца подстроки. Выделенная таким образом подстрока затем 
рассматривается как символьное представление числовой константы соответству- 
ющего типа и преобразуется во внутреннее представление, а полученное значение 
присваивается переменной. Если в подстроке был нарушен требуемый формат 
представления числовой константы, возникает исключительная ситуация. Если 
при пропуске ведущих пробелов встретился символ ЕОЕ, переменная получает 
значение 0. В еры не предусмотрен ввод шестнадцатеричных констант. 

Процедура Веаа прекрасно приспособлена к вводу чисел. При обращении к ней 
за вводом очередного целого или вещественного числа процедура «перескакива- 
ет» признаки конца строк, то есть фактически весь файл рассматривается ею как 
одна длинная строка, содержащая текстовые представления чисел. В сочетании 
с проверкой конца файла функцией ЕОЕ процедура Веа4 позволяет организовать 
простой ввод массивов данных, например, так: 


соп5е 

№ = 1000; // Максимальное количество вводимых символов 
уаг 

Е : ТехфЕ11е; 

М : агхау [1..М№] оЕЁ Веа]1; 

1 : Тпееадег; 
Бед1п 

А$$19пЕ1]е(Е, "'ргоа.Ча®'); 

Везе® (ЕЁ); 

1 := 1; 

\В11е по ЕОЕ(ЁЕ) апа (1 <= М) ао 

Бед1п 
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Веаа (Е, М[1]); 
1пс (1) 
епа; 
С1озеЕ11е (Е); 


епа. 


Процедура ВеааГлп идентична процедуре Веаа, за исключением того, что по- 
сле считывания последней переменной оставшаяся часть строки до признака ЕОЬМ 
пропускается, поэтому следующее обращение к ВеааТп начинается с первого сим- 
вола новой строки. Кроме того, эту процедуру можно вызвать без параметров \1, 
что приведет к пропуску всех символов текущей строки вплоть до ЕОТМ. Если 
в обработчике ЮЪВапСс1 1сК (см. пример на предыдущей странице) заменить Веаа 
на ВеааГп, программа выведет в окно компонента мпОцЕроие все строки из тек- 
стового файла ЕХАМРЕЕ.РА$. 

Процедура Иг1 Ее обеспечивает вывод в текстовый файл группы переменных. 
Любой элемент списка вывода может иметь следующую форму: 


ОцфЕхрг [ : Мап\Мтаер [ : БесР1асез ] ] 


Здесь ОцЕЕхрг — выводимое выражение; М1пИ1А%п, РесР1асез — выраже- 
ния типа Тпеедег (квадратные скобки означают возможность отсутствия заклю- 
ченных в них параметров). Параметр М1 пи 1 аЕ п, если он присутствует, определяет 
минимальную ширину поля, в которое будет записываться символьное представ- 
ление значения Ос Ехрг. Если символьное представление имеет меньшую длину, 
чем М1 пи: ав, оно будет дополнено слева пробелами, если большую длину, то 
М1 п: аен игнорируется и в файл помещается необходимое количество символов. 
Параметр РесР1асез задает количество десятичных знаков в дробной части ве- 
щественного числа. Он может использоваться только совместно с М1 п 1 аъ и толь- 
ко по отношению к выводимому выражению одного из вещественных типов. 

Если ширина поля вывода не указана, соответствующий параметр выводится 
вслед за предыдущим без какого-либо их разделения. Символы и строки переда- 
ются выходному файлу без изменений, но снабжаются ведущими пробелами, если 
задана ширина поля вывода и эта ширина больше требуемой для вывода. 

При выводе логических выражений в зависимости от их значения выводятся 
слова Тгое или Га] зе. (Ввод логических констант процедурами Веа4 или ВеаЯ п 
не предусмотрен.) 

Вещественные числа выводятся в экспоненциальном формате, если не указан 
параметр РесР1асез, в противном случае выбирается формат представления числа 
с фиксированной точкой. Если подпараметр М1 пИ1аев опущен, принимается его 
значение по умолчанию (23). Если М1п\1аЕр меньше 10, считается, что он равен 
10. Если подпараметр РесР1асез равен нулю, ни дробная часть числа, ни деся- 
тичная точка не выводятся. При отрицательном значении БесР1асез этот пара- 
метр игнорируется, и число выводится в экспоненциальном формате с учетом 
Мп аен. Если значение РесР1асез больше 18, принимается значение 18. Сле- 
дует учесть, что при указании подпараметра РесР1асез$ вещественное число всегда 
будет выводиться в формате с фиксированной точкой и требуемым количеством 
знаков в дробной части, даже если значение подпараметра М1п\1аАЕВ окажется 


Нетипизированные файлы 203 


недостаточным для размещения целой части: в этом случае значение М1 п\1 ап 
автоматически увеличивается. 

Процедура Иг1 Ее п полностью идентична процедуре Иг1 + е, за исключением 
того, что выводимая последовательность символов автоматически завершается 
признаком ЕОГМ (свое название процедура получила от Ите [пе — писать стро- 
ку). При вызове Иг1ЕеГп можно опускать параметры \1 — в этом случае в файл 
передается пустая строка. 


Типизированные файлы 


Длина любого компонента типизированного файла строго постоянна, что дает воз- 
можность организовать прямой доступ к каждому из них (то есть доступ к компо- 
ненту по его порядковому номеру). 

Перед первым обращением к процедурам ввода-вывода указатель файла стоит 
в его начале и указывает на первый компонент с номером 0. После каждого чтения 
или записи указатель сдвигается к следующему компоненту файла. Переменные 
в списках ввода-вывода должны иметь тот же тип, что и компоненты файла. Если 
этих переменных в списке несколько, указатель будет смещаться после каждой 
операции обмена данными между переменными и дисковым файлом. 

В табл. 10.3 указаны подпрограммы для работы с типизированными файлами. 


Таблица 10.3. Подпрограммы для работы с типизированными файлами 


Подпрограмма 


Еипсе1оп Е1]еРоз Возвращает текущую позицию в файле, то есть номер 
(уаг Г): ГопаТпе; компонента, который будет обрабатываться следующей 
операцией ввода-вывода 


опсё1оп Е1]1е5127е 
(уаг Г): Гопа1Тпте; 


Возвращает количество компонентов файла. Чтобы 
переместить указатель в конец типизированного файла, 
можно написать зеек (Е1]е\Уаг, 

Е11е512е (Р1]еУаг)); 


ргоседиге еек (уаг Смещает указатель файла Г к требуемому компоненту: М — 
Е; №: ГопаТпе); номер компонента файла (первый компонсит файла имеет 
номер 0) 


ргосеацге Кеаа (уаг 
Е, \1,...,УпП); 


Читает данные из типизированного файла Е: У1 — 
переменные такого же типа, что и компоненты файла 


ргосеацге Мг1{е (уаг 
Е, Р1,...,РП); 


Записывает данные в типизированный файл Е: Р1 — 
выражения такого же типа, что и компоненты файла 


Нетипизированные файлы 


Нетипизированные файлы объявляются как файловые переменные типа Е11е 
и отличаются тем, что для них не указан тип компонентов. Отсутствие типа 
делает эти файлы, с одной стороны, совместимыми с любыми другими файла- 
ми, а с другой — позволяет организовать высокоскоростной обмен данными 
между диском и памятью. 
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При инициализации нетипизированного файла процедурами Везе+ или Ве- 
мх1 Ее можно указать длину записи нетипизированного файла в байтах. Напри- 
мер, так: 


уаг 
Е: Е11е; 

Бед1п 
А$51апЕ11е (Е, 'муЕ11е.Ча®'); 
Везеб ({,512); 


епа. 


Длина записи нетипизированного файла указывается вторым параметром при 
обращении к процедурам Везе* или Вемг1 + е, в качестве которого может исполь- 
зоваться выражение типа ГопаТп+. Если длина записи не указана, она принима- 
ется равной 128 байт. 

Ре]рЫ не накладывает каких-либо ограничений на длину записи нетипизиро- 
ванного файла, за исключением требования положительности и ограничения мак- 
симальной длины значением 2 Гбайт (для Ое|р}1 1 длина записи ограничивается 
значением 65 535 байт). Для обеспечения максимальной скорости обмена данны- 
ми рекомендуется задавать длину, которая была бы кратна длине физического 
сектора дискового носителя информации (512 байт). Однако операции обмена дан- 
ными с дисковыми устройствами в среде \Лп4о\з кэшируются, то есть осуществ- 
ляются через промежуточный буфер памяти, поэтому обычно задают Вес$12е = 1, 
что позволяет обмениваться с файлом блоками любой длины, начиная с одного 
байта. 

При работе с нетипизированными файлами могут применяться все процедуры 
и функции, доступные типизированным файлам, за исключением Веаа и Мг1е, 
которые заменяются соответственно высокоскоростными процедурами В1осКВеаа 
и В1осКкИг1 Се: 


ргоседиге В1оскКВеаа (уаг Г: Е11е; уахк ВоЁ; Соппе: Тпседек [; 
уаг АмсТгапзЕеггеа: Тпфедег]); 

ргосеасге В1осКкКМг1ее (маг Г: Е11е; уаг ВоЕ; Соипе: Тпфедег 
[; уаг АпеТгапзЕеггеЯ: Тпфедег]); 


Здесь ВоЕ — буфер, то есть имя переменной, которая будет участвовать в обме- 
не данными с дисками; Соипе — количество записей, которые должны быть про- 
читаны или записаны за одно обращение к диску; АмеТгапзЕеггеа — необяза- 
тельный параметр, содержащий при выходе из процедуры количество фактически 
обработанных записей. 

За одно обращение к процедурам может быть передано до СоспЕхВес$12е бай- 
тов, где Вес$1те — длина записи нетипизированного файла. Передача идет, на- 
чиная с первого байта переменной ВуЕ. Программист должен позаботиться о том, 
чтобы длина внутреннего представления переменной ВоЕЁ была достаточной для 
размещения всех СоипЕХВес$12е байтов при чтении информации с диска. Если 
при чтении указана переменная недостаточной длины или если в процессе записи 
на диск не окажется нужного свободного пространства, возникнет ошибка ввода- 
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вывода, которую можно заблокировать, указав необязательный параметр Ам+- 
ТгапзЕеггеа. 

После завершения процедуры указатель смещается на Сошп® записей. Проце- 
дурами еек, Е11еРоз и Е11е517е можно обеспечить доступ к любой записи 
нетипизированного файла. 


Отображение файлов в память 


Для работы с файлом динамической подкачки страниц виртуальной памяти в 32- 
разрядных версиях \/1140\5$ используется механизм отображения файлов в ад- 
ресное пространство программы. Соответствующие функции АРТ доступны лю- 
бой программе и могут применяться к любому файлу (кстати, таким способом 
загружаются в адресное пространство процесса исполняемые файлы). В результа- 
те отображения программа может работать с файловыми данными как с данными, 
размещенными в динамической памяти. Такая возможность не только в большин- 
стве случаев повышает скорость работы с данными, но и предоставляет програм- 
мисту уникальные средства обработки сразу всех записей файла. Например, он 
может единственным оператором проверить, входит ли заданный образец поиска 
в любую строку текстового файла. 

Отображение файла осуществляется в три приема. Вначале файл создается 
обращением к следующей функции: 


Еипсе1оп Е1]1еСгеафе (Р11еМаме: $%&г1па): Тпседег; 
Если файл уже существует, он открывается с помощью другой функции: 


Еипс®1оп Е11еОреп (сопз®е Е11еМапе: ЗЕх1па; Моае: ГопаМога) : 
Трсеаег; 


В обеих функциях Е11еМаме — имя файла, возможно, с маршрутом доступа. 
Параметр Моде определяет режим доступа к файлу и может принимать одно из 
следующих значений: 


’ ЕтпОрепБеаа — только чтение; 


‚› ЕтОрепИг1фе — только запись; 
” ЕтОрепВеаМг1ее — чтение и запись. 


С помощью операции ох эти константы можно комбинировать с одной из сле- 
дующих, регулирующих совместный доступ к файлу нескольких программ: 


” ЕпбрагеЕхс1аз1уе — совместный доступ запрещен; 


” ЕшорагерепуМг1Ее — другим программам запрещается запись; 


”” ЕшорагерепуВеаа — другим программам запрещается чтение; 


” ЕтбсрагерепуМопе — совместный доступ неограничен. 


Обе функции возвращают дескриптор созданного (открытого) файла или 0, если 
операция оказалась неуспешной. 

На втором этапе создается объект отображения в память. Для этого использу- 
ется такая функция: 


Еапсе1оп СгеасеЕ11еМаррзпа (1Е1]1е: ТНапа1е; 
1рЕ11еМарр1пчА &г1рРабез: Р5есаг1 6 уАЕег1рокез; 
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ре 


ие 


Е]Ргосесе, АмМах1тоат$1хеН1ай, АмМах1тит$12хеом: ПОМога; 
1рМапе: РСВаг): ТНапа1е; 


Параметры здесь следующие: 
ВЕ11е — дескриптор файла; 


]1рЕ11еМарр1пчА& & г1риафез — указатель на структуру, в которой определя- 
ется, может ли создаваемый объект порождать дочерние объекты (обычно не 
может, и параметр равен МТТ); 


Е1Ргофеск — определяет тип защиты, применяемый к окну отображения фай- 
ла; допустимые значения параметра (см. также примечание ниже): 


С] РАСЕ_ВЕАРОМЬУ — файл можно только читать (файл должен быть создан 
или открыт в режиме ЕптОрепБКеаа); 


О РАСЕ_ВЕАРИВТТЕ — файл можно читать и записывать в него новые данные 
(файл открывается в режиме ЕпОрепВКеаИг1{е); 


О РАСЕ_ИВТТЕСОРУ — файл открыт для записи и чтения, однако обновлен- 
ные данные сохраняются в отдельной защищенной области памяти (ото- 
браженные файлы могут разделяться программами, в этом режиме каждая 
программа сохраняет изменения в отдельной области памяти или участке 
файла подкачки; файл открывается в режиме ЕтОрепКеааИг1*&е или 
ЕпОрепИхг1е); этот тип защиты нельзя использовать в \/т4о\$ 95/98; 


ЯмМах1тит512еН1ап и АиМах1тиат$1 2ером — соответственно старшие и млад- 
шие 32 разряда размера файла; если вы будете отображать файлы длиной до 
4 Гбайт, поместите в амМах1тит$ 1 2еН1ат 0, ав аиМах1пит$ 1 2ером — дли- 
ну файла; если оба параметра равны 0, размер окна отображения равен размеру 
файла; 

]1рМаме — имя объекта отображения или МТГ. 


ПРИМЕЧАНИЕ С помощью операции ох к параметру Е1Ргоесе можно присоеди- 


нить такие атрибуты: ЗЕС_СОММТТ — выделяет для отображения фи- 
зическую память или участок файла подкачки; ЗЕС_ТМАСЕ — инфор- 
мация об атрибутах отображения берется из образа файла; $ЕС_МО- 
САЗНЕ — отображаемые данные не кэшируются и записываются непо- 
средственно на диск; ЗЕС_ВЕЗЕВУЕ — резервируются страницы раз- 
дела без выделения физической памяти. 


Функция возвращает дескриптор объекта отображения или 0, если обращение 


было неудачным. 


Наконец, на третьем этапе создается окно просмотра, то есть собственно ото- 


бражение данных в адресное пространство программы: 


м 


Еипсе1оп МарУ1емОЕЕ11е (ВГ11еМарр1паОр)есе: ТНапа1е; 
ЯЧмрез1гезАссезз: ПМога; АмЕ11е0ЕЁЕзееНтай, ЯмЕ11етЕЕзееГом, 
АЧмМотрегОЕВусезТоМар: ПИМога): Ро1пфекг; 


Параметры здесь следующие: 
ВЕ1 1еМарр1па0Б3ес+ — дескриптор объекта отображения; 
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 Амрез1ге$Ассе$$ — определяет способ доступа к данным и может иметь одно 
из следующих значений: 


СО Е1тЕ_МАР_УВТТЕ — разрешает чтение и запись, при этом в функции Сгеа&е- 
Ег11еМарр1па должен использоваться атрибут РАСЕ ВЕАРИВТТЕ; 


О ЕТЬЕ МАР ВЕАР — разрешает только чтение, в функции СгеафеЕ11е- 
Марр1пад должен использоваться атрибут РАСЕ _КЕАРОМГУ или РАСЕ_ 
ВЕАРИВТТЕ; 


[] ЕТЬЕ МАР АГ, АССЕ$5$ — то же, что и ЕТЬЕ МАР ИВТТЕ; 


О ЕТЬЕ МАР_СОРУ — данные доступны для записи и чтения, однако обнов- 
ленные данные сохраняются в отдельной защищенной области памяти; 
в функции СгеасеЕ11еМарр1па должен использоваться атрибут РАСЕ _ 
ИВТТЕСОРУ; 


‚) ЧмЕ11е0ЕЕзееНаайи амЕ11етЕЁЕзееГом — определяют соответственно стар- 
шие и младшие разряды смещения от начала файла, начиная с которого осуще- 
ствляется отображение; 


”” амМотрегоЕВуеезТоМар — определяет длину окна отображения (0 — длина 
равна длине файла). 


Функция возвращает указатель на первый байт отображенных данных или МТЬ, 
если обращение к функции оказалось неуспешным. 

После использования отображенных данных ресурсы окна отображения нуж- 
но освободить следующей функцией: 


Еалсе1оп ОпМарУ1емоОЕЕ11е (1рВазеАаагез$: Ро1пбег): ВОО1; 


Единственный параметр обращения к этой функции должен содержать адрес 
первого отображенного байта, то есть адрес, возвращаемый функцией МарУ1еи- 
ОЕЕ11е. Закрытие объекта отображения и самого файла осуществляется обраще- 
нием к другой функции: 


Еапсе1оп С1озеНапа1е (ПОю)есё: ТНапа1е) 


В листинге 10.1 (проект СВар_10\РЕ\е Маррпд\РЦе]пМетогу.арг) приводится текст 
модуля, который создает окно, показанное на рис. 10.2. 


‚. Длина файла 


ООО ООВ 


Время счете; 0:01:34. 0:01:43 


Рис. 10.2. Демонстрация отображения файла 


В проекте создается дисковый файл, состоящий из 100 000 случайных веще- 
ственных чисел (длину файла можно выбрать другой, если изменить значение в по- 
ле со счетчиком Длина файла). Файл с именем {е$*.4а* создается отображением файла 
в память (кнопка Память) и традиционным способом (кнопка Файл). В обоих слу- 
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чаях отображается время счета. Чем больше частота и память, тем больше будет 
разница во времени. 


Листинг 10.1. Иллюстрация отображения файла в память! 


10316 0Оп1Ё1; 
1пл6егЕасе 


изез 
И1паомз, Меззааез$, 5у$0%115$, С1аззез, Сгарп1с$, 
Сопего]1$, ЕГогт$, 01а1о09$, 5ЕаСег1$, СомСег15$, 5р1п; 


Суре 

ТРоги1 = С1аз$$ (ТГогм) 
РЕМеп: ТВиаеФоп; 
БЕЕ11е: ТВое®оп; 
зе: Тбр1пЕЯ1 Е; 
Таре11: ТЬаре1; 
рр: ТРгоагез5Ваг; 
Табе12: ТГаре1; 

_16Мем: ТЬаБе1; 
16Е11е;: ТЬафе1; 
ргосеаиге ЮЕМепС11ск(бепаег: ТОр)ес®); 
ргосеаиге р+Е11еС11ск(бепаег: ТОБ]ес®); 


рглуаее 
{ РилуаЕе аес]агаЕлоп$ } 
рУчЬ11с 
{ Рир]1с аес]1агаЕтоп$ } 
епа; 
уаг 


Гогм1: ТЁРоги1; 
1пр1емепфа®1оп 
{$В *.РЕМ} 


ргосеаиге ТЕГогп1.рЕМепС11ск (Зепаег: ТОБ)ес®); 
// Создание файла методом его отображения 
Суре 

РКеа1 = ^Веа1; 
уаг 

НЕ11е, НМар: ТНапа1е; 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу ВЁр: 
//мимм.рег.сот/4омп(оа4 — Примеч. ред. 
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АЧгВазе, АагКеа1: РВеа1; 
К: Трседег; 

Рб172е: Сага1па1; 
ВедзТ1ме: ТрафеТ1пе; 
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Бед1п 
ВечТ1те := Т1ше; // Засекаем время пуска 
// Готовим Ргодгезз$Ваг: 
рр.Мах := зе.Уа1ае; 
РЬ.Ро$1Е1оп := 0; 
рр.5пом; 
Е512е := зе.\Уа1ае * $127е0Е (Веа1); // Длина файла 
НЕ1]е := Е1]еСгеафе ('+ез%е.аае'); // Создаем файл 
1Е НЕ11е = 0 %Ъеп // Ошибка: возбуждаем исключение 


га1зе Ехсере1оп.Сгеахе ('Ошибка создания файла'); 
Егу 
// Отображаем файл в память 


НМар := Сгеафхег11еМарр1па (НЕ11е, МТЬ, РАСЕ ВЕАРМВТТЕ, 


О, Е512е, МТЬ); 


1Е НМар = 0 +Ъеп // Ошибка: возбуждаем исключение 
газзе ЕхсерЕ1оп.Сгеате ('Ошибка отображения файла’); 


Егу 
// Создаем окно просмотра: 
АагВазе := МарУ1емОЕЕ11е (НМар, ЕТЬЕ МАР ИКТТЕ, 0, 
Е5127е); 
1Е АагВазе = №1 &Веп // Ошибка: возбуждаем 
// исключение 


О, 


га1зе ЕхсерЕ1оп.Сгеаке ('Невозможно просмотреть файл'); 


// Сохраняем начальный адрес для правильной 
// ликвидации окна просмотра: 


АЧгКеа1 := АагВазе; 
Бог К := 1 во зе.Уа1ое ао 
Бед1п 
АагВеа1^ := Вапаом; // Помещаем в файл новое число 


// Перед наращиванием текущего адреса необходимо 


// привести его к типу ТпЕедег или Сага1па1: 
АагВеа1 := Ро1пфег (Тпкедег (АагВеа1) + 
512е0Е (Веа1)); 

1ЮМем.Саре1оп := ТпЕТобег (К); 
рр.Роз1е1оп := К; 
Арр11саЕ1оп.Ргосез$Мез5адез; 

епа; 

// Освобождаем окно просмотра: 

Опмар\У1емОЕЕ11е (АагВазе) 

Е1па11у 
// Освобождаем отображение 


С1озеНапа1е (НМар) продолжение = 
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Листинг 10.1 (продолжение) 


епа 

Е1па11у 
// Закрываем файл 
С1о5еНапа1е (НР11е) 


епа; 

// Сообщаем время счета 

рЬ.Нзае; 

16Меп.Сар®1оп := ТумеТобег (Т1пе-ВедТ1ме) 
епа; 


ргосе4иге ТГогп1.рЕЕ11еС11ск (Зеп4ег: ТОБ)ес®);. 
// Создание файла обычным методом 


уаг 

Е: Е11е оЕЁ Веа1; 

К: Тобесег; 

ВедзТ1те: ТрафеТ1пте; 

В: Веа1; // Буферная переменная для обращения к Иг1Ее 
Бед1п 

ВедчТ1ще := Т1лме; // Засекаем начальное время счета 

// Готовим РгодгеззВаг: 

рю.Мах := зе.Уа1ае; 

РЬ.Роз1Е1оп := 0; 

ррЮ.5пои; 


// Создаем файл: 
Аз$1апЕ11е(Е, 'Еезе.аа®'); 
Вемг1 фе (Е); 


Еог К := 1 $0 5е.Уа1ое ао 
Бед1п 
В := Вапаом; // Параметрами обращения к Иг1Ее 
Иг1се (Е, В); // могут быть только переменные 
1рЕ1]1е.Саре1оп := ТпЕТобеЕг (К); 
РЮ.Роз1е1оп := К; 
Арр]11са®1оп.РгосеззМеззадез; 
епа; 
С1озеЕ11е (Е); 
рЬ.Н1ае; 
16Е11е.СарЕ1оп := ТлмеТоЗег (Т1пе-ВеаТ1те) 
епа; 
епа. 


Следует заметить, что в программе используются защищенные блоки +ху ... 
Е1па11у... еп, о которых рассказывается в главе 13. 
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Объектная модель работы с файлами 


В РерЬ! используется абстрактный класс Т5геам (поток данных), который яв- 
ляется основой для работы с файлами как с объектами. В случае объектов совер- 
шенно неважно, что именно является носителем информации — дисковый ли файл, 
ленточный носитель или оперативная память. В специализированных потомках 
Тбегеам определены стандартные методы Веаа, Иг1+е и 5еек, открывающие 
полный доступ к файловому объекту. Сам объект создается конструктором и унич- 
тожается деструктором. 


ВНИМАНИЕ Поток не учитывает специфику храпящихся в файле данных, то есть, по 
существу, работает с данными как если бы они хранились в нетипизиро- 
ванном файле. 


В следующем примере файл с именем Ед 1.Тех{ копируется в файл ЕЯ. Тех. 


ргосе4иге ТГогп1.СоруЕ11еС11ск (б5епдег:ТОБ}ес®); 
уаг 
бСЕгеам1, ЗЕгеам2: Т5егеап; 
Бед1п 
ЗЕгеам1 : =ТЕ11ебегеам.Сгеафе (Еа1*1.Техф, 
ЕпОрепВеаА ог ЕтбрагерепуЙг1ее); 
гу 
Сегеам2 :=ТЕ11ебЕгеам.Стеаке (Еа1+2.Техк, 
ЕгОрепСгеа+е ог ЕтбПпагерепуВеаа); 
Егу 
ЗЕгеам2 .СоруЕгом (5Егеам1, 5Егеам1.512е); 
Е1па11у 
ЗЕгеам2 .Егее; 
ЕЁ1па11у 
ЗЕгеам]1 .Егее 
епа; 


Абстрактный класс Т5&геам лишь декларирует ключевые методы Кеаа 
и Иг1 се, которые перекрываются в его наследниках для специализации операций: 


# ТЕ11ебегеап — обмен данными с файлом; 


# Т5&г1пазегеам — обмен данными с длинной строкой (в памяти); 
) ТМетогузегеам — обмен данными с памятью; 


 ТВЬОВ$Егеап — чтение/запись полей данных типа ВГ.ОВ (Втагу Гагве ОБесе — 
большой двоичный объект); 


# ТИ1пбоскее$егеам — обмен данными с сокетным подключением: 


" ТОЬЕ$ Е геам — обмен данными в формате ОГЕ. 

Любой наследник получает в свое распоряжение метод СоруЕгопм, с помощью 
которого он может прочитать содержимое другого потока. Таким способом можно, 
например, файловые данные расположить в памяти или наоборот — содержимое 
памяти записать в дисковый файл. 
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Точно так же от Т5Егеам наследуются множество других полезных методов, 
в том числе. 


" ЗееК — пропускает нужное количество байтов от текущей позиции потока; 


" ВеааВоЕЕег — читает из буфера в поток нужное количество байтов; 


”” ВеаЯСотропепЕ — читает свойства компонента из потока, 


 Иг1сеВчЕЕекг — записывает в поток содержимое буфера заданной длины; 


Их 1 СеСотропепе — записывает в поток свойства компонента. 


Следующий обработчик БЮВопС11сК выведет в поле ппОсери- свойства кнопки 
ЬрКоп (5оигсе\СПар_10\\Мг(еСотр\М/и\еСотр.арг): 


ргосеаиге ТЕпЕхаптр1е.ЬВипС11скК (Зепаег: ТОр)ес®); 


уаг 
Меп5осогсезегеам, Метрез&5&геам: ТМепогуз©геам; 
Бед1п 
Мепбочгсезегеам := ТМетмогубегеам.Сгеаее; 
гу 
Мепрезе5Егеам := ТМетогубегеам.Сгеаее; 
Егу 


Метбоцгсебсгеам. Иг1 $ еСотропеп® (ЮЮВКоп); 
Мепбосчгсезегеам.5еек (0, зоЕгопВеа1пп1па); 
Ор] есЕВ1пагуТоТехе (Метбонгсе$ геам, Метрез®5Егеат); 


`оБзесе ББКип: ТВ1еВсй 
( ЬеЕъь = 32 
Тор = 48 
Узаси = 75 
Незаве = 25 
Табокаег = 0 
| Кара = ькок 
(ета 


Рис. 10.3. Свойства компонента ЬБВип 
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Мепрез 5+ геам. еек (0, зоЕгошВеа1пп1па); 
шиОперие. Ь1пез. ГоааЕгом5 & геам (МепрезЕ 5 геап) 
Е1па11у 
Мепрезс 5 геам.Егее 
епа; 
Е1па11у 
Мепбоогсезе геам.Егее 
епа; 
епа; 


Вначале свойства компонента записываются в поток Метбоигсе5$  геам. Что- 
бы полученным таким образом двоичным данным придать «читабельный» вид, 
используется процедура ОБ} есЕВ1пагуТоТехе, которая преобразует данные из 
Мепбоигсе$ + геам и помещает их в Мепрез+ 5+ геам. Содержимое этого второго 
потока и выводится в окне мтОперие. 

Вид окна работающей программы представлен на рис. 10.3. 


Глава 11 
Модули 


Стандартный язык Паскаль не предусматривает механизмов раздельной компи- 
ляции частей программы с последующей их сборкой перед выполнением. Более 
того, последовательное проведение в жизнь принципа обязательного описания 
любого объекта перед его использованием делает фактически невозможным раз- 
работку разнообразных библиотек прикладных программ. Точнее, такие библио- 
теки в рамках стандартного языка Паскаль могут существовать только в виде ис- 
ходных текстов, и программист должен сам включать в программу подчас весьма 
обширные тексты различных поддерживающих процедур, таких, как процедуры 
матричной алгебры, численного интегрирования, математической статистики ит. п. 

Вполне понятно поэтому стремление разработчиков коммерческих компиля- 
торов Паскаля включать в язык средства, повышающиеего модульность. Чаще всего 
таким средством является разрешение использовать внешние процедуры и функ- 
ции, тело которых заменяется стандартной директивой ЕхЕегпа1. Разработчики 
РерЬ! пошли в этом направлении еще дальше, включив в язык механизм так на- 
зываемых модулей. 

Модуль — это автономно компилируемая программная единица, включающая 
в себя различные компоненты интерфейсного раздела (типы, константы, перемен- 
ные, процедуры и функции) и, возможно, некоторые исполняемые операторы ини- 
циализирующего раздела. Появление объектов в интерфейсной части делает их 
доступными для других модулей и основной программы. Тела процедур и функ- 
ций располагаются в исполняемой части модуля, которая может быть скрыта от 
пользователя. 

Роль модулей в Ое|рЫ не исчерпывается только механизмом раздельной ком- 
пиляции. ОерьЬ! связывает с каждым включаемым в программу окном собствен- 
ный модуль и таким способом локализует все свойства окна в отдельной программ- 
ной единице. Как мы выясним далее (см. главу 22), основная программа (ОРК-файл 
проекта) весьма специфична: она содержит перечень всех используемых в про- 
грамме модулей и несколько исполняемых операторов, обеспечивающих создание 
нужных окон и связь программы с У\/1т4о\з. Вся основная работа программы уп- 
равляется кодом, содержащимся в модулях. 
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Структура модулей 


Модуль имеет следующую структуру: 


0п1® <имя>; 

1п$егЁЕасе 

<интерфейсная часть> 
1пр1етепва%1оп 
<исполняемая часть> 
101&1а11хае1оп 
<инициализирующая часть> 
Е1па]1хае1оп 
<завершающая часть> 

епа. 


Здесь 9п1& — зарезервированное слово (единица), начинающее заголовок мо- 
дуля; <имя> — имя модуля (правильный идентификатор); 1п%&ех{асе — за- 
резервированное слово (интерфейс), начинающее интерфейсную часть модуля; 
1тр1емепфа®1оп — зарезервированное слово (выполнение), начинающее испол- 
няемую часть; 111&1а112аЕ1оп — зарезервированное слово (инициализация), 
начинающее инициализирующую часть модуля; Ё1па112а1оп — зарезервиро- 
ванное слово (завершение), начинающее завершающую часть модуля; еп — за- 
резервированное слово, являющееся признаком конца модуля. 

Таким образом, модуль состоит из заголовка и четырех составных частей, лю- 
бая из которых может быть пустой. 


Заголовок модуля и связь 
модулей друг с другом 


Заголовок модуля состоит из зарезервированного слова Чт & и следующего за ним 
имени модуля. Для правильной работы среды ОерЫ и возможности подключения 
средств, облегчающих разработку крупных программ, это имя должно совпадать 
с именем дискового файла, в который помещается исходный текст модуля. Напри- 
мер, пусть имеем заголовок: 


0п1е С1оБа1; 


Тогда исходный текст соответствующего модуля должен размещаться в диско- 
вом файле 610ВАЕ.РА$. Имя модуля служит для его связи с другими модулями и ос- 
новной программой. Эта связь устанавливается специальным предложением: 


Озез <сп.модулей> 


Здесь 9зез — зарезервированное слово (использует); <сп.модулей> — спи- 
сок модулей, с которыми устанавливается связь; элементами списка являются 
имена модулей, отделяемые друг от друга запятыми, например: 

Озез М1паомз, $5у$50&11$, Му0Оп16; 


Если объявление Чзез используется, оно должно открывать раздел описаний 
основной программы. Модули могут использовать другие модули. Предложение 
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Озез в модулях может следовать либо сразу за зарезервированным словом 
1п$егЕасе, либо сразу за словом 1тр1етеп в ае1 оп, либо, наконец, там и там (то 
есть в модуле допускаются два предложения 9зез). 


Интерфейсная часть 


Интерфейсная часть открывается зарезервированным словом 1п4егЁасе. В этой 
части содержатся объявления всех глобальных объектов модуля (типов, констант, 
переменных и подпрограмм), которые должны стать доступными основной про- 
грамме и/или другим модулям. При объявлении глобальных подпрограмм в ин- 
терфейсной части указывается только их заголовок, например: 


0п1Е Стр1х; 
1п$егЕасе 
Суре 
Сомр1ех = гесога 
ге, 1м: Веа1 
епа; 
Еарсе1оп АаЧас(х,у: Сопр1ех): Сомр1ех; 
Еипсе1оп Мо1С(х,у: Сотмр1ех): Сомр1ех; 


Если теперь в другом модуле написать показанное ниже предложение, то в нем 
станут доступными тип Сопр1ех и две процедуры — Ад ас и Мо1С из модуля Смр1х: 


О95е$ Спр1х; 


Исполняемая часть 


Исполняемая часть начинается зарезервированным словом 1тр1етмепеа*3.ол и со- 
держит описания подпрограмм, объявленных в интерфейсной части. В ней могут 
объявляться локальные для модуля объекты — вспомогательные типы, констан- 
ты, переменные и подпрограммы, а также метки, если они используются в иници- 
ализирующей части. 

Описанию подпрограммы, объявленной в интерфейсной части модуля, в ис- 
полняемой части должен предшествовать заголовок, в котором можно опускать 
список формальных переменных (и тип результата для функции), так как они уже 
описаны в интерфейсной части. Но если заголовок подпрограммы приводится 
_ в полном виде, то есть со списком формальных параметров и объявлением резуль- 
тата, он должен совпадать с заголовком, объявленным в интерфейсной части, на- 
пример: 

Оп1е Спр1х; 

ТпеегЕБасе 

Суре 

Сомр1ех = гесога 
ге, 1м: геа1 
епа; 
ЕапсЕ1оп Ааас(х,у: Сошр1ех): Сопр]1ех; 
Еапсе1оп Ми1С(х,у: Сомр1ех): Сопшр1ех; 
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Тир1етепфае1оп 


Еапсе1оп АааС(х,у: Соптр1ех): Сопр1ех; 
Бед1п 


епа; 


Еопсе1оп Мо1С; // Вариант описания подпрограммы без 
// повторения списка параметров 
Беа1п 


СОВЕТ — Хотя и допускается краткое объявление заголовка подпрограммы (как в преды- 
дущем примере — функции Ми1С), использовать такую форму в серьезной про- 
грамме не рекомендустся: перечень параметров непосредственно в заголовке 
подпрограммы облегчает чтение кода и понимание деталей реализации алгорит- 
ма. Для точного указания заголовка подпрограммы в исполняемом разделе ис- 
пользуйте возможности редактора кода: установите курсор в любое место заго- 
ловка подпрограммы в интерфейсной части и нажмите клавиши С+5НТЕ+С — 
кодовый редактор создаст заготовку подпрограммы в исполняемой части модуля. 


Повторение заголовка в исполняемой части должно быть полным и точным. 
Если бы мы использовали следующий заголовок, компилятор немедленно извес- 
тил бы нас о несовпадении заголовка с объявлением функции в интерфейсной ча- 
сти (второй параметр должен иметь имя у): 


ЕапсЕ1оп Ааас(х, 2: Сотр1ех)}: Сотр1ех; 
Бед1п 


Инициализирующая и завершающая части 


Инициализирующая и завершающая части чаще всего отсутствуют вместе с начи- 
нающим их словами 1п1&1а112а61оп и Е1па11ха®1оп. 

В инициализирующей части размещаются операторы, которые исполняются до 
передачи управления основной программе и обычно используются для подготов- 
ки ее работы. Например, в них могут инициализироваться переменные, открываться 
нужные файлы и т. д. В завершающей части указываются операторы, выполняю- 
щиеся после завершения работы основной программы (в них освобождаются вы- 
деленные программе ресурсы, закрываются файлы и т. д.). Если несколько моду- 
лей содержат инициализирующие части, эти части выполняются последовательно 
другза другом в порядке перечисления модулей в предложении 9зез главной про- 
граммы. Если несколько модулей содержат завершающие части, эти части выпол- 
няются последовательно друг за другом в порядке, обратном перечислению моду- 
лей в предложении Ч9зез$ главной программы. 
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Доступ к объявленным в модуле объектам 


Пусть, например, мы создаем модуль, реализующий арифметику комплексных 
чисел (такая арифметика ни в стандартном языке Паскаль, ни в ОерЫ не преду- 
смотрена, но в Ое]рЬ! введен пользовательский вариант, который реализует дей- 
ствия над комплексными числами — см. модуль 5оигсе\ Е \Соттоп\\агСтр(х.ра$ 
каталога размещения Пе!р!). Арифметика комплексных чисел реализуется четырь- 
мя функциями: 


0п1е Спр1х; 


суре 
Сопр1ех = гесога 
хе, 1м: геа1 


епа; 

Еапсе1оп АааС (х,у: Сопр1ех): Сомр1ех; 

Еапсё1оп борЮС (х,у: Сомр1ех): Сопр]1ех; 

ЕапсЕ1оп Мо1С (х,у: Сопр1ех): Сомр1ех; 

Еипсе1оп 01%УС (х,у: Сомр1ех): Сомр1ех; 

соп5® 

С Сомр1ех = (ге 0.1; 1м -1); 
на ннннннннннннннннннн--=-====== 
Тир1етепфа®1оп 

Инна ---------- 


Еапсе1оп АааС (х,у: Сотр1ех): Сомр1ех; 
// Сложение комплексных чисел 


Бед1п 
Везо1е.ге := х.ге + у.те; 
ВКези16.1щ := х.1м + ум 


епа; //даасС 


ЕапсЕ1оп сорюС (х,у: Сотмр1ех): Сопр1ех; 
// Вычитание комплексных чисел 
Бед1п 
Везо1®.ге х.ге - у.ге; 
Везо1е.1м := х.1м - у.1тм 
епа; // 5иЬС 


Еапсе1оп Мо1С (х,у: Сотмр1ех): Соптр1ех; 
// Умножение комплексных чисел 
Бед1п 
Кезо1е.ге := х.ге * у.ге - х.1м * у.1п; 


Доступ к объявленным в модуле объектам 


Вези1®.1м := х.ге * у.1м + х.1щ * у.ге 
епа; // Ми]1С 


Еипсе1оп 01%УС (х,у: Сопр1ех): Сопр1ех; 
// Деление комплексных чисел 


уаг 
2: Веа1; 
Бед1п 
2 := заг(у.ге) + заг(у.1т); 
// Защищаем программу от краха в случае, когда 2=0: 
гу 


Везц1е.ге := (х.ге * у.ге + х.лм * у.1щ) / 7; 
Вези1е.1м (х.ге * у.1м - х.1щ * у.ге) / 7; 
ехсереЕ 
ВКези1е.ге 
Везо1е.1м 
епа 
еп ({01уС}; 


1.1е309; 
1.1е309; 


епа. 
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Чтобы создать такой модуль, следует выбрать команду Ее ›» №ем ›» Упи. Текст 


модуля следует сохранить в файле СМРИХ.РАб: имя файла должно совпадать с име- 
нем модуля — только в этом случае Оер сможет автоматически найти модуль 
и следить за его обновлением. 


После создания модуля его имя нужно упомянуть в предложении Озез$ того 


1пр]1емепфа®1оп 
изе5 Спр1х; 
{$В *.РЕМ} 


ргоседиаге ТГоги1 .БРКиопС11сК (бепаег: ТОБ)ес®); 
уаг 
х,у,2: Сошр1ех; 


ргосеааге ОпЕрое (ОрегаЕ1оп: Стат); 

// Осуществляет нужное действие и выводит результат 
// в ттОицЕриЕ 

уаг 


модуля, в котором будут использоваться вновь созданные подпрограммы, типы, 
константы (в нашем модуле — тип Сопр1ех, подпрограммы Ааас, $оЪС, Мо1С, 21УС 
и константа С). Пусть, например, при каждом щелчке на кнопке БЮВоп учебной 
программы создается пара случайных комплексных чисел, над которыми осуще- 
ствляются все четыре арифметических действия. Тогда обработчик БЪВопС11сК 
мог бы быть таким (проект 5оигсе\СВар_11\Сотр(ех\Сотр(х.9рг): 
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5: 5Егара; 
Бед1п 
сазе Орега®1оп оЕ 


'+': 2 := ААааСс (х, у); 

"1: 2 := ЗаЪС(х,у); 

''; 2 := Мо1С(х,у); 

"И": 2 := 01УС(х,у); 

епа; 

5 := '('+Рогма Е1оа® ('+0.0000;-0,0000',х. ге) + 

ГогмаеЕ1оа* ('+0.00003;-0.00007',х.1м)+') '+ 
Орега*1оп+ 


'('+РогмаеЕ1оа%* ('+0.0000;-0.0000',у. ге) + 
Когма<Е1оа+ ('+0.00005;-0.00003',у.1м)+'='+ 
ГогиаеЕ1оа* ('+0.0000;-0.0000',2.те) + 
ЕКогма&Е1оа® ('+0.00003;-0.0000-',х.1м); 

ппОц$ рае. Т1пез.Ааа (5); 
еп; // ОцЕриЕ 


Бедзп // ЬЬКВипС11ск 


х.ге := Вапаоп; 
х.1м := Вапаом; 
у.ге := Капаоп; 
у.1м := Вапаом; 


ОпЕрие ('+'!); 

Оперы ('-'); 

ОцЕриЕ ('*'); 

Оперу ('/'); 

пмОцфроае.Т1пе$.Ааа (''); 
епа; 


Обратите внимание на ссылку ч5ез Стр1х в самом начале исполняемой час- 
ти — именно она делает доступными обработчику Б5ВипС11ск объекты модуля 
Спр1х. Эту ссылку можно вставить с помощью среды Шер: выберите команду 
Ре › Це ЦИпй главного меню и в появившемся окне щелкните на имени модуля 
Спр1х. 


Типы модулей в берш 


Наиболее распространенным типом модуля в Ое|р является форма — модуль со 
связанным с ним окном. Интерфейсная часть такого модуля обычно содержит 
объявление нового класса и автоматически обновляется ОерЫ в ходе конструи- 
рования окна. В интерфейсной части модуля-формы содержится также объявле- 
ние объекта для соответствующего оконного класса. Например, для нашей учебной 
программы модуль содержит объявление класса ТЕмЕхап1е и объекта ЕмЕхапр1е. 
‚Большинство типовых модулей в хранилище объектов содержат заготовки для 
создания диалоговых окон. 
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Помимо форм в хранилище содержатся также не связанные с видимыми окнами 
МОДУЛИ. Кроме уже рассмотренного выше модуля общего назначения, К НИМ относят- 
СЯ МОДУЛИ Данных, модули динамических библиотек, пакеты и модули потоков. 


Модули данных 


Модули данных имеют связанные с ними окна, однако эти окна никогда не появ- 
ляются на экране. Необходимость в окнах вызвана тем, что компоненты доступа 
к данным, стандартные диалоговые окна, таймер и некоторые другие компоненты 
можно вставить только в форму, хотя все они не имеют видимого воплощения в ра- 
ботающей программе. Невидимое окно модуля данных предназначено для разме- 
щения подобных компонентов и связанных с ними объектов-полей. Разумеется, 
для размещения компонентов и полей можно использовать и обычное окно-фор- 
му, однако в этом случае значки компонентов загромождают видимое простран- 
ство окна и затрудняют его конструирование. В Реры 7 модули данных способны 
отображать реляционные связи между сущностями базы данных в виде диаграмм. 


Модули динамических библиотек 


Модули динамических библиотек предназначены для создания широко использу- 
емых в \/т4о\$ динамически подключаемых библиотек (Пупапс-ГиаК Т4Ьгагез, 
РЕГ). ОГ. служат универсальным средством согласования подпрограмм, напи- 
санных на разных языках программирования. В \/1п4о\5$ содержится множество 
ОГ, написанных на языке Си или на языке ассемблера, что ничуть не мешает 
Пе|рЬ!1-программам использовать их. Модули динамических библиотек предназ- 
начены для разработки ОТ. с помощью Ое]р]1. Такие ОТ. затем смогут исполь- 
зовать программы, созданные с помощью других языков программирования. Ме- 
тодика создания 01.1. рассматривается в главе 23. | 


Пакеты 


Пакеты — это особым образом откомпилированные библиотеки ПТ. оптимизи- 
рованные для совместного использования ОерЫ!-программами или средой Ое|ры, 
или и программами и средой. В отличие от О14., пакеты могут хранить и переда- 
вать программе типы (включая классы) и данные. Они разработаны специально 
для хранения компонентов, разного рода экспертов, редакторов сложных свойств 
ит. п. Например, в пакете \С170.ВРЕ содержатся основные компоненты Бер. 


Модули потоков команд 


Модули потоков предназначены для реализации так называемых потоков команд — 
фрагментов программы, которые исполняются параллельно с другими фрагмента- 
ми, разделяя с ними время процессора и остальные системные ресурсы. Механизм 
потоков команд используется в 32-разрядных версиях \Мтао\$ и не поддержива- 
ется в Оеры 1. К сожалению, в текущей реализации 32-разрядной версии Реары 
потоки команд не могут связываться с собственными видимыми компонентами, 
так как библиотека визуальных компонентов (У\У15иа| Сотропепе ГлЬгагу, УСТ.) не 
поддерживает работу с потоками. Вот почему модуль потока не имеет связанного 
с ним окна. Методика использования потоков рассматривается в главе 22. 


Глава 12 


Типизированные константы 
и инициализированные 
переменные 


В этой небольшой главе рассматривается методика объявления типизированных 
констант и инициализированные переменные. Объединение констант и перемен- 
ных в одной главе не случайно: как уже говорилось, типизированные константы 
могут изменяться в программе и, следовательно, фактически являются инициали- 
зированными переменными. 


Типизированные константы 


В Вары допускается использование типизированных констант. Они задаются 
в разделе объявления констант следующим образом: 


<идентификатор>: <тип> = <значение> 


Здесь <идентификатор> — идентификатор константы; <тип> — тип констан- 
ты; <значение> — значение константы. 

Типизированным константам можно присваивать другие значения в ходе вы- 
полнения программы, поэтому фактически они представляют собой переменные 
с начальными значениями, то есть являются иниииализированными переменными. 
Типизированная константа приобретает указанное в ее объявлении значение, то 
есть инициализируется, лишь один раз: к моменту начала работы программы. При 
повторном входе в блок (процедуру или функцию), в котором она объявлена, ини- 
циализация типизированной константы не производится и она сохраняет то зна- 
чение, которое имела к моменту выхода из блока. 


' ВШОеры 7 присваивание новых значений типизированным переменным по умолчанию запрещено. 
Чтобы снять запрет, нужно установить флажок А$$19пае фуре4д соп${ап$ па вкладке Сотр ег диалого- 
вого окна ОрЙоп$ (открывается командой Рго]есё › ОрНопз). 
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Типизированные константы могут быть любого типа, кроме файлов, объектов 
и классов. Нельзя также объявить типизированную константу-запись, если хотя 
бы одно из ее полей является полем файлового типа, объектом или классом. 

Поскольку типизированная константа фактически не отличается от перемен- 
ной, ее нельзя использовать в качестве значения при объявлении других констант 
или границ типа-диапазона. 


Константы простых типов и типа Зита 


Объявление констант простых типов и типа $&х1п9 обычно не вызывает трудно- 
стей, так как в качестве их значения используются нетипизированные константы 
или их идентификаторы. 

Примеры объявлений: 


Суре 
со1о0г5$ = (мН16е, геа, Б1аск); 
{ ----- Правильные объявления: ----- } 
сопзе 
СоггСо]1 : софогз = геа; 
Мате : ЗЕг1па = 'ВиртН.'!; 
Уеагх : Мога = 1989; 
Хх : Веа1 = 0.1; 
М1п : Трбедег = 0; 
Мах : Тпбседег = 10; 
Рау$ :1..31 = 1; 
Апзмиег : Спаг = 'У!; 
{ ----- Неправильные объявления: ----- } 
Маз$ : агхау [М1п..Мах] оЁ Веа1; (Нельзя использовать 
типизированные константы в качестве границ диапазона} 
а,р,с: Вуке = 0;{Нельзя использовать список 
идентификаторов} 


Строковые константы можно размещать в так называемых ресурсах — файлах 
специального типа, которые присоединяются к программе на этапе сборки испол- 
няемого файла. Для объявления строкового ресурса используется зарезервирован- 
ное слово гезоцгсез&г1па. Например: 


хгезоцгсез&г1па 
В1 = 'Строка 1'; 
В2 = 'Строка 2'!; 
Строковые ресурсы в программе используются обычным образом: 
уаг 
5: БЕЕапа; 
Бед1п 
5 := В1 + В2; 
В1 := '' // Ошибка! Константе нельзя присвоить значение! 
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Константы-массивы 


В качестве начального значения типизированной константы-массива использует- 
ся список констант, отделенных друг от друга запятыми; список заключается в 
круглые скобки, например: 

Суре 

со1ог5$ = (мб1Ее, геа, Б]1]асКк); 
соп5Е 
Со15Ег : акхау [со1ог$] оЕЁ Зегапа [5] = 
('мр1Ее', 'геа', '"'Б1ак'); 
Уессог : агхау [1..5] оЕ Вусе = (0,0,0,0,0); 

При объявлении массива символов можно использовать то обстоятельство, что 
все символьные массивы и строки в Ое|рЫ хранятся в упакованном формате, по- 
этому в качестве значения массива-константы типа СВаг допускается задание сим- 
вольной строки соответствующей длины. Два следующих объявления идентичны: 


соп$е 
2191Е : агхау [0..9] оЕЁ Спаг = 
('0','1','2','3!','4','5',16', 17, "8 !,!"9!'); 
219СПг: аггхгау [0..9] оЕЁ СПаг = '0123456789'; 

При объявлении многомерных констант-массивов множество констант, соот- 
ветствующих каждому измерению, заключается в дополнительные круглые скоб- 
ки и отделяется от соседнего множества запятыми. В результате образуются вло- 
женные структуры множеств, причем глубина вложения должна соответствовать 
количеству измерений (размерности) массива. Самые внутренние множества кон- 
стант связываются с изменением самого правого индекса массива. 

Следующая программа выведет в компонент имОпе ри три строки с монотон- 
но увеличивающимися целыми числами: 


Ргосеацге ТЕпЕхапр1е.5ЬКопС11ск ($5епаег: ТОБ]ес®); 
уаг 
1, 7, К, 1 : Вуве; 
5: 5Егапа; 
соп5® 
Мафег : аггхау [1..3, 1..5] оЕЁ Вуе = 
((0, 1, 2, 3, 4), 
(5, 6, 7, 8, 9), 
ВЕКА 


Сире : аггхау [0..1, 0..1, .2] оЕ Тпеедег = 
(((0 ‚1,2 ), (3 р ‚5 )), 
((6 ‚7,8 ), (9 ,10,11))); 

Ма$4 : аггау [0..1, 0..1, 0..1, 0..1] оЕ Мога = 
((((00 ,1), (2, ) 


(((8 ‚9 ), (10, 


1 
3 
((4 ‚5 ), (6 ‚7 
11 
(12,13), (14, 15 
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Бед1п | 
5 :=!'!; 
Бог 1 := 1 ®0 3 а 
Бог ) := 1 0 5 94° 
5 := $ + ТаЕТобЕг (Мак [1,73]) +' #!; 
пиОцериае. 11пе$.Ааа (5); 
5 :=!1!; 
Бог 1 := 0 0 1 9 
Бог ] := 0 1 @&@ 
Бог К := 0 ®0 2 @ 
$ := 5 + ТаЕТобег (Соре[1,9,Кк]) +'!; 
птОп риф .Ъ1пе$.Ааа (5); 
5 :=!!; 
Бог 1 := 0 0 1 @о 
Бог | := 0 ®0 1 а 
Бог К := 0 №0 1 94 
Бог 1 := 0 0 1 @4 
$ := $ + ТЕТобег (таз4[1,7),Кк,1])+' #; 


шиОчферое.Ъ1пе$.Ааа (5); 
епа; 


Количество переменных в списке констант должно строго соответствовать 
объявленной длине массива По каждому измерению. 


Константы-записи 


Определение константы-записи имеет следующий ВИД: 


<идентификатор>: <тип> = (<сп.знач.полей>) 


Здесь <идентификатор> — идентификатор константы; <тип> — тип записи; 
<сп.знач.полей> — список значений полей. 

Список значений полей представляет собой список из последовательностей 
вида: имя поля, двоеточие и константа. Элементы списка отделяются другот друга 
двоеточиями, например: 


фуре 
Ро1пЕ = гесога 
Хх, У Веа1 
епа; 
УесЕ = аггау [0..1] оЕЁЕ Ро1пЕ; 
МопЕВ = (Зап, Еер, Маг, Арг, Мау, Фоп, 
31у, Аоча, бер, Осе, М№\ч, Пес); 
Расе = гесога 
р : 1..31; 
М : мопЕП; 
У : 1900. .1999 
епа; 
соп5е 
Ог1аоп РолпЕ = (Х О; У -1); 
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Г1пе :;: Уесбог = ((Х : -3.1; У : 1.5), (Х : 5.9; У :3.0)); 
сомерау : Пафбе = (р : 16; М :;: Мау; У : 1997); 

Поля должны указываться в той последовательности, в которой они перечис- 
лены в объявлении типа. Если в записи используется хотя бы одно поле файлово- 
го типа, такую запись нельзя объявить типизированной константой. Для записей 
с вариантными полями указывается только один из возможных вариантов констант. 
Например: 

фуре 

Когма = гесога 
сазе Воо1еап оЁ 
Тгие : (В1г6ПР1асе: $6гапа [40]); 
Га15е : (Соопегу : ЗЕгала [20]; 
ЕпегуРОЕЕ : З®еапа [20]; 
Епсгураее : агхау [1..3] оЕ Мога; 


СоцпЕ : Мога) 
епа; 
соп5Е 

Регсоп1 : Гогма = (Соопегу : 'Норвегия!; 
ЕпсгуРоге : "'Мурманск'; 
Епекурафе : (16, 3, 89); 
СоспЕ : 12); 

Регсоп2 : ГКогма = (Вл1гЕИР1асе: 'Москва'); 


Константы-множества 


Значение типизированной константы-множества задается в виде правильного кон- 
структора множества, Например: 


фуре 
Рау5$ = зеё оЕЁ 1..31; 
0195 = зеё оЕЁ '0'..'9!; 
Еггог = $зее оЕЁ 1..24; 
соп$Е 


Иогкрауз$ : Пау$ = [1..5, 8..12, 12..19, 22..26, 29, 30]; 
Еуепо1916$: О1а$ = ['0', '2', '4', '6', '8']; 
ЕггогЕ1аа : Еггог= []; 


Константы-указатели 


Единственным значением типизированной константы-указателя может быть толь- 
ко МТ, например: 


сопзе рВ: ^Кеа1 = МТ; 


Инициализация переменных 


Во всех 32-разрядных версиях Пер]! при объявлении глобальных переменных 
разрешается одновременно присваивать им значения (инициализировать). Речь 
идет о глобальных переменных, объявляемых в интерфейсной или исполняемой 
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частях модулей (переменные, объявляемые в теле процедуры, называются локаль- 
ными, их инициализировать нельзя; вместо этого используйте описанные выше 
локальные типизированные константы). 

Инициализированная переменная получает присвоенное ей значение один раз — 
в момент старта программы; в дальнейшем она хранит последнее присвоенной ей 
значение. Пример инициализации переменной: 


11016 0Оп1{1; 


1пр1етепфа*1оп 
уагх 
МуУаг: Тпфедег = 10; 


епа. 


Часть Ш 


Компоненты 
и программа 


В этой части описываются некоторые наиболее часто используемые 
КЛассы, компоненты и программа в целом 


Глава 13 
Классы общего назначения 


В состав Оер входит около 400 различных стандартных классов, простое пере- 
числение которых заняло бы несколько страниц книги. В этой главе рассматрива- 
ются лишь некоторые самые важные классы общего назначения. 


Класс Ехсерйоп — обработка исключений 


Класс ЕхсерЕ1оп является прямым потомком базового класса ТОБ3Зес+. Вместе 
со своими потомками он предназначен для обработки исключительных ситуаций 
(исключений), возникающих при некорректных действиях программы: например, 
в случае деления на ноль, при попытке открыть несуществующий файл, при выхо- 
де за пределы выделенной области динамической памяти и т. п. В этом разделе 
рассматриваются основные свойства исключений и их использование для повы- 
шения надежности программ. 


СОВЕТ — При работе в среде Ое|рН! эксперименты с исключениями плохо прослеживают- 
ся, так как при каждом исключении среда перехватывает управление програм- 
мой. В этом случае бывает полезно отменить такое поведение среды. Для этого 
откройте диалоговое окно ВеБиддег Ор оп$, выбрав команду То0($ » ВеБиддег 
Орйоп$, и на вкладке [апдиаде ЕхсерЯоп$ снимите флажок $+ор оп ВефН1 ЕхсерЙопз. 


Защищенные блоки 


Для обработки исключений в Ое|р! предусмотрены два типа защищенных бло- 
КОВ: 


гу 
<операторы> 
ехсере 
<обработчики исключений> 
е1 зе 
<операторы> 
епа; 
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Егу 
<операторы> 
Е1па11у 
<операторы> 
епа; 


Защищенный блок начинается зарезервированным словом &ху (попытаться 
[выполнить]) и завершается словом епа. Два типа защищенных блоков ехсер* 
(исключить) и #1па11у (в завершение) отличаются способом обработки исклю- 
чения. В блоке ехсер* порядок выполнения операторов таков: сначала выполня- 
ются операторы секции +ху...ехсер*; если операторы выполнены без возникно- 
вения исключительной ситуации, работа защищенного блока на этом прекращается 
и управление получает оператор, стоящий за словом епа; если при выполнении 
части гу возникло исключение, управление получает соответствующий обработ- 
чик в секции ехсер-, аесли таковой не найден — первый из операторов, стоящих 
за словом е1 5е. В блоке Ё1па11у операторы в секции Е1па11у...еп получают 
управление всегда, независимо от того, возникло исключение в секции гу... 
Е1па11у или нет. Если исключение возникло, все операторы в секции *хгу... 
Е1па11у, стоящие за «виновником» исключения, пропускаются и управление по- 
лучает первый оператор секции #1па11у..епа. Если исключения не было, этот 
оператор получает управление после выполнения последнего оператора секции 
гу... Е1па11у. 

Обработчики исключений в блоке ехсер* имеют такой синтаксис: 


оп <класс исключения> 4о <оператор>; 


Здесь оп, 4о — зарезервированные слова; <класс исключения> — класс об- 
работки исключения; <оператор> — любой оператор Пе|рЫ, кроме оператора 
передачи управления доко на метку вне блока ехсер*. 

Обратите внимание: имя класса служит своеобразным ключом выбора, а соб- 
ственно обработка осуществляется оператором, стоящим за о (этот оператор бы- 
вает составным, так что обработка исключения может выполняться произвольным 
количеством операторов Ор). 

Поиск нужного обработчика осуществляется с начала списка вниз до тех пор, 
пока не встретится класс, способный обрабатывать исключение данного типа. Если 
подходящего класса не обнаружено, управление передается операторам, стоящим 
за словом е1 зе, аесли таковых нет (часть е1зе <операторы> может опускать- 
ся), выполняется умалчиваемая обработка исключения. 

Если для программиста важен лишь сам факт возникновения исключения и не- 
существенен тип связанной с ним ошибки, он может опустить в секции ехсер*...еп 
обработчики вместе со словом е1 зе, оставив в ней лишь необходимый код реак- 
ции на любую ошибку: 


Егу 
ехсере 
5ПомМеззаче ('Ошибка!'); 


епа; 
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Защищенные блоки могут вкладываться друг в друга на неограниченную глу- 
бину, так как везде, где в предыдущих описаниях указывался параметр <опера- 
тор>, могут использоваться любые операторы Пер, в том числе и +ку...ехсер® 
или Егу...Е1па11у: 


ху 
гу 
1 па11у 
епа; 
ехсере 


оп ЕМаесрЕггог ао 
Бед1п 


гу 
ку 
епа; 
епа; 
епа; 


епа; 


Класс ЕхсерНоп 


Класс Ехсере1оп является родительским классом для всех классов-исключений. 
Этот класс объявляется в модуле $уз0&11$ следующим образом: 
фуре 
Ехсер®1оп = ©с1аз$ (ТОБ)ес®) 
рглуаее 
ЕМеззаае: $%г1пда; 
ЕНе1рСопфех®е: Тпведекг; 
руЬ11с | 
сопзЕгасеог Сгеаке (сопзе Мза: 56г1па); 
сопзЕгас®ог СгеабеЕю+е (сопз® Мза: $5&г1п9; 
‚сопзЕ Агд$з: аггау оЕЁ соп5®); 
сопзеёгасвог СгеафеБКез$ (Т4епе: Тпседег); 
сопзегасвог СгеафекезЕтф (Т4епе: Тпфедег; 
сопзе Агаз: аггау оЁ сопз®); 
сопзегасфог СгеафкеНе]1р (сопзе Мза: 5Ег1па; аНе1рСопеехь: 
Тпседег); 
сопзЕгасеог СгеасеЕгиЕНе1р (соп$®е Мза: $Зег1па; 


` 
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соп5Е Ага$: аггау оЕЁ сопз®; аНе1рСопфехе: Тпфедег); 
соп5Егасвог СгеафекезНе]р (Т4епе: Тпсеаег; аНе1рСопъехё: 
Трпееадег); 
соп5Егасвог СгеасевкезЕмеНе]1р (Т4епе: Тпеедег; 
соп5Е Ага$: аггау оЕЁ сопз®; аНе1рСопеехе: Тпеедег); 
ргорегеу Не1рСопеехе: Тпбедег геаа 
ГНе1рСопеех® мг1лфе ЕНе]1рСопеех(; 
ргорегЕу Меззаде: Зег1пд геаа ЕМеззадзе 
имг1ее ЕМеззасче; 
епа; 


В классе определены целых 8 конструкторов для создания объекта. С их по- 
мощью можно прочитать текстовое сообщение из ресурса, отформатировать его, 
связать исключение с контекстной справочной службой. Свойство Меззасе дела- 
ет доступным закрытое поле ЕМеззасе, в котором содержится текстовое со- 
общение. 


Стандартные классы исключений 


В РерЫ определены стандартные классы исключений (см. приложение Б). Именно 
эти имена, а также имена пользовательских классов (см. ниже) могут применяться 
в обработчиках исключений. 

Важно помнить, что управление передается самому первому обработчику (воз- 
можно существование нескольких обработчиков), класс которого способен обра- 
батывать данное исключение. Если, например, в списке первым стоит класс ЕАБоге, 
который может обработать любое исключение, ни один из стоящих за ним обра- 
ботчиков никогда не получит управления. Точно также, если указан обработчик 
для класса ЕТпеЕггог, за ним бесполезно размещать обработчики Ер1\%Ву2его, 
ЕКапаеЕггог или ЕТпеОуегЕ1 ом: 


Егу 
ехсер* 
// Не имеет смысла делать так: 
оп ЕГПЕЕгког о ...; 
оп ЕВБапаеЕггог ао ...; 
оп ЕП1\уВубего ао ...; 
// Надо так: 
оп ЕКапаеЕггог ао ...; 


оп ЕО1уВудего ао ...; 
оп ЕТПЕЕБггог &@о ...; 
ера; 


При возникновении исключительной ситуации объекты классов-обработчиков 
создаются и уничтожаются автоматически. Если программист пожелает исполь- 
зовать поля или методы класса-обработчика явно, он должен поименовать автома- 
тически создаваемый объект. Для этого перед именем класса ставится идентифи- 
катор и двоеточие: 


оп ЕОр]есе: ЕС1аз5Маме ао ...; 
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Для стандартных классов такой прием фактически позволяет использовать 
единственное строковое СВОЙСТВО Меззасе со стандартным сообщением об ошиб- 
ке, которое получают все наследники класса ЕхсерЕ1оп. Исключение составляет 
класс ЕТпОчсЕггох, В котором для программиста может представлять интерес 
целочисленное свойство ЕггогСоде с КОДОМ ошибки ввода-вывода. Например: 


Егу 
Кезеф (ЕЁ); 
\р11е по ЕОЕР(Е) ао 
Бед1п 


епа; 
С] о5еЕ11е (Е); 
ехсере 
оп Е: ЕГПОсеЕггог @ао 
ЗпомМе$зачце ('При выполнении файловой операции возникла' 
+ ' ошибка №'+ ТпЕТобег(Е.ЕгкогСоае) ); 
епа; 


Вызов исключения 


В некоторых ситуациях программисту бывает необходимо инициировать собствен- 
ное исключение. Для этого он использует зарезервированное слово га1зе (возбу- 
дить). Если это слово встретилось в секции +ху..ехсер®1оп или &гу...Е1па11у, 
немедленно начинают свою работу соответственно секция ехсер-*...епа или 
Е1па11у...епа. Если оно встретилось в секции ехсер*...епа или Ё1па11у...еп4, 
считается, что данный защищенный блок на текущем уровне вложенности (блоки 
могут быть вложенными) завершил свою работу и управление передается выше- 
стоящему уровню. 

Слово га1зе возбуждает исключение самого общего класса Ехсер® 1 оп. Если 
программист желает возбудить исключение конкретного типа (неважно, стандарт- 
ного или собственного), он должен явно указать класс создаваемого в этот момент 
объекта путем вызова его конструктора. Например, следующий оператор возбу- 
дит ошибку ввода-вывода: 


газлзе ЕТпОсЕЕггог.Сгеа\е ('Ошибка!'); 


Такой прием — единственная возможность возбудить нестандартное исключе- 
ние, обрабатываемое пользовательским классом. 


Создание собственного класса 


Программист может создать собственный класс обработки исключений, объявив 
его потомком ЕхсерЕ1оп или любого другого стандартного класса (этим другим 
чаще всего бывает класс ЕАБог*®). Объявление нестандартного класса имеет смысл 
только тогда, когда вам необходимо научить программу распознавать некоррект- 
’ ные наборы данных и соответствующим образом на них реагировать. 

Пусть, например, в программе используется цикл ввода целочисленных значе- 
ний из текстового файла, их проверки и преобразования. Проверка заключается 
в простом контроле неотрицательности очередного числа после ввода и его поло- 
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жительности после преобразования. Перед проверкой необходимо получить стро- 
ку из файла (здесь может возникнуть ошибка ЕТпОчЕггог) и преобразовать ее 
в целую величину (здесь возможна ошибка ЕСопуег&Еггог); после проверки осу- 
ществляется обработка величины, в процессе которой может возникнуть ошибка 
ЕТПСЕЕГОГ. 
Создадим новый класс ЕТпеСпескЕггох и будем возбуждать исключение этого 
класса при обнаружении ошибки в данных: 
Суре 
ЕТпеСрескЕгког = ©1азз (ЕАБог®) 
епа; 
уагх 
Е: ТехеЕ11е; 
5: 5Егара; 
К: Тпседег; 
Беда п 
Егу 
// Готовимся к работе: открываем файл 
А5$19пЕ11е(Е, Е11еМапе); 
Везеф (Е); // Здесь возможна ошибка ЕТпОчЕЕггог 
// Цикл ввода-контроля-преобразования 
мр11е по ЕОЕ(Г) ао 
Бед1п 
// Вводим символы очередного числа 
ВеааГп (Е,5); // Здесь возможна ошибка ЕТпОцЕЕггог 
// Преобразуем символы в число 
К := бегТотпь ($); // Здесь возможна ошибка ЕСопуегЕ Еггог 
// Проверяем число 
1Е К < 0 еп 
га1зе ЕТпеСрескЕггог.Сгеаее ('Отрицательное число!'); 
// Преобразуем число 
... // Здесь возможна ошибка ЕТпЕЕГгГОГ 
// Вновь проверяем число 
1Е К <= 0 вел 
газзе ЕТпЕСпескЕггог .Сгеасе ('Не положительное 
число'); 


епа; 
ехсере 
оп Е: ЕТоЕСрескЕггког ао 
ЗПомМеззасе (Е .Меззадзе); 
оп ЕТПОСЕЕггог @ао 
ЗРомМеззасе ('Некорректная файловая операция'); 
оп ЕСопуегЕЕггог @о 
ЗЛомМеззасе ('Ошибка в записи числа'); 
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оп ЕТЛЕЕггог ао 
ЗПомМез5асде ('Ошибка преобразования'); 


епа; 


В этом примере создается класс ЕТпЕСпВесКЕггог, который ничем, кроме на- 
звания, не отличается от своего родителя ЕАБог*. В реальной программе потомок 
обычно расширяет набор полей (свойств) своего родителя или перекрывает его 
методы; приведенный пример лишь иллюстрирует, что этого делать не обязатель- 
но. При неудачной проверке следующими операторами возбуждается исключение 
нового класса: 


га15е ЕТпеСпескЕггог.Сгеасе ('Отрицательное число'); 
га1зе ЕТпЕСрескЕггог .Сгеаке ('Ошибка преобразования!) ; 


При этом с помощью унаследованного конструктора Сгеа‹е создается новый 
безымянный объект, а строковый параметр обращения к конструктору запомина- 
ется в поле ЕМеззасе и становится доступным с помощью свойства Меззасе объ- 
екта. Обработчик исключения ЕТпЕСпескЕгкгог именует объект идентификатором 
Е ис помощью стандартной процедуры 5$помМеззасде показывает его в небольшом 
окне на экране. 

Пример наглядно иллюстрирует выгоды от использования исключений. В прин- 
ципе, весь этот фрагмент можно было бы написать с многочисленными проверка- 
ми 1 Е...Ъег, но в этом случае логика программы стала бы запутанной, а сама про- 
грамма — сложной в отладке. 
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Класс ТЬ1 з& позволяет создать набор из произвольного количества элементов и ор- 
ганизовать индексный способ доступа к ним, как это делается при работе с масси- 
вом. Списки отличаются от массивов двумя важными особенностями. Во-первых, 
их размер может динамически меняться в ходе работы программы, фактически 
ограничиваясь лишь доступной памятью. Во-вторых, в списках могут храниться 
элементы разных типов. 

Технически списки представляют собой массивы нетипизированных указате- 
лей на размещенные в динамической памяти элементы. Эти массивы размещают- 
ся вкуче — отсюда возможность динамического изменения размеров списков; с дру- 
гой стороны, входящие в списки нетипизированные указатели позволяют ссылаться 
на произвольные элементы. 

В табл. 13.1 указаны наиболее важные свойства класса. 


Таблица 13.1. Свойства класса ТЦ 


Свойство Описание 


ргорег®еу Сарас1*у: Содержит количество элементов массива указателей списка. 
Тпседег; Всегда больше СоцпЕ. Если при добавлении очередного 
элемента значение Соцп® стало равно Сарас1%у, 
происходит автоматическое расширепие списка на 

16 элементов 


продолжение #7 
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Таблица 13.1 (продолжение) 


Количество элементов списка. Это свойство изменяется при 
добавлении или удалении элемепта 


ргорег®у Т{етз Возвращает указатель на элемент списка по его индексу. 
(Тпаех: Тпфедег): Самый первый элемент списка имеет индекс 0 
Ро1пеег; 


ргорег®у [15(: Возвращает указатель на массив элементов списка 
рРо1пфегГ15%; 


Тип рРо1п%ег!1.1 $6 определен следующим образом: 


Суре 
рРо1пеег1156 ^ТРо1псег11$(; 
ТРо1п$егЬ1$Е = акгау [0..Мах11$%512е] оЕЁ Ро1лпеег; 


Константа Мах. 15+$12е в Ое|рЫ! 1 ограничена значением 16 379 элементов. 
Для следующих версий Оеры она ограничивается доступной памятью. 

Следует учесть, что свойство СозпЕ определяет количество элементов списка, 
в то время как Сарас1еу — текущую емкость списка. Если при добавлении оче- 
редного элемента обнаруживается, что емкость списка исчерпана, происходит на- 
ращивание емкости на фиксированную величину (для СоопЕ < 5 — на4 элемен- 
та, для 4 < СоцпЕ < 8- на 8, для СоспЕ > 7 — на 16). При этом сначала 
резервируется память для размещения расширенного массива указателей, затем 
в нее копируется содержимое старого массива, после чего старый массив указате- 
лей уничтожается (занимаемая им память возвращается У/Лшт4о\$). 


СОВЕТ — Если вы заранее знаете, сколько элементов необходимо поместить в список, ус- 
тановите в начале работы нужное значение в свойство Сарас1еу — это снизит 
непроизводительные затраты времени на расширение списка. 


В табл. 13.2 перечислены некоторые методы класса Т1.1 5%. 


Таблица 13.2. Методы класса ТЦ$1 


Метод 


Еапс1оп Ааа (Т%еп: 
Ро1пеег):; Тпеедек; 


Добавляет элемент ТЕем в конец списка 
и возвращает его индекс 


Очищает список, удаляя из него все элементы. 
Не освобождает память, связанную с каждым 
удаленным элементом. Устанавливает в свойства 
Соцпе и Сарас1 у значение 0 


ргосеаиге С1еаг; 


ргосеаиге Пе1есе (Тпаех: Удаляст из списка элемент с индексом Тпаех. Все 
Тпфедег); элементы, расположенные за удаляемым, 
смещаются на одну позицию вверх 


ргоседиге Ехспапае (Тпаех1, | Меняет местами элементы с индексами Тпаех1 
Тпаех2: Тпеедег); и Тпаех2 


Еапсе1оп Ехрапа: Т11$%; Расширяет массив элементов, увеличивая Сарас1еу 
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Возвращаст указатель па самый первый элемент 
списка 


Метод 


Еапсе1оп Е1г$5е: Розпеекг; 


ЕипсЕ1оп ТпаехоОЕ (Т%епм: Отыскивает в списке элемент Теем и возвращает 
Ро1псег): Тпеедег; его индекс 


ргосеацге Тпзег® (Тпаех: Вставляет элемент Теем в позицию Тпаех списка: 

Тпеедег; Тсем: Ро1пъег); новый элемент получает индекс Тпаех, все 
элементы с индексами Тпаех и больше 
увеличивают свой индекс на 1. При необходимости 
расширяет список 


Еапс1оп Газ®: Ро1пкег; Возвращает указатель на последпий элемент списка 


Перемещает элемепт в списке с позиции СигТпаех 
в позицию МемТпаех. Все элементы старого списка 
с индексами от СагТпаех - 1 до МемТпаех 

уменьшают свой индекс па 1 


ргосеаоге Моте (СоагТпаех, 
М№емТпаех: Тпеедег); 


Упаковывает список: удаляет пустые элементы 
В конце массива индексов 


ргосеаиге Раск; 


Отыскиваст в списке элемент Тееп и удаляет его 


Еапсе1топ Кемохе (Тфеп: 
Ро1пЕег): Треедег; 


Сортирует коллекцию с помощью функции 
Сопраге 


ргоседаге ЗогЕ (Сопраге: 
ТЬ15Е5огЕСопмраге); 


Методы Ааа и Тпзег* получают указатель на вставляемый элемент. Чтобы 
воспользоваться ими, программист должен сам разместить в куче данные и полу- 
чить соответствующий указатель. Точно так же методы Ре1ете, Ветоуе и С1еаг 
не уничтожают распределенные в памяти данные, которые при необходимости 
программист должен уничтожить сам. Например: 


уаг 
11$6: 11156; 
Тбеп: Ро1п%ег; 
Уа10е: АпуТуре; 


Бед1п 
Т15Е := ТЬ156.Сгеафе; // Создаем список 
Тфем := Мем (Уа1ае); // Размещаем в куче данные 
.1$6.Ааа (Т6ем); // Добавляем элемент к списку 
111 5е.Вемохе (Тем); // Удаляем элемент из списка 
21 зрозе (Т+ем); // Удаляем его из кучи 
Т15е.Егее; // Удаляем ненужный список 
епА; 


Метод $огЕ сортирует список по критерию, устанавливаемому функцией 
Сотрагу. Тил Т11 зЕ5огЕСотраге определен следующим образом: 


ТГ156богЕСотраге = Еапс®1оп (Тееп1, Т6еп2: Ро1псег): 
Тпъедег; 
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Таким образом, функция Сотраге получает указатели на два элемента списка. 
Результат сравнения: 


любое отрицательное число, если Теет1^ < Т%еп2^; 


\, О, если ТЕем1^ = Т%ем2^; 
любое положительное число, если ТЕеп1^ > Т+еп2^. 


Критерий сравнения данных устанавливается программистом и реализуется 
в функции Соптраге. 

В следующем примере (проект $оигсе\Спар_13\ТА$\И$+.арг) в список 113% по- 
мещается 20 случайных вещественных чисел, равномерно распределенных в диа- 
пазоне 0...1. Список сортируется по возрастанию чисел и отображается в 
компоненте ппОз+ри* (многострочное текстовое поле из учебной формы 
ЕоЕхапр1е). 

фуре 

РБоцр1е = ^БочЬ1е; 


Еапсе1оп Сопр (Т6етм1, Теем2: Ро1пфег): Тпфедег; 
// С помощью этой функции реализуется сортировка чисел 


Бед1п 
1Е РОоосЬ1е (1%еп1)^ < РОосю1е (Т6еп2)^ еп 
Везо16 := -1 
е]1зе 1Е РОооЬ1е (16ет1)^ > РПБоп1е (Т1Т$еп2)^ ЕБеп 
Везо1е := 1 
е1зе 
Везо16 := 0 
епа; 


ргоседиге ТЕпЕхапр1е.рЮВипС11сК (бепаег: ТОБ]ес®); 
// Обработчик нажатий кнопки ЬБКип 
//‘выполняет основную работу 
умах 
К: Тоседег; 
156: Т11$%6; 
РО: РРоцЪ]1е; 


Бед1п | 

1156 := ТЬ1$6.Сгеаее; // Создаем список 

Бог К := 1 0 20 94° // Наполняем его 

Бед1п 
Мем (ро); // Резервируем память 
РО^ := Вапаом; // Помещаем в нее случайное число 
1156е.Ааа (рр); // Добавляем к списку 

епа; 
11$6.30г% (Сопр); // Сортируем список по возрастанию 


пмОчери®.Ъ1пе$ .С1еаг; { Очищаем поле ттОиЕёриЕё. 
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В следующем цикле наполняем ттОцЕриЕ и уничтожаем элементы 
1$ } 


Бог К := 0 0 1156.Соппе-1 ао 
Бед1п 
РО := 113% [К]; // Очередное число из списка 


птОифри®.Т1пе$ .Ада (Е]1оаеТобег (рр^)); {Помещаем 
в ттОиЕриЕЁ} 


21зрозе (рр) // Уничтожаем число 
еп&; 
Т156.Егее; // Уничтожаем список 


епа; 


Классы ТЗ{ита$ и Тита $ — 
наборы строк и объектов 


Класс ТЗитад$ 


Абстрактный класс Т5&хг1паз инкапсулирует поля и методы для работы с набора- 
ми строк. От него порождены многочисленные специализированные потомки, об- 
служивающие наборы строк в таких компонентах, как ТСопроВох, Т115%Вох, 
ТВ1спЕа1 и др. Эти классы (ТСопроВох5&г1п93, ТЬ1зЕВох5&г1п9$, ТВ1сВ- 
Еа1 5 г1паз и др.) объявляются в разделах Тмр1емеп+а&1оп соответствующих 
модулей (5+аСЕг1 5, СомСЕг15 и др.) и поэтому скрыты от браузера Вер и не 
включены в справочную службу. Единственным доступным наследником Т$%:1п95 
является Т5&х1п9115$& — полнофункциональный класс общего назначения. 

Замечательной особенностью класса Т5%х1паз и его потомков является то об- 
стоятельство, что элементами наборов служат пары строка-объект, в которых стро- 
ка — собственно строка символов, а объект — объект любого класса ОерЫ. Такая 
двойственность позволяет сохранять в Т5&г1па5$ объекты с текстовыми примеча- 
ниями, сортировать объекты, отыскивать нужный объект по его описанию и т. д. 
Кроме того, в качестве объекта может использоваться потомок Т5ег1 па, что по- 
зволяет создавать многомерные наборы строк. 

Набор строк технически реализуется подобно ТТ] 5% — в виде массива указате- 
лей. Свойство Сарас1‹$у показывает текущую длину этого массива, а свойство 
СоппЕ — количество элементов, занятых в нем. Если при добавлении очередного 
элемента Сарас1+у окажется меньше СоцпЕ, происходит автоматическое расши- 
рение массива. При этом в динамической памяти резервируется место для разме- 
щения Сарас1еу + 16 указателей, в новый массив переписывается содержимое 
старого массива, после чего старый массив уничтожается. Если вам известно ко- 
личество элементов в создаваемом наборе строк, имеет смысл заранее нужным 
образом установить свойство Сарас1*у, чтобы сократить непроизводительные 
расходы на многократные расширения массива указателей. 

Свойство СомтаТех* интерпретирует содержимое набора строк в виде одной 
длинной строки с элементами вида "Первая строка", "Вторая строка", "Тре- 
тья строка" ит. д. (каждая строка набора заключается в двойные кавычки и отде- 
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ляется от соседней строки запятой; если в строке встречается символ двойной ка- 
вычки, он удваивается). Свойство Тех интерпретирует содержимое набора в ви- 
де одной длинной строки с элементами, разделенными стандартным признаком 
ЕОЬМ (#13#10). 

Свойства Матмез и \Уа1ае5 обрабатывают строки вида Мапе=Уа1ле. Такие стро- 
ки широко используются в различных файлах инициализации, например, в файле 
МТМ.ТМТ. 

Методы Ааа, Аррепа, Тпзег*, С1еаг иТ. п. в классе Т5&г1паз абстрактные. 
Связано это с тем, что класс инкапсулирует их и таким образом делает доступны- 
ми во всех потомках, но он при этом не накладывает никаких ограничений на то, 
как располагаются в памяти строки и объекты. Каждый потомок решает эту задачу 
наиболее удобным для него способом. Например, потомок Т$Ехг1паЪ13Е распо- 
лагает строки и объекты в общей динамической памяти, для чего перекрывает все 
абстрактные методы своего родителя. Замечу, что если вы создадите экземпляр 
класса Т5&г1па$ с помощью его конструктора Сгеаке, компилятор предупредит 
вас о том, что этот экземпляр содержит абстрактные методы, так что пользоваться 
им нужно лишь в исключительных случаях. 


Класс Тита $1 


Т$Ег1п911 $& представляет собой полнофункциональный класс общего назначе- 
ния и является прямым потомком Т$Ег1паз. Помимо перекрытых абстрактных 
методов своего родителя, класс включает в себя дополнительные методы и свой- 
ства, перечисленные в табл. 13.3. 


Таблица 13.3. Некоторые свойства и методы класса ТЗитаЦ$1 


ргорегеу Пир11сасез: Свойство, позволяющее управлять 
ТРор]1саф$ез; возможностью размещения в наборе двух 
и более идентичных строк 


ргорег®у богееа: Воо1еап; Признак необходимости сортировки строк 
в алфавитном порядке 


ргорегЕу ОпСрапде: Определяет реакцию на изменение набора 
ТМ№ое1ЕуЕуепе; строк. Возникает после последнего изменения 


ргорегеу ОпСпапа1пса: Определяет реакцию на изменение набора 
ТМос1ЕуЕхепе; строк. Возникает до очередного изменения 


Еапс&1оп Г1пА(сопз® $: $5%&:4па; | Ишет в наборе строку $ и в случае успеха 
уаг Тпаех: Тпфедег): Воо1еап; в параметре Тпаех возвращает ее индекс 


При'ЗбогееЯ = Тгкае строки набора автоматически сортируются в алфавит- 
ном порядке. При этом свойство Рир11сакез разрешает коллизию, связанную с до- 
бавлением в набор строки, идентичной одной из ранее вставленных. Если Рар11- 
сафез = ЧаТапоге, идентичная строка отвергается и программе ничего об этом 
не сообщается; если Рир11саЕез = ачЕггог, возбуждается исключение Е!,1 $&- 
Еггог; значение Рир11сафез = даАссерь разрешает вставлять в набор сколько 
угодно идентичных строк. 
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Следует заметить, что сортировка строк в 32-разрядных версиях \/т4о\$ 
осуществляется не совсем так, как это происходит в М5-ОО$ или \/1т4о\$ 3.х. 
Чтобы убедиться в этом, советую запустить следующий вариант учебной програм- 
мы (проект $оитсе\СНар_13\Т$ипа 1$ \ИзЕ.арг, рис. 13.1). В ней обработчик события 
ОрС11ск кнопки БЪБип создает два списка строк — 1151 и 11562. Список 115$%1 
первоначально способен сортировать строки (в его свойство 5огкеа устанавлива- 
ется значение Ткие). Затем в цикле от 32 до 255 (0...31 — это коды служебных сим- 
волов) происходит наполнение обоих списков: в 151 помещается строка, содер- 
жащая символ и его код, ав 1562 — наоборот, сначала код, а затем сам символ. 
Поскольку символьное представление кода дополняется до трех символов (в дву- 
значных числах слева добавляется ведущий ноль), строки в списке 131 окажут- 
ся отсортированными по символу, а в списке 1,152 — по коду символа. Затем оба 
списка для наглядности объединяются и помещаются в многострочное поле 
пиОп ера. 
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Рис. 13.1. Сравнение методов сортировки строк для разных версий М/пао\м/$ 


ргосеааге ТЕпЕхатр1е.5ЮВипС11скК (бепаег: ТОБ)ес®); 
уаг 

К: Вусе; 

1$61, 11562: Т5Ег11п911$6; 

5: ЗЕгара; 
Бед1п | 

// Создаем два списка 

111$е1 := Т56Ег1па11$6.Сгеа*е; 
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.1$561.Зогсеа := Тгае; 

1562 := Т5Ег1па115$6.Сгеаке; 

// Цикл наполнения списков монотонно возрастающими кодами 
Бог К := 32 Фо 255 ао 


Бед1п 
5$ := ТиЕТобек (К); // Код символа 
1Е К<100 +Ъеп 
5 := '0' +95; // Двузначное число дополняем ведущим 


// нулем 
// Формируем строку Г[1$Е1 из символа + табуляция + код 
// символа 
.1$61.Ааа (СПаг (К) + #9 + 5); 
// Формируем строку 1[15Е2 из кода + табуляция + символ 
11$62.ААа ($ + #9 + СЗак(к)); 


епа; 
// Объединяем оба списка 
.1$561.богЕеа := Га15е; // Отключаем сортировку [151 
Бог К := 0 Во 115$Е1.Соопе-1 ао 
.1$61[К] := 11$81[К] + #9 + 11$62 [К]; 


// Переносим результат в ттОиЕриЕ 
Оч ери®. Ь1пе$.Аз$1ап (Ъ1$%81); 
// Уничтожаем 1151 и [Г15$Е2 
.1$61.Егее; 
.1562.Егее; 

епа; 


Следует прокомментировать два момента. Во-первых, все строки Ъ13%1 поме- 
щаются в свойство .1пез многострочного поля ппОцеЕ ра с помощью единствен- 
ного оператора: 


пмОсеро®.Ъ1пез.Аз$1ап (1561); 


Это возможно из-за того, что итОзЕрие . 1 пез и 1131 имеют общего роди- 
теля Т5Ег1паз, который умеет копировать родственные наборы строк с помощью 
своего метода А5$1ап. Во-вторых, перед объединением строк мы отключили свой- 
ство Зогееа списка Ъ13%1. Если этого не сделать, любое изменение строк в отсор- 
тированном списке привело бы к исключению Е 5 х1п9115%Еггог. 

Как видим, строки в 32-разрядных версиях \/Л1п4о\$ сортируются не с учетом 
внутреннего кода символа, а с учетом «смысла»: в начале располагаются все знаки 
препинания и разного рода «мусор», затем идут цифры, буквы латинского алфави- 
та и символы кириллицы. Буквы упорядочены парами — сначала прописная, за 
ней строчная — и не идут сплошным массивом. «Виновником» такой сортировки 
является АР1-функция Апз$1СопрагеТех+, к которой обращается метод Т$&х1п9- 
156 .Оп1скбоге. Если вам понадобится отсортировать так, как это принятов М5- 
20$ или \Мш4о\$ 3.х, то есть по коду символа, проделайте следующее. 


1. Разыщите в каталоге $оигсе\ К \Соттоп исходный файл СЕАЗЗЕ$.РА$ и скопируйте 
его в ваш рабочий каталог. Если вы не найдете этого файла, вы не сможете из- 
менить способ сортировки, так как в классе Т5$Ег1п91,13& метод Ощ1ск$оге, 
отвечающий за сортировку, определен в секции рг1уа*е и, следовательно, не- 
доступен наследникам. 
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2. Враздел Тир1емеп+а® {оп этого модуля сразу после предложения Озез поме- 
стите такое описание функции Апз1СоптрагеТехе: 


Еапсе1оп Ап51СопрагеТехе ($1, $2: $%х1па): Тпседег; 


Бед1п 
1Е 51 < $2 Бел Веза1 := -1 
е]1зе 1Е 51 = 52 $Веп Везо1Е :=0 
е1зе Везо1е := 1 | 

епа; 


3. Спомощью команды Рго]ес" » Ада То Рго]ес* добавьте измененный модуль С1аз5е5 
к вашему проекту и сделайте новый прогон программы. После этого оба столб- 
ца будут идентичны. 
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Богатство изобразительных возможностей \/114о\$ связано с так называемым 
дескриптором контекста графического устройства (Ое\мсе Соткехё, ОС) и тремя 
входящими в него инструментами — шрифтом, пером и кистью. В Ое!рЫ! созданы 
специализированные классы-надстройки, существенно упрощающие использова- 
ние графических инструментов \/т4о\з: для канвы — класс ТСаптаз, для шриф- 
та — ТРоп®, для пера — ТРеп и для кисти — ТВгазВ. Связанные с этими классами 
объекты автоматически создаются для всех видимых элементов и становятся до- 
ступны программе через свойства Сапуаз, Гоп%, Репи Вхизв. 


Класс ТРот 


С помощью класса ТГоп® создается объект-шрифт для любого графического уст- 
ройства (экрана, принтера, плоттера и т. п.). 
Наиболее важные свойства класса перечислены в табл. 13.4. 


Таблица 13.4. Свойства класса ТРог{ 


Свойство 


ргорехгеу Спагзес: 
ТЕопеСрагзек; 


Набор символов. Для русскоязычных программ это свойство 
обычно имеет значение РЕРАОГТ_СНАВЗЕТ или 
ВО$СТАМ _СНАВЗЕТ. Используйте значение ОЕМ_СНАВЗЕТ для 
отображения текста М$-ОО$ (альтернативная кодировка) 


ргорегеу Со]1ог: Цвет шрифта 

ТСо1ог; 

ргорегеу` Не1апе: Высота шрифта в пикселах экрана 

Тпеедег; 

ргорегеу Мапе: Имя шрифта. По умолчанию имеет значение М$ $апз ЗегЁ 

ТЕопЕМаме; 

ргорег®у 517е: Высота шрифта в пунктах (1/72 дюйма). Изменение этого 

Тпеедег; свойства автоматически изменяет свойство Неа * и наоборот 
ргорег®еу 5%у1е: 
ТРопе5$у1е5; 


Стиль шрифта. Может принимать значение как комбинацию 
следующих признаков: Ё3Во19 (жирный), ЕзТЕа11с (курсив), 
ЕзОпаех]1пе (подчеркнутый), Ез ЗЕ г1КеОз* (перечеркнутый) 
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Для некоторых случаев может оказаться полезным метод: 
ргоседиге Азз1ап (боцгсе: ТРегз1азкеп®); 


С помощью этого метода значения свойств шрифтового объекта боксе при- 
сваиваются свойствам текущего шрифта. Метод можно использовать для созда- 
ния шрифта принтера по экранному шрифту и наоборот. 

В проекте $оигсе\СВар_13\ТЕоп\Гоп)ето.арг иллюстрируются основные при- 
емы работы со шрифтом. Для его повторения удалите из учебной программы поле 
ппОцери*, поместите на его место компонент Ра1пеВох (вкладка 5у%ет), назо- 
вите его рЬОц* и поместите в его свойство А] 1ап значение а1С11еп+. На нижней 
панели разместите еще две кнопки (одна для выбора шрифта, другая для вывода 
надписи), назовите их БЪКопЕ и ББОц*, а в их свойства Сар 1оп поместите соот- 
ветственно значения Шрифт и Вывод (рис. 13.2). 


Рис. 13.2. Окно программы на этапе конструирования 


На любое место формы поместите стандартное диалоговое окно ЕопЕО1а1о4 
(вкладка 01а[049$) и напишите такой обработчик события ОпСс11сК для кнопки 
Гоппе: 


ргосеаиге ТЕпЕхапр1е.5ЬЕГопЕС11ск (беп4ег: ТОБ)ес®); 
Бедлп 
1Е Гопе0О1а1оа1.Ехесоее %Цеп 
РЬО©Оче.Сапуа$.ЕопЕ := ЕГопЕО)1а1о91.Копе 
епа; 
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Спрячьте компоненты еаТпрак, ББРопЕ, ЬББОчце (поместите в их свойства 
\1$1р1е значения Га1зе). Обработчики ОпСс11ск кнопок БЪВлал и ББОце долж- 
ны быть такими: 


ргосе4аге ТЕпЕхаптр1е.5ЪКипС11скК (бепаег: ТОБ)ес®); 
{Выводит исходный текст, прячет кнопку ЬБЬКип, показывает 
поле еаТприЁ и кнопки ББЕГопЕ и БЬОиЕ} 


Бедап 

м1 ЕВ рЬОце.Сапуаз, КГопЕ ао 

Бед1п 
ТехЕОце (10, 10, 'М5 Запз Зег1Е, $127е=10'); 
512е := 20; 
ТехЕОчЕ (10, 30, 'М5 Запз Зег1ЁЕ, 512е=20'); 
Мапе := 'Соцглег!; 
5Еу1е := [Е$Во1а]; 
ТехеОче (10, 70, 'Соцг1ег, Зуге=20'); 
Мапе := 'Т1мез М№ем Вомап!; 
5Еу1е := [Е5Г{а11с, ЕзОпаегТ1пе, ЕзВо]1а]; 
ТехеОце (10, 110, 'Тлмез №5 Вомап, курсив, жирный, '+ 

'подчерк.'); 
епа; 


еЧ9Тпрое. пом; 
БЬЕГопе. 5 пои; 
Бойе. 5Пом; 
БЬВоап .Нлае; 
1600 рае .СарЕ1оп := 'Выберите шрифт, введите текст и '+ 
'щелкните на кнопке "Вывод"! ' 
епа; 


ргосе4иге ТЕпЕхапр1е.500и{С11сКк (беп4ег: ТОБ]ес®); 
{Выводит текст из поля еаТприЕ текущим шрифтом} 


Бед1п 
1Е еЧТпрое.ТехЕ <> '' еп 
РЮОче.Сапуа$.ТехеОцф (10, 150, еЯаТпрое.Тех®); 
еЯТпри*.Тех® := ''; // Очищаем поле ввода 
еаТпрое . Зе Госа$ // Передаем ему фокус ввода 
епа; 


Вид окна работающей программы показан на рис. 13.3. 

Некоторые пояснения к программе. Мы воспользовались шрифтом канвы ком- 
понента Ра1пЕВох1 (канва обсуждается ниже в подразделе «Класс ТСапуаз»). Для 
изменения стиля шрифта его свойству 5 у1е следует присвоить произвольный 
набор флагов ЕЁзХХХХ — значение типа ТЕопе 5% у1е. Этот тип определен как мно- 
жество из элементов перечисленного типа. Поэтому в правой части оператора при- 
сваивания должен быть конструктор множества, даже если устанавливается лишь 
один флаг: 


246 — Глава 13. Классы общего назначения 


Рис. 13.3. Вид окна работающей программы 


5су1е := [Е$5Во1а]; 


Вывод текста реализуется методом Тех Ой& канвы, которому передаются ко- 
ординаты левого верхнего угла надписи и текст. 


Класс ТРеп 


С помощью класса ТРеп создается объект-перо, служащий для вычерчивания ли- 
НИЙ. 
В табл. 13.5 перечислены свойства класса. 


Таблица 13.5. Свойства класса ТРеп 


Свойство [писание 


ргорехеу Со1ог: Цвет вычерчиваемых пером линий 

ТСо1ог; 

ргорег®у Моде: Определяет способ взаимодействия линий с фоном (см. ниже) 
ТРепМоае; 


ргорек®еу 5%у!е: Определяет стиль линий (см. ниже). Учитывается только для 
ТРеп56у1е; толщины линий 1 пиксел. Для толстых линий стиль всегда 
р$50114 (сплошная) 


ргорег®у М1аеп: Толщина линий в пикселах экрана 
Тпседег; | 
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Свойство Моде может принимать одно из следующих значений: 


” риВ1аск — линии всегда черные, свойства Со1ог и 5$ у1е игнорируются; 
# ри\1ее — линии всегда белые, свойства Со1ог и 5% у1е игнорируются; 


" риМор — цвет фона не меняется (линии не видны); 
® рмМоЕ — инверсия цвета фона, свойства Со1оги 5 у1е игнорируются; 


" ртмСору — цвет линий определяется свойством Со1охг пера; 


 риМо&Сору — инверсия цвета пера, свойство 5&у1е игнорируется; 


„. риМегдеРепМо® — комбинация цвета пера и инверсионного цвета фона; 


" риМазКРепМо+ — комбинация общих цветов для пера и инверсионного цвета 
фона, свойство 5% у1е игнорируется; 


—_ риМегдемое Реп — комбинация инверсионного цвета Пера и фона; 


" риМазКМоЕРеп — комбинация общих цветов для инверсионного цвета пера 
и фона, свойство 5% у1е игнорируется; 


„’ риМегае — комбинация цветов пера и фона; 


 риМо%Мегае — инверсия цветов пера и фона, свойство 5$ у1е игнорируется; 


"' риМазк — общие цвета пера и фона; 


* риМо%&МазкК — инверсия общих цветов пера и фона; 


" ршХог — объединение цветов пера и фона операцией ХОБ; 


 риМо%Хог — инверсия объединения цветов пера и фона операцией ХОВ. 


Стили линий показаны в верхней части рис. 13.4. Этот рисунок создан с по- 
мощью программы Фоигсе\СВар_13\ТРеп\Репбето.арг. 


--—--- рбзебобя = 


> _ рева: -” 


— - репячеРтате | о 


Выберите цвет фона и линии, режим Моде и щелкните на кнопке "Линия" о 
-. ай Цвет линии Цвет фона 


ПО сиюн - | —- 


Рис. 13.4. Стили линий 
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Для повторения примера удалите из формы учебной программы поле пиОчерие 
и наего место поместите два компонента Ра1п% Вох (вкладка 5у$ет): один по щел- 
чку на кнопке ЮББоп покажет все стили линий, другой продемонстрирует взаимо- 
действие цветов линии и фона для различных значений свойства Моде. Назовите 
один из них рЬРеп, другой — рЬОчцЕ. Для первого в свойство А11ап поместите 
значение а1ВоЕ ом, для второго — а1С11еп*. Удалите из формы поле еаТпрое 
И разместите на нижней панели два компонента Со1огВох (вкладка Адаопа!). 
Назовите один сЬРеп (с его помощью пользователь будет выбирать цвет пера), 
а другой — сюВаск (выбор цвета фона). На нижней же панели разместите список 
соМоде (сего помощью выбирается режим Моае взаимодействия пикселов линии 
с пикселами фона) и кнопку БоРеп (вычерчивает линию толщиной 5 пикселов 
с выбранным режимом Моае). В листинге 13.1 показан текст модуля формы. 


Листинг 13.1. Текст модуля формы примера РепО)ето.ар" 


ргосеаиге ТЕпЕхапр1е.роКипС11ск (бепаег: ТОБ)ес®); 
уах 
К: Тпбедег; 
соп5Е 
Мапез: аггау [0..6] оЕЁ ЗЕгалпа[30]= ('рз5о0о11а', 'рзрВазП', 
'рзрое', 'рзразброе', 'рзразброЕрое', 'р5зС1еаг', 
'рзТп51аеЕкаме'); 
Бед1п 
// Вычерчиваем 7 линий разного стиля: 
м1ЕВ рЬОйе.Сапуаз, Реп ао 


Бед1п 
Бог К := О 0 6 ао 
Бед1п 
5Еу1е := ТРепб$у1е (К); 
// Устанавливаем очередной стиль 
МоуеТо (10, К*25+10); // Смещаем перо к началу линии 


Ъ1пеТо (350, К*25+10); // Вычерчиваем линию 
ТехЕОй* (360, К*25+5, Мамез[К]) 
// Выводим название стиля 


епа 
епа; 
1604&роае.Саре1оп := 'Выберите цвет фона и линии, режим 
Моае '+'и щелкните на кнопке "Линия"'; 
епа; 


сопз& // 16 названий возможных значений свойства Моае 
РепМоае: аггау [0..15] оЕ $ЗЕгапа[13]=('ртВ1асКк', 
'риИР1ее', 'ртМ№ор', 'ртМ№ое', "'рмСору', "риМоЕСору', 
'риМегаеРепМ№ое', 'риМазКРепМ№ое', "'ртМегдеМмоЕРеп', 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу ПЁр:// 
мммм!.рЖег.сот/домип[оаЯ — Примеч. ред. 
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'риМазКМоеРеп', 'ртМегае', "'риМоЕМгеде', "'риМазКк', 
‘'риМоМазк', "'рихоВ', 'риМоЕМог'); 


ргосеацге ТЕпЕхапр1е.6рРепС11скК (бепаег: ТОБ)ес®); 
уаг 
Хх, у, Ь: Тпбсеадег; 


Бед1п 
м1 рЬРеп.Сапуа$ ао 
Бедлп 
Реп. Изаей := 5; 
// Закрашиваем фон: 
Вго$Ь.Со1ог := срВаскК.Со1от$ [ соВаскК. ТЕем1Тпаех]; 


Е111Весе (С11рВес®); 
// Устанавливаем цвет линии и режим: 


Реп.Со]охг := сЬРеп.Со1ог$ [сЬРеп.ТЕепТпаех]; 
Реп.Моае := ТРепМоае (сЪМоае . Теептпаех); 

// Центрируем линию в поле рЬРеп и выводим ее: 
Х := 10; 

У := С1арВесе.Вобеом а1у 2; 

Т. := С11рВКесе.В190%-10; 


МохуеТо (Хх, У); 
Г1пеТо (т, У) 
епа 
епа; 


ргоседиге ТЕпЕхапр1е.ЕГогтСгеафе (Зеп4ег: ТОБ)ес®); 
// Наполняет список сЬМоае в момент создания формы 
уаг 

к: Тисеаег; 
Бед1п | 

сЬМоае .Теемз .С1еаг; 

Бог К := 0 Фо 15 ао 

сьМоае .Теепт$ .Ааа (РепМоае [К]) 

епа; 


Обратите внимание на оператор: 
5Еу]1е := ТРеп5еу1е (К); //Устанавливаем очередной стиль 


Значениями свойства ТРеп5&у1е могут быть элементы перечисленного стиля, 
которые есть не что иное, как целочисленные значения. В программе можно напи- 
сать: 


56у1е := р$з№ 6; 
В этом случае компилятор по описанию типа ТРеп5$у1е найдет нужную цело- 
численную константу и подставит ее в выражение. Следующий оператор будет 


ошибочным, так как переменной 55 у1е перечисленного типа ТРеп5З%у1е присва- 
ивается строковое значение: 
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ЗЕу1е := 'рзМ№ое!; 


Мы воспользовались тем, что порядок перечисления значений в константе 
Мате соответствует перечислению значений типа ТРеп5&у1е и применили ав- 
томатически определенную функцию приведения типов ТРеп5$%у1е для преоб- 
разования целочисленного значения в значение перечисленного типа (функции 
приведения автоматически создаются для каждого типа; их имена совпадают 
с именами соответствующих типов). Заметьте, что следующий оператор недопустим, 
поскольку свойству перечисленного типа присваивается целочисленное значение: 


5Еу1е := К: 


Класс ТВги$И 


Объекты класса ТВгазВ (кисти) служат для заполнения внутреннего простран- 
ства замкнутых фигур. 
В табл. 13.6 представлены свойства класса. 


Таблица 13.6. Свойства класса ТВги$В 


Свойство иван 


ргорегеу В1%тар: Содержит растровое изображение, которое будет 
ТВ1% тар; использоваться кистью. Если это свойство определено, 
свойства Со1оги $$ у1е игнорируются 


ргорег®у Со1ог: Цвет кисти 
ТСо1ог; 


ргорекг®еу 5%у1е: Стиль кисти (см. ниже) 
ТВгозроеу1е; 


Бзбой9 БЗЕиадопа| 
ЬзСеаг Ь$ВОиадопа| 


| 5Нопгота! БеСтоз$ 


Ьз\Мешса| 6$0а9Сто$$ 


—__ Цветкисти Мн 


| -Й 9озе |. . м Вывести стили й — : с —. 


Аллее 


Рис. 13.5. Стили кисти 
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Замечу, что свойство В1 тар содержит ссылку на объект класса ТВ} стар. Пе- 
ред обращением к свойству этот объект нужно создать. Свойство Со1ог определя- 
ет цвет рисунка (узора) кисти, но не цвет фона: цвет фона выбирается автоматиче- 
ски так, чтобы линии узора контрастировали с фоном. В программе $оитсе\СВар_13\ 
ТВги$И\ ВгизА)ето.а4рг иллюстрируются стандартные стили кисти (верхняя часть 
рис. 13.5) и использование свойства В1Е тар (нижняя часть). 

Я не буду утомлять вас подробным описанием процедуры создания соответ- 
ствующей формы: вы ее найдете в упомянутом проекте, а при желании воспроиз- 
вести пример самостоятельно руководствуйтесь рис. 13.5 и приводимым ниже ли- 
стингом 13.2 главного модуля программы. 


Листинг 13.2. Листинг модуля Вги$НУ.ра$ 


1101% ВгазрИ; 
1п6егЕасе 


и5е5$ 
И1паом$, Меззааез, $5у$0%11$, Уаг1ап®е$, С1аззез$, Сгарп1с$, 
Сопего1$, ЕГогт$, О1а1оа$, 5еаС$г1$, Ваебоп$, ЕхеСеЕ1$, 
Ехо] а3; 


суре 
ТЕпЕхапр1е = с1а$$ (ТГогп) 

Рапе11: ТРапе]1; 
ЮБКоп: ТВ1ЕВфп; 
ЬЬС1озе: ТВ1еВфп; 
ррОце: ТРалп® Вох; 
рЬВ1е: ТРалп®Вох; 
$р1166ег1: Т5р116%ег; 
соВгазВСо1ог: ТСо1огВох; 
В1ЕВЕп1: ТВаЕВеп; 
ОРО1а: ТОрепР1сЕагкер1а1оч; 
Таре11: ТГаЬе]1; 
ргосеаиге РЮБопС11ск (бепаег: ТОБдес®); 
ргоседиге В1еВ{п1С11ск (бепаег: ТОБ)есЕ); 


рг1уаве 
{ РелуаЕе аес]агаЕ1оп$ } 
рУаЬ11с 
{ РиБ]1с аес1]агаЕлоп$ } 
епа; 
уаг 


ЕиЕхатр1е: ТЕпЕхапр1е; 
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1пр]1етепваЕ1оп 


{$В *.аЕт} 

ргосеаиге ТЕпЕхатр1е.5ЮКипС11скК (бепаег: ТОБлес®); 

// Воспроизводит стили кисти с цветом, заданным списком 

// сЬВгизрС11ог 

соп$Е 

М№апез: аггау [0..7] оЕ $3%х1па9[12] = ('6550о11а', 'р5С1еаг', 

'р5Ног120оп$а1', 'Ю5УегЕ1са1', '6$ЕО1ааопа1', 
'55В01адопа1', 'ЮсСго$$', 'Ю$01азчСгоз$$') ; 


уаг 
к, Х, У, Н, И: Тпседег; 
В: ТВесЕ; 
Бед1п 
Х := 10; // Текущая левая координата 
У := 10; // Текущая верхняя координата области прорисовки 
м1 ЕВ рЬОое.Сапуаз ао 
Бед1п 
// Вначале очищаем весь рисунок: 
Вга$р.Со1ог := сте; 


Вгазр.56у1е := 550114; 
Е111Весё (С11рВес®); 
// Вычисляем ширину (И) и высоту (Н) изображения: 
И С11рВес®.В1аре а1у 2-90; 
Н С11рВесе.Воебом а1у 4-10; 
// Цикл вывода 8 стилей: 
Бог К := 0 © 7 а 
Бедлп 
1Е К=4 ЕЪеп 
Бедзп // Переход к правой колонке 


Х := М+90; 
У := 5 
епа; 
Вгозр.5$у1е := ТВгазв5еу1е (К); 


1Е К<>1 &Веп 
ВгазА.Со]1ох := 
сЬВгаз$Со1ох.Со1ог$ [соВгизСо1ог.ТЕепТпаех]; 


В.Тор := У; 

1пс (У, Н); 

В.Воесом := В.Тор+Н; 
В.ЬеЕЕ := Х+70; 
ВК.В1айЕе := К.ЪеЕЕчИ; 


Е111Весе (В); 
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// Выводим название стиля: 
Вгозр.Со1ог := СМА е; 
ТехеОс% (Х, В.Тор+5, Мамез[к]); 
ВК.Тор := К.Тор+Н; 

епа 


ргосеаиге ТЕмЕхапр1е.В16В$п1С11сК (бепаег: ТОБ]ес®); 
// Выбираем фоновый узор 


Бед1п 
м1ЕП рЬВ1е.Сапуа$, ВгазН @ао 
Ъед1п 
В1Емар := ТВ1Емар.Сгеафе; // Создаем объект-изображение 
Егу 
1Е ОРО1а.Ехесифе ЕБеп 
В1 стар .ГоааЕгомЕ11е (ОРО1а.Е11еМамте) ; //Загружаем его 
Е111Весь (С11рВес\); // Закрашиваем всю область 
Е1па11у 
В1Емар.Егее // Освобождаем объект 
епа 
епа 
епа; 


Обратите внимание: при назначении кисти нового стиля автоматически очи- 
щается свойство Со1охг, которое следует установить заново, если только стиль — 
не 6 5С1еаг. Перед загрузкой объекта В1 стар его нужно создать, а после ис- 
пользования — уничтожить. Поскольку прорисовка слишком крупных изоб- 
ражений может вызвать исключение, этот фрагмент текста защищен блоком 
Егу...Е1па11у. Перед выводом текста прямоугольник вывода заливается цве- 
том кисти. Обратите внимание на оператор перед обращением к методу Тех%- 
ОцЕ канвы: 


Вгозр.Со1ох := Сс1\\1е; 


Если его убрать, текст будет выведен на фоне, определяемым выбором В СПИС- 
ке сЬВгоазпСо1 ох. 


Класс ТСапуа$ 


Этот класс создает «канву», на которой можно рисовать чертежными инструмен- 
тами — пером, кистью и шрифтом. Объекты класса ТСапуаз автоматически со- 
здаются для всех видимых компонентов, которые должны уметь нарисовать себя. 
Они инкапсулируют объекты Копх, Реп, ВгазЪ, а также многочисленные методы, 
использующие эти объекты. 

Свойства класса перечислены в табл. 13.7. 
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Таблица 13.7. Свойства класса ТСапуа$ 


[Свойство | бпиваие 
ргорег®у ВгозВ: ТВЕОЗВ; 


ргорегеу С11рВесе: ТВесе; | Определяет текущие размеры области, 
нуждающейся в прорисовке 
: Устанавливает способ взаимодействия растрового 


ргорегЕу СоруМоае: 
ТСоруМоае; изображения с цветом фона (см. пиже) 


ргорегеу Гопе: ТГоп\; Объект-шрифт 
ргорег®у Реп: ТРеп; 


ргорекеу РепРоз$: ТРо1п+; Определяет текущее положение пера в пикселах 
относительно левого верхнего угла канвы 
ргорег®у Р1хе15$[Х,У: Массив пикселов канвы 
Тпфедчег]: ТСо1ог; 


Свойство СоруМоае используется при копировании части одной канвы (ис- 
точника) в другую (приемник) методом СоруВесе* и может иметь одно из следую- 
щих значений: 


" спВ1асКпез$ — заполняет область рисования черным цветом, 


 ст)езеТпуеге — заполняет область рисования инверсным цветом фона; 


# сиМегдаеСору — объединяет изображение на канве и копируемое изображение 
операцией АМП; 


"2 спМегаеРа1п* — объединяет изображение на канве и копируемое изображе- 
ние операцией ОВ; 


„. сиМоезгсСору — Копирует на канву инверсное изображение источника, 


* спмо$5бгсЕгазе — объединяет изображение на канве и копируемое изображе- 
ние операцией ОВ и инвертирует полученное; 


 стРа®Сору — копирует образец источника; 


" спРаеТпуеге — комбинирует образец источника с изображением на канве 
с помощью операции ХОБ; 


" сшРакРа1п+ — комбинирует изображение источника с его образцом с помощью 
операции ОВ, затем полученное объединяется с изображением на канве также 
с помощью операции ОВ; 


* сшбгсАпа — объединяет изображение источника и канвы с помощью опера- 
ции АМ; 


 спибгсСору — копирует изображение источника на канву; 


 спбгсЕгазе — инвертирует изображение на канве и объединяет результат 
с изображением источника операцией АМ; 


 спбгстТпуег® — объединяет изображение на канве и источник операцией ХОБ; 


 стбгсРа1пе — объединяет изображение на канве и источник операцией ОВ; 


*} спМЬ16пез$ — заполняет область рисования белым цветом. 
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С помощью свойства Р1хе1з все пикселы канвы представляются в виде двух- 
мерного массива точек с нулевой нижней границей по каждому измерению; точка 
Р1хе1з[0, 0] соответствует левому верхнему пикселу канвы. Изменяя цвет пик- 
селов, можно прорисовывать изображение по отдельным точкам. 

Методы класса перечислены в табл. 13.8. 


Таблица 13.8. Методы класса ТСапуа$ 


Метод [Описание 


ргосеаиге Агс(Х1, 
У1, Х2, У2, ХЗ, У3, 
Х4, У4: Тпеедег); 


ргосеаиге Спога (Х1, 
У1, Х2, у2, ХЗ, \3, 
ХА, УА: Тпседег); 


ргосеаиге СоруВесе 
(резе: ТВесф; 
Сапуа$: ТСапуаз; 
Зоцгсе: ТВес®); 


ргосеаиге Пгам(Х, 
У: Тпседег; 
Сгарр1с: ТСгарП1с); 


ргосеаиге 
РгамРоса$Кесе 
(сопзЕ Весе: ТВес*); 


ргоседиге Е11]1рзе 
(Х1, \У1, ХО, \2: 
Трпеедег); 


ргосеаоге Е111ВБесе 


(сопзЕ Кесё: ТВес®); 


ргосеаоге Е1оо9Е111 
(Х, У: Топседег; 
Со1ог: ТСо1ог; 
ЕР11]156у1е: 
ТЕ11156у1е); 


ргосеаиге ГгамеВесе 
(соп5Е Вес®: ТВес®); 


Чертит дугу эллипса в охватывающем прямоугольнике 
(Х1,У1) - (Х2,У2). Начало дуги лежит на пересечении 
эллипса и луча, проведенного из его центра в точку (ХЗ,УЗ), 
а конец — на пересечении с лучом из центра в точку 
(Х4,У4). Дуга чертится против часовой стрелки (см. ниже) 


Чертит сегмент эллипса в охватывающем прямоугольпике 
(Х1,У1) - (Х2,У2). Начало дуги сегмента лежит на 
пересечении эллипса и луча, проведенного из его центра 

в точку (ХЗ,УЗ), а конец — на пересечении с лучом из 
центра в точку (Х4,У4). Дуга сегмента чертится против 
часовой стрелки, а начальная и конечная точки дуги 
соединяются прямой (см. ниже) 


Копирует изображение бопгсе канвы Сапуаз в участок 
Рез+ текущей канвы 


Осуществляет прорисовку графического объекта СгарНВ1с 
так, чтобы левый верхний угол объекта расположился 
в точке (Х,У) 


Прорисовывает прямоугольник с помощью операции ХОВ, 
поэтому повторная прорисовка уничтожает рансе 
вычерченный прямоугольник. Используется, в основном, 
для прорисовки нестандартных интерфейсных элемситов 
при получении ими фокуса ввода и при потере его 


Чертит эллипс в охватывающем прямоугольнике (Х1,У1) -— 
(Х2,У2). Заполняет внутреннее пространство эллипса 
текущей кистью 


Заполняет текущей кистью прямоугольную область Веск, 
включая се левую и верхиюю границы, но не затрагивая 
правую и нижнюю грапицы 


Производит заливку канвы текущей кистью. Заливка 
начинается с точки (Х,У) и распространяется во все стороны 
от нее. Если Е1115%у1е=ЕзбигЕасе, заливка 
распространяется на все соседние точки с цветом Со1ог. 
Если Е1115$у1е=ЁЕзВогаег, наоборот, заливка 
прекращается на точках с этим цветом 


Очерчивает границы прямоугольпика Вес® текущей 
кистью толщиной в 1 пиксел без заполнения внутренней 
части прямоугольника 


продолжение :# 
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Таблица 13.8 (продолжение) 


ргосеаиге Г1пеТо\(х, 
У: Тробедег); 


Чертит линию от текущего положения пера до точки (Х,У) 


ргосеацке МоухеТо (Хх, 
У: Тплбедег); 


Персмещает перо в положение (Х,У) без вычерчивания 
линий 


ргосеаиге Р1е(х1, 
У1, Х2, \2, ХЗ, У3, 
Х4, У4: Гопа1п6); 


Рисует ссктор эллипса в охватывающем прямоугольнике 
(Х1,У1) - (Х2,У2). Начало дуги лежит на пересечении 
эллипса и луча, проведенного из его центра в точку (ХЗ,УЗ), 
а конец — на пересечении с лучом из цеитра в точку 
(Х4,У4). Дуга чертится против часовой стрелки. Начало 

и конец дуги соединяются прямыми с ее центром 

(см. ниже) 


ргоседоге Ро1удзоп 
(Ро1пЕ$: агкау оЁ 
ТРо1пе); 


Вычерчивает пером многоугольник по точкам, заданным 
в массиве Ро1п% 5. Конечная точка соединяется 

с начальной, и многоугольник заполняется кистью. Для 
вычерчивания без заполнения используйте метод 
Ро1у11пе 


Вычерчивает пером ломаную прямую по точкам, заданным 
в массиве Ро1пЕз 


ргосеаиге Ро1у11пе 
(Ро1пЕ5: аггкау оЕ 
ТРо1п®); 


Вычерчивает и заполняет прямоугольник (Х1,У1) — 
(Х1, 1, Х2, У2: (Х2,у2). Для вычерчивания без заполнения используйте 
Тпседег); метод ЕгапеВес® или Ро1у11пе 


ргоседиге КеЁгезй; Устанавливает в канве умалчиваемые шрифт, перо и кисть 


ргоседиге КоппаКесе | Вычерчивает и заполняет прямоугольник (Х1,У1) - (Х2,У2) 
(Х1, У1, ХО, У2, со скругленными углами. Прямоугольник (Х1,У1) — 

ХЗ, УЗ: Тибедег); (ХЗ,УЗ) определяет дугу эллипса для скругления углов 

(см. ниже) 


ргоседиге Кестапа1е 


Вычерчивает и при необходимости маситабирует 
графический объект Сгар|1 с так, чтобы он полностью 
запял прямоугольник Весе 


ргосеаиге 
ЗЕгесспОкам 

(сопзЕ Весе: ТВес®; 
Сгарр1с: ТСгарр1с); 


Возвращает ширнну и высоту прямоугольника, 
охватывающего текстовую строку Техе 


ЕапсЕ1оп ТехеЕхеепе 
(сопзЕ Техе: 
5г1па): Т512е; 


Возвращает высоту прямоугольника, охватывающего 
текстовую строку Техе 


Еапсе1оп ТехЕНе1апе 
(соп5е ТехС: 
ЗЕгапа): Тплеедег; 


Выводит текстовую строку Тех: так, чтобы левый верхний 
угол прямоугольника, охватывающего текст, располагался 
в точке (Х,У) 


ргосеацге ТехеОче (Хх, 
У: Тпседег; соп5Е 
Техе: ЗЕгапа); 


Выводит текстовую строку Техе так, чтобы левый верхний 
угол прямоугольника, охватывающего тскст, располагался 
в точке (х,У). Если при этом какая-либо часть надииси 


ргосеаиге ТехеКесе 
(ВесЕе: ТвВесе; Х, \: 
1пеедег; соп5Е 
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[Метод [Опиваие 


Техе: 5%х11п9); выходит из границ прямоугольника Вес*, она отсекается 
и не будет видна 


ЕапсЕзоп ТехеитаЕв 
(сопзЕ Техе: 
ЗЕг1па): Тпседег; 


Возвращает ширину прямоугольника, охватывающего 
текстовую строку ТехЕ 


На рис. 13.6 показаны параметры обращения к методам Агс, Спога, Р1еи 
ВочпаВесе. 


Х1,\1 ХЗ, УЗ Х1,У1 ХЗ,УЗ 


Рис. 13.6. Параметры обращения к методам Агс (а), СПога (6), Ре (в) и ВоипаВесе (г) 


Следует отметить два момента. Во-первых, создаваемые на канве изображения 
безвозвратно теряются при перемещении окна программы, его перекрытии други- 
ми окнами, при изменении размеров окна или канвы. Если вам необходимо вос- 
становить изображение, следует вынести его прорисовку в отдельную подпрограм- 
му и вызывать ее в обработчиках событий ОпАсЕ1уа{е и ОпВез12е. Во-вторых, 
нельзя рисовать на невидимой канве. Это означает, что свойство \У15151е компо- 
нента, содержащего канву, игнорируется, как только на канве появляется изобра- 
жение. Это также означает, что нельзя прорисовывать изображение в обработчике 
ОпСгеаее формы, так как в момент создания окна с канвой оно еще не появилось 
на экране. 

В программе $оигсе\СПар_13\ТСапуа$\Сапуа$Оето.арг (рис. 13.7) иллюстрируют- 
ся некоторые приемы работы с объектом класса ТСапуаз. 


Классы ТСгарШс и ТР:сфиге 


Важное место в графическом инструментарии Ое|рЫ занимают классы ТСбгарЬ1с 
И ТРАсбаге. 

ТСгарВ1с — это абстрактный класс, инкапсулирующий общие свойства и ме- 
тоды трех своих потомков: значка (ТТсоп), метафайла (ТМефаЁ11е) и растрового 
изображения (ТВ1 Е тар). Общей особенностью потомков ТСбгарНь+1с является то, 
что обычно они сохраняются в файлах определенного формата. Значки представ- 
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Рис. 13.7. Демонстрационная программа «НЛО» 


ляют собой небольшие растровые изображения, снабженные специальными сред- 
ствами, регулирующими их прозрачность. Для файлов значков обычно использу- 
ется расширение 100. Метафайл — это изображение, построенное на графическом 
устройстве с помощью специальных команд, которые сохраняются в файле с рас- 
ширением \МЁЕили ЕМЕ. Растровые изображения — это произвольные графические 
изображения в файлах со стандартным расширением ВМР. 

В табл. 13.9 перечислены свойства класса Тбгарь1с, а втабл. 13.10 — его методы. 


Таблица 13.9. Свойства класса ТСгарс 


Описание 


Содержит Тгие, если с объектом не связано 
графическое изображение 


ргорегЕу Незапе: Тпеедег; — | Содержит высоту изображения в пикселах 


ргорегеу Мо91Е1еа: Воо1еап; Содержит Тгое, если графический объект 
изменялся 

ргорегеу Ра1ехке: НРАГЕТТЕ; Содержит цветовую палитру графического 
объекта 

ргорег®у Ра1ееееМоа1 Ё1еа: Содержит Тгие, если менялась цветовая палитра 

Воо1еап; графического объекта 

ргорег®еу Тгапзрагепс: Содержит Тгие, если объект прозрачен для 

Воо1еап; фона, на котором оп изображен 


ргорегЕу М1асп: Тпеедег; Содержит ширину изображения в пикселах _ 


Полнофункциональный класс ТР1сеаге инкапсулирует в себе все необходи- 
мое для работы с готовыми графическими изображениями — значком, растром или 
метафайлом. Его свойство СгарВ1с может содержать объект любого из этих ти- 
пов, обеспечивая нужный полиморфизм методов класса. 


Свойство 


ргорегеЕу Епреу: Воо]1еап; 
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В табл. 13.11 и 13.12 перечислены свойства и методы класса ТРускоге. 


Таблица 13.10. Методы класса ТСгартс 


ргосеацге ГоаЯЕгоптС11рроагаРГогта* 
(АРогма®*: Мога; АПрафа: ТНапа1е; 
АРа1ехке: НРАГЕТТЕ); 


Ищет в буфере межпрограммного 
обмена (сИрЬоага) зарегистрированный 
формат АГогма* и, если формат найден, 
загружает из буфера изображецие 
АРафа и его палитру АРа1е фе 


ргосеаиге ГоааЕРгомЕ11е (соп$Е Загружает изображение из файла 
Р1]1еМапе: $ЗЕг1па); Е1]1еМаме 


ргосеаиге ГоадЕгоп5(геам (5 геапм: 
Т5Егеам); 


Загружает изображение из потока 
данных 5Егеам 


ргосеаиге ЗауеТоС11рБоагаРГогмае 
(уаг АГогмае: Мога; мах Апака: 
ТНапа]е; маг АРа]екке: НРАТЕТТЕ); 


Помещаст графическое изображение 
АРаха и его цветовую палитру 

АРа1еске в буфер межпрограммного 
обмена в формате АРогта* 


ргосеаиге бауеТоЕ11е (сопз& Сохраняет изображение в файле 
Е1]1еМаме: $%г11п4а); Е1]еМапме 


ргосеаиге бауеТоЗ®геам (5+ геам: Сохраняет изображение в потоке 
Т5Еегеапм); данных 5 геам 


Таблица 13.11. Свойства класса ТРс\иге 


Свойство [Описание 


ргорегеу В1%тар: ТВ1%пмар; Интерпретирует графический объект 
как растровое изображение 


ргорегеу СгарН1с: ТбгарН1с; Содержит графический объект 


ргорегеу Не1оПе: Тп%едег; Содержит высоту изображения 
в пикселах 

ргорегеу Тсоп: ТТсоп; Интериретирует графический объект 
как значок 


ргорегЕу МефаЁ11е: ТМебаЕЁ!11е; Интерпрстирует графический объект 


ргорег®еу М1АЕП: Тпеедег; 


Таблица 13.12. Методы класса ТРисиге 


как метафайл 


Содержит ширину изображения 
в пикселах 


ргосеацге Азз1ап (боигсе: 
ТРегз1зеепЕ); 


Связывает собственный графический 
объект СгарН1с с объектом б$оигсе 


ргосеаиге ГоааЕгопС11рБоагаЕГогтае 
(АГогма®е: Мога; Арафа: ТНапа1е; 
АРа1ес*е: НРАЦЕТТЕ); 


Ищет в буфере межпрограммного обмена 
(сИрБоаг4) зарегистрированный формат 
АРогма® и, если формат найден, 
загружает из буфера изображение 


Арата иего палитру АРа1есее 
продолжение 2% 
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Таблица 13.12 (продолжение) 


ПО СЗО 


ргосеаиге ГоааЕгопЕ11е (соп$® Загружает изображенис из файла 
Г11еМаме: ЗЕг1па); Е11еМапе 


Помещаст графическое изображение 
АЛРата и его цветовую палитру 
АРа1еске в буфер межпрограммного 
обмена в формате АРогта* 


ргоседиге ЗбауеТоЕ11е (сопзе Сохраняет изображение в файле 
Е1]еМаме: $6г119); Е11еМате 


ргосеаиге 5бауеТоС11рЬоагаГогта* 
(уаг АГогмае: Мог; маг Арафка: 
ТНапа1е; уаг АРа]1]ееее: НРАГЕТТЕ); 


Глава 14 


Общие свойства 
компонентов 


Компонентами в Реры называются потомки класса ТСотропепе. В этой главе 
описываются общие свойства, методы и события компонентов. В остальных гла- 
вах книги при описании конкретного компонента эти свойства уже не упоминают- 
ся. Следует учесть, что все они относятся, в основном, к классам-родоначальни- 
кам — ТОБ]есе, ТРегз156епе, ТСотропепь и ТСоп+го1. Некоторые из них 
описаны в секциях рго$ес+еа этих классов и могут бызь недоступны своим по- 
томкам. Поэтому для получени.. полного набора методов, свойств и событий кон- 
кретного компонента необходи о обращаться к встроенной справочной службе 
Реры. | 


Иерархия компонентов 


Все компоненты Пер! порождены от класса ТСотропеп+, в котэром инкапсули- 
рованы самые общие свойства и методы компонентов. Пред:. `‘ ТСотрелепе яв- 
ляется класс ТРег$1з+еп&, который произошел непосредственно от базэвсго клас- 
са ТОБ)есь (рис. 14.1). 

Класс ТРегз1 з%кеп® передает своим потомкам важный виртуальный метод: 


ргосеачге Аз51ап (боигсе: ТРегз1зеепЕ ; 


С помощью этого метода поля и свойства объек’: Зоагсе копируются в объ- 
ект, вызвавший метод Аз51ап. Замечу, что обмени ‚аться данными могут все на- 
следники класса ТРег$1 6 еп независимо от того, 1; :ходятся они в непосредствен- 
ном родстве по отношению друг к другу или имеютединственного общего предка — 
класс ТРег515фепе. 

Класс ТСотропеп* служит базой для создания как видимых, так и невидимых 
компонентов. Большая часть видимых компонентов происходит от класса ТСоп- 
Его]. Два наследника этого класса — ТИ1пСопЕго] и ТСбгарй1сСоп*го1 — оп- 
ределяют две группы компонентов: имеющие оконный ресурс (класс ТИ1пСопего1 
и его потомки) и не имеющие этого ресурса (класс Тбгарр1сСопеко1 и его по- 
томки). Оконный ресурс — это специальный ресурс \/ 14 о\з, предназначенный для 
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ТСгарНсСогиго! 


Тосгопа\МИпСопиго! 
ТСизютРогт 


Рис. 14.1. Фрагмент иерархии компонентов Берш 


ТМИпСопго! 


ТСизютСог\го| 


создания и обслуживания окон. Только оконные компоненты способны получать 
и обрабатывать сообщения УЛпао\$. 

Оконный компонент в момент своего создания обращается к \/п4о\$ с требо- 
ванием выделения оконного ресурса и, если требование удовлетворено, получает 
так называемый дескриптор окна. Класс ТИ1пСопего]1 и его потомки хранят де- 
скриптор окна в свойстве Напа1е. Программист может использовать этот дескрип- 
тор для непосредственного обращения к АРГ-функциям \Пш4о\з. Потомки Тбга- 
рр1сСопЕго1 не требуют от \Лп4о\з дефицитного оконного ресурса, но они и не 
могут получать и обрабатывать \/114о\$-сообщения — управляет такими элемен- 
тами оконный компонент-владелец (например, форма), который является посред- 
ником между У\/т4о\$ и неоконными компонентами. 


Имена и владельцы компонентов 


Класс ТСопропеп& включает в себя свойства и методы, общие для всех компо- 
нентов. 
Свойство Маме определяет имя компонента: 


ргорегЕу Маме: ТСопропепЕМаме; 

фуре ТСопропепЕМаме = $%х1па; // 32-разрядные версии 
// Бе]1]рв1 

фуре ТСопропепЕМаме = $%&х4па[63]; // Ре1]рь1 1 


Имя компонента строится по тем же правилам, что и имена любых других объ- 
ектов программирования — констант, переменных, подпрограмм и т. д. Оно пред- 
ставляет собой правильный идентификатор и должно быть уникальным в области 
своей видимости в программе. Так как компоненты помещаются на форму средой 
Ое|ры1, каждый компонент автоматически получает создаваемое средой имя, со- 
впадающее с именем своего класса (без начальной буквы Т) и дополненное число- 
вым суффиксом: Гог], Гафе11, Е 912 ит. д. Впоследствии программист может 
переименовать компонент, чтобы сделать текст программы более понятным. При 
разработке собственных имен полезно выработать свою систему двух- или трех- 
буквенных префиксов, кодирующих тип компонента. Например, Ем — для формы 
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ТГогм, 15 — для метки ТГаре1, еа — для поля ТЕЯ1 ит. п. Комбинируя префикс 
с мнемоническим именем, можно существенно улучшить читабельность програм- 
мы и усилить контроль за правильным использованием свойств и методов компо- 
нента. Например, показанный ниже оператор сразу вызывает подозрение: 


160чЕроае.Техе := 'Текст'; 


Причина втом, что префикс 15 определяет компонент ТГабе1, который не имеет 
свойства или поля с именем Техе. 

Следующее свойство определяет произвольный целочисленный параметр, ко- 
торый не используется Ое]рЫ и которым программист может распоряжаться по 
своему усмотрению: 

ргорегЕу Тадз: Тпфедег; 

Любой компонент Ое!рЫ! (кроме форм и модулей данных) является собствен- 
ностью другого компонента и, в свою очередь, может быть владельцем одного или 
нескольких компонентов. Такая зависимость компонентов друг от друга позволя- 
ет существенно упростить процесс управления ими. Например, чтобы удалить окно 
с включенными в него компонентами, достаточно вызвать деструктор окна: он по- 
очередно вызовет деструкторы всех других компонентов, владельцем которого 
является компонент-окно, и таким образом полностью освободит выделенные окну 
ресурсы. Указывает на владельца компонента следующее свойство (это свойство 
доступно только для чтения): 


ргорегЕу Омпег: ТСопропепЕ; 


Положение компонента в массиве Сотропеп+з своего владельца определяет 
свойство СотропепеТпаех: 


ргорегеу СопропепеТпаех: Тпфедег; 


Сам массив содержит список всех компонентов, которыми владеет данный ком- 
понент, и определяется следующим свойством: 


ргорег®у Сопропепт$ [Тп4ех: Тпеедег]: ТСотшропепе; 


Количество зарегистрированных в списке компонентов возвращает свойство 
Сопропепе*Соцпе: 


ргорегеЕу СотропепеСоипе: Тпеедек; 


Конструктор ТСотропе® .Сгеа+е имеет единственный параметр обращения, 
в котором компоненту передается ссылка на его владельца: 


сопзЕгасвог Сгеаке (АОмпег: ТСотмропепе); 


В ходе выполнения конструктора компонент вставляет ссылку на себя в спи- 
сок СотропепЕ $ своего владельца и изменяет содержимое собственного свойства 
Омпег. 

Для управления списком СотропепЕ $ предназначены методы, перечисленные 
в табл. 14.1. 


Таблица 14.1. Методы управления списком Сотропепт$ 


ргосеацге ПезегоуСотропепкз; Вызывает поочередно деструкторы всех 
компонентов из списка Сомропепф $ 


и удаляет все компопенты из списка 
прооолжение 7 
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Таблица 14.1 (продолжение) 


Отыскиваст в списке компонент с именем 
АМаше и возвращает ссылку на него 


Метод 


Еапсе1оп Е1пАаСотропепе (сопз® 
АМапе: $&г1па): ТСотропепЕ; 


Вставляет компонент АСотропепе в консц 
списка Сомропеп®е5 


ргосеаиге ТпзегЕСотропепе 
(АСотропеп®: ТСотропеп*); 


ргосеаиге КепоуеСотропепе Удаляет компонент АСотропепе из списка 


(АСотропеп®: ТСотшропеп®); 


Родительские и дочерние компоненты 


Наследники класса ТСопего1 образуют всю палитру видимых компонентов ОерН1. 
В терминах У/шт4о\$ они называются элементами управления, так как на их осно- 
ве прежде всего реализуются элементы интерфейса \/шт4о\/з — кнопки, флажки, 
переключатели, списки ит. п. В тексте книги я часто буду употреблять слова ком- 
понент и элемент управления как синонимы. 

Как уже отмечалось, некоторые из наследников ТСопЕго1 обладают дескрип- 
торами окон и способны получать и обрабатывать \/114о\/з-сообщения, другие окон 
не имеют, но обязательно включаются в состав оконных компонентов, которые 
управляют ими, согласуясь с требованиями (сообщениями) \!т4о\$. Оконные 
элементы управления обладают специальной оконной процедурой, в которую \т- 
4о\$ посылает управляющие сообщения (например, извещения о манипуляции 
пользователя мышью или о нажатии клавиш). В терминах \\!114о\$ такие элемен- 
ты называются родительскими, а связанные с ними неоконные элементы — дочер- 
ними. Замечу, что оконный компонент может выступать как родительский не толь- 
ко по отношению к неоконным компонентам, но и к оконным. В этом случае он 
просто транслирует управляющие \/14о0\$-сообщения в оконные процедуры до- 
черних компонентов. Обязательным требованием \/114о\$ является визуальная 
синхронизация дочерних элементов: они не могут выходить за границы своего ро- 
дителя и появляются и исчезают вместе с ним. Иными словами, родитель с до- 
черними элементами рассматривается \/1п4о\$ как единое целое. Класс ТСопЕго1 
определяет свойство Рагеп\, которое содержит ссылку на родительский компонент: 


ргорегЕу Рагепе: ТМ1пСопфго1; 


Это свойство не следует путать со свойством владения (Омпег): владелец со- 
здает компонент (не обязательно видимый), а родитель (Рагеп®) иправляет ви- 
димым компонентом. Поскольку конструктор ТСотропепе .Сгеахе не изменяет 
свойства Рагеп+ (в родительском классе ТСотропеп* такого свойства нет), при 
создании видимых компонентов на этапе прогона программы это свойство необ- 
ходимо изменять программно. Например, следующий обработчик события Оп- 
Сгеаее формы Гогт1 вставит надпись Дочерний элемент в левый верхний угол 
формы: 

ргоседиге ТГоги1 .ЕогмСгеате (бепаег: ТОБ)ес®); 

уаг 
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16ТаБе1: ТГаре1; 
Бед1п | 
1ЬЪабе1 := ТЬаре]1.Сгеаее (5е1Е); 
1БЪаре]1.РагепЕ := 5е1ЕЁ; 
16ГаБе1.СарЕ1оп := 'Дочерний элемент!; 
епа; 


Обратите внимание на следующий оператор: 
1ЮГаБе1.РагепЕ := 5е1ЕЁ; 


Если убрать этот оператор из приведенного выше фрагмента, метка никогда не 
«узнает» о том, что пришла пора прорисовать себя на экране, и ее текст не появит- 
ся. Наоборот, изменение свойства Рагеп& подключает метку к списку дочерних 
элементов формы, и оконная процедура формы обратится к нужному методу мет- 
ки, чтобы заставить ее появиться на экране в момент появления самой формы. 


ПРИМЕЧАНИЕ Приведенный выше пример является образчиком того, как ие надо про- 
граммировать: локальная переменная 15ЪаБе1 будет удалена после 
выхода из процедуры ГогпСгеафе, содержащийся в ней указатель 
будет безвозвратно потерян для программы, и она никогда не сможет 
освободить связанные с меткой ресурсы памяти. Хотя ресурсы будут 
автоматически освобождены при завершении работы программы, пра- 
вильнее было бы расположить переменную 15Ъаье1 вне процедуры, 
например, в секции руЪ1.1с класса ТЕогт1, чтобы в обработчике со- 
бытия Опрез+гоу формы выполнить вызов деструктора метки. 


Помимо свойства СотропепЕз каждый оконный компонент получает от свое- 
го родителя ТИ1пСопего1 свойство Сопе го] $, содержащее список дочерних эле- 
ментов: 


ргорегЕу Сопего1$ [Тпаех: Тпеедег]: ТСопего1; 


Свойство СопЕго1Соцп® возвращает количество дочерних элементов (длину 
массива СопЕго13): 


ргорегеу СопЕго1СоспЕе: ТпЕедег; 
Работать со списком Соп&го1$ можно с помощью методов, перечисленных 
в табл. 14.2. 


Таблица 14.2. Методы управления списком Сог!го|5 


ЕипсЕ1оп Сопка1п$Сопего1 (СопЕго]1: | Возвращаст значение Тгое, если 
ТСопего1): Воо]1еап; компонент Сопего1 является дочерним 
элементом 


Еапсе1оп СопЕго1АЕРоз (соп$® Роз: Возвращает ссылку па компонент, 
ТРо1пе; А11о0\ир15аб1еа: Воо1еап): которому принадлежит точка 
ТСопего]1; с координатами Роз. Если 
А] 1ом015аЪ]1еа=Тхгае, поиск ведется 
также среди запрещенных для выбора 
компонентов 


продолжение 
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Таблица 14.2 (продолжение) 


ЕапсЕ1оп Е1паМехеСопего1 Ищет новый элемент в списке 

(СигСопфго]1: ТИ1пСопего1; Сопёго1$. СихгСопего1 определяет 

Согогмага, СпескТаЪ5*ор, начальную позицию поиска; 

СрескРагеп®: Воо1еап): СоГогмагА=Тгце, если поиск идет от 

ТИ1пСопего1; начальной позиции к концу списка; 
СпескТаф$ «ор=Ткгое, если поиск идет 
только среди компонентов со свойством 
Таб5ор=Тгие; если СпескРагеп* = 
Тгое, поиск идет только среди оконных 
элементов 


ргосе4иге СесТаБОгаегГ 15% (11$: Создает список 1,154 всех дочерних 
ТЬ156); компонентов в порядке их обхода, 
реализуемого клавишей ТаБ 


ргоседиге ТпзегЕСопеЕго1 (АСопего]1: | Вставляет повый дочерний элемсит 

ТСоп*го1); в список Соп*го1 $. Программа не 
должна обращаться пепосредственно 
к этому методу: для вставки дочернего 
элемсита следует установить нужное 
значение свойства РагепЕ во 
вставлясмом компоненте 


ргосеацке М№ос1ЕуСопего15$ (М5а: Посылает сообщение Мза во все 
ога); дочерние оконные компоненты 


ргоседиге Кера1п(; Перерисовываст родительский компонент 
и все его дочерние компоненты 


ргосе4оге 5бса1еСопего1$ (М, П: Перерисовываст все дочерние элемеиты 
Тпфседег); с размерами, измененными в М/О раз по 
сравнению с предыдущими размерами 


ргосеаиге 5е1есЕЁР1т5%; Выбираст первый в порядке обхода, 
реализуемого клавишей ТаБ, дочерний 
компонент 


ргосе4иге 5е1есЕМехе (СигСопЕго1: Выбирает очередной в порядке обхода, 
ТИ1пСопего]1; СоРогмака, реализуемого клавишей ТаБ, дочерний 
СпескКТар5®ор: Воо1еап); компонент. СагСопего1 определяет 
начальную точку поиска; 
Согогмага=Тгое, если поиск идет 
к копцу списка; СпескТар5ор=Тгие, 
если выбираются только компоненты 
со свойством Таб5$ор=Тгкиае 


ргосеааге 5ееСп11аО0гаег (Ср11а: Устанавливает новый порядок обхода, 
ТСотропеп®; Огаег: Тпфедег); реализуемого клавишей ТаБ, компонента 
Сп11а 


ргосеаиге ЗПпомСопЕго1 (АСоп®го1: Показывает дочерний компонент 
ТСопфго1); АСопего1 
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Положение, размеры 
и оформление компонентов 


Положение и размеры компонента (в пикселах) определяются четырьмя его СВОЙ- 
ствами: 


ргорег&у Не1оаНе: Тпеедег; // Высота 

ргорегеу еЕф: Тпседег; // Положение левой кромки 
ргорегеу Тор: Тпкедег; // Положение верхней кромки 
ргорегЕу М1АЕП: Тпеедег; // Ширина 


Для всех компонентов, кроме форм, эти свойства задаются в координатах кли- 
ентской части родительского компонента. Для формы — в координатах экрана. 
Клиентская часть компонента — это внутренняя его область за исключением заго- 
ловка, рамки и меню. Свойства обычно определяются на стадии конструирования 
формы, но они доступны также и на этапе прогона программы. Изменение любого 
из них приводит к немедленному изменению положения или размера компонента 
как на этапе конструирования, так и при прогоне программы. Как показано ниже, 
все четыре числовые величины содержатся также в единственном свойстве: 

туре 

ТРо1пЕ = гесога 

Х: Бопа1ТпЕ; 
У: Гопа1тте; 

епа; 

ргорег®еу ВоопазВесе: ТВесе; 

ТКесе = гесога 

сазе Тпфедег оЕ 
0: (ЪеЕЕ, Тор, В1апЕ, Воебом: Тпведег); 
1: (ТорьеЕЕ, ВоеботВ1айе: ТРо1пё); 
епа; 


Это свойство удобно использовать при прорисовке компонента методом 
ТСапуа$.ЕгапевВесе. 

В некоторых случаях бывает необходимо пересчитать относительные коорди- 
наты точки внутри клиентской части в абсолютные координаты экрана и наобо- 
рот. Эта задача решается двумя методами ТСопЕ го]: 


ЕапсЕ1топ С11епеТобсгкееп (сопз® Ро1п®: ТРо1пе): ТРо1пЕ; 
ЕарпсЕ1оп ЗсгеепТоС11епе (сопз$® Ро1п®: ТРо1п®): ТРо1пЕ; 


Важную роль играет свойство А11ап, определяющее положение компонента 
относительно границ своего родителя: 


Суре ТА119п = (а]1Мопе, а1Тор, а1Во%®омп, 
а1ТеЁЕе, а1К1аре, а1С11епЪ); 
ргорегеу А119п: ТА11ап; 
Если это свойство не равно а1М№опе, компонент прижимается к верхней (а1Тор), 
нижней (а1ВоЕ ком), левой (а11еЕ&) или правой (а1В13В®) границе своего ро- 
дителя. При этом размеры компонента по соседним с границей измерениям 
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игнорируются, и компонент «растекается» по границе. Например, если А11ап=а1Тор, 
значения свойств ЪеЕф и М1 Аев компонента игнорируются, и его прямоугольник 
будет занимать всю верхнюю часть клиентской области родителя высотой Не1 ап 
пикселов; если А] 1ап=а1ЪеЕх, свойства Тор и Незан* игнорируются и прямо- 
угольник занимает левую часть родителя шириной М1аАеЕв пикселов и т. д. Если 
несколько компонентов имеют одинаковое выравнивание, они последовательно 
прижимаются друг к другу в порядке их перечисления в свойстве Сопе го] з: пер- 
вый прижимается к границе родителя, второй — к границе первого и т. д. Вся не 
заполненная другими компонентами клиентская область родителя заполняется 
компонентами со свойствами А119п=а1С11еп, которые в этом случае (то есть 
если их несколько) накладываются друг на друга. Замечательной особенностью 
свойства является его постоянство при изменении размеров клиентской части ро- 
дителя. Если, например, компонент прижат к верхней границе формы, он будет 
неизменно занимать верхнюю часть клиентской области при любых изменениях 
размеров окна. Таким способом можно легко создать панели инструментов, стро- 
ки состояния и т. п. Временное отключение и затем включение эффекта от свой- 
ства А11дп обеспечивается методами 


ргосеаиге П01зар1еА119п; 
ргоседаге Епаю1еА11ап; 


Любой видимый компонент можно скрыть или показать с помощью свойства 
\15$161е или методами Н1ае и 5пом: 


ргорегеу \15161е: Воо1еап; // Тгие - показывает 
ргоседиге Н1ае; // Скрывает компонент 
ргоседиге 5пои; // Показывает компонент 


Скрытый компонент не реагирует на события мыши и клавиатуры, он не уча- 
ствует в «дележе» клиентской области родителя, ему нельзя передать фокус ввода 
клавишей Таб. 

Если компонент частично или полностью перекрывается другими компонента- 
ми, его можно расположить над всеми компонентами и убрать под них с помощью 
следующих методов: 


ргоседиге Вг1поТоЕгопе; // Сделать верхним 
ргоседаге ЗепаТоВаск; // Сделать нижним 


Свойство Епаб1еа определяет возможность активизации компонента: 
ргорегЕу Епар1еа: Воо1еап; 


Если это свойство имеет значение Га1 зе, компонент недоступен. Такие компо- 
ненты, точнее, надписи на них, обычно отображаются серым цветом. 

Некоторые компоненты имеют плоское представление (например, метка 
ТГафе1), другие — всегда объемное (например, кнопка ТВие ол). Для остальных 
элементов объемность представления регулируется свойством СЕ 131: 


ргорег®у СЕ130: Воо1еап; 


Все потомки класса ТИ1пСопЕго1 получают от своего родителя 4 свойства, кото- 
рые позволяют очерчивать оконные компоненты внутренней И внешней рамками!: 


' Класс ТИ пСопЕго1 имеет эти свойства только в версиях Ое]рЫ 5...7. 
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Суре 
ТВеуе1Еаае = (БефеЕЕ, БеТор, Бевкларе, БеВое®ом); 
ТВеуе1Еадез$ = зеёе оЕ ТВеуе1Едаде; 

ргорегЕу Веуе1Еадез: ТВеуе1Едаез; // Стороны с рамками 


суре ТВеуе1К1па = (ркКМ\№опе, БКТ11е, ЮКбоЕЕ, РКЕ1а®); 


ргорегеу Веуе1К1па: ТВеуе1К1па; // Стиль рамок 

Туре ТВеуе1СоЕ = (БуМ№опе, руГомегеа, БуКа1зеа, рубрасе); 
ргорегЕу Веуе1Тппег: ТВеуе1Со; // Внутренняя рамка 
ргорегЕу Веуе1Оцкег: ТВеуе1Сио%; ‚ИХ Внешняя рамка 


Очерчиваются только те стороны компонента, которые содержатся в свойстве 
Веуе1Еадез. Свойство Веуе1К1п4 определяет стиль рамок: 


=: БКМопе — рамок нет; 


# РКТ11е — рамки контрастные (черные); 


 ЬкбоЕЕ — рамки пониженной контрастности (серые); 


"’ РКЕ1а® — рамки неконтрастные (белые). 
Тип ТВеуе1Си* определяет эффект объемности для соответствующей рамки: 


=} руМопе — нет объемности; 


„. руБомегеа — вдавленная рамка; 


"' руВа1зеа — выпуклая рамка; 


"”” рубрасе — рамка белая, если свойство Веуе1Клпа не содержит КТ11е, в про- 
тивном случае — выпуклая. 


Замечу, что наличие описанных свойств у класса ТИ1пСопего1 еще не озна- 
чает, что они будут у каждого его потомка. Например, свойства Веуе1Еадез 
и Веуе1К1па при объявлении класса ТРапе1 не переобъявляются, и потому у па- 
нели отсутствуют, зато объявляется дополнительное свойство Веуе1 М1 ас п, опре- 
деляющее толщину рамок. 

С каждым управляющим компонентом связывается текстовая строка, которая 
становится доступна либо через свойство Сарк 1оп, либо через свойство Тех+ (аль- 
тернативой свойству Тех\, которое имеет тип З$Ех1па, является свойство И1п- 
ЧомзТехе типа РСВаг класса ТСопЕго1). Независимо от того, какое свойство 
хранит эту строку, ее можно установить и получить соответственно методами 
зесТехЕВиЕ и бсееТехеВчЕ, при этом метод бсееТехЕГеп возвращает длину строки: 


ргосеаиге бесТехеВчЕ (ВаЕЁЕег: РСпаг); 

Еапсе1оп СесТтехЕВаЕ (ВоЕЁЕег: РСПаг; ВоЕб12е: Тпфедег): 
ТрЕеаег; 

ЕапсЕ1оп СесТтехеГеп: Тпфедег; 


Если эта строка прорисовывается в компоненте, используется шрифт, задавае- 
МЫЙ СВОЙСТВОМ Еопе: 


ргорегЕу ГопЕ: ТЕопЕ; 


В этом случае свойство ТА] 1апщепе регулирует расположение текста относи- 
тельно границ компонента: 
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Суре ТА]11чптмепЕ = (таЪфеЕкЛа$61Еу, каВ1авеазе1Еу, 
саСепфег); 
ргорегеу А11оптепе: ТА11оапмепе; 


Допустимые значения свойства: 


” саьеЕе Лаз 1Еу — прижать к левой границе; 


” сав19пЕа$1Еу — прижать к правой границе; 


.„ СаСепеег — расположить по центру. 
Рассмотрим следующее свойство: 
ргорегЕу ПРезКГорГопе: Воо1еап; 


Придав этому свойству значение Ткце, можно потребовать от компонента, что- 
бы он выводил текст системным шрифтом У/Лп9о\5. 
Видимая часть элемента заливается цветом Со1ог: 


ргорегЕу Со1ог: ТСо1ог; 


Обычно значение этого свойства выбирается в таблице стандартных цветов 
М1 40\$ в виде константы с1ХХХХ (перечень этих констант содержит раскрыва- 
ющийся список свойства). В некоторых случаях может потребоваться залить ком- 
понент нестандартным цветом. В этом случае учтите, что свойство Со1ох хранит 
четырехбайтовое значение, каждый байт которого (слева направо, то есть от стар- 
шего к младшему) имеет следующее назначение: 


ыы 


"" 1 — указатель формата цвета (см. ниже); 


" 2, 3, 4 — интенсивность соответственно синей, зеленой и красной составляю- 
ЩИХ. 


Например, значение $00000000 определяет черный цвет, $00ЕЕ0000 — чис- 
тый синий цвет, ЗООЕЕЕЕЕЕ — белый цвет ит. д. 

Старший байт указывает, как используются остальные байты значения. Если 
он равен нулю, они определяют КСВ-цвет так, как это описано выше. Если стар- 
ший байт равен 1, три оставшихся байта определяют номер одной из 65 536 воз- 
можных логических палитр (второй байт в этом случае игнорируется). Наконец, 
если старший байт равен 2, младшие определяют относительный цвет: в этом слу- 
чае \/114о\$ отыскивает в текущей логической палитре ближайший к указанному 
цвет и использует его для заливки компонента. Другие значения старшего байта 
игнорируются (точнее, игнорируются старшие 5 разрядов этого байта; самый стар- 
ший бит, если он равен 1, определяет черный цвет независимо от значений осталь- 
ных 31 разрядов). 

Чтобы разнообразить унылые серые окна программы, соответствующие стан- 
дартным формам Оерь! (в \Лш4о\з 98), я иногда использую значение $00ААЕЕЕЕ, 
определяющее бледно-желтый цвет (в свойство Со1ог можно вводить значения 
в виде десятичных или шестнадцатеричных чисел). Получить шестнадцатеричное 
значение того или иного цвета вам поможет несложная программа (Спар_14\Со1огОеР\ 
Со[огОе+.арг), окно которой показано на рис. 14.2. С ее помощью можно выбрать 
цвет в окне компонента ТСо1огр1а1о3 и получить его шестнадцатеричное пред- 
ставление или ввести шестнадцатеричное число и увидеть соответствующий ему 
цвет. 
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_ Выборцеете _ 


0бОРЕЕЕ о 


Рис. 14.2. Окно программы для определения цветовых констант 


Порядок разработки программы описан ниже. 


1. Поместите на пустую форму две панели — они будут наглядно демонстриро- 
вать цвет, выбранный с помощью компонента ТСо1огр1а1о9 (левая панель), 
и цвет, заданный с помощью шестнадцатеричной константы (правая панель). 
Установите в свойство А11дп панели Рапе11 значение а1ТеЕ\, а в такое же 
свойство Рапе12 — значение а1С11еп+. 


2. Налевую панель поместите кнопку ТВоЕ оп и диалоговое окно ТСо1огр1а1о9 
(этот компонент находится на вкладке 01а109$ палитры компонентов). В каче- 
стве значения свойства Сар%1оп кнопки введите строку Выбор цвета. 


3. Направую панель поместите поле ТЕа1 ® и кнопку ТВае бог. В свойство Сваг- 
Сазе поля введите значение есОррегСазе — это заставит компонент преобра- 
зовывать вводимые в нем буквы в прописные и упростит их дальнейший ана- 
лиз. В свойство Сар&1оп кнопки введите строку Ввод константы. 


Сама программа выбора нестандартных цветов представлена в листинге 14.1. 
Листинг 14.1. Выбор нестандартных цветов! 


111% 00181; 
1п6егЁЕасе 


изез 
И1паом$, Меззадез, $5у$0+115$, С]1а$$е$, Сгарй1с5$, СопЕго]1$, 
Гогтз, 01а1о0о95$, 5%4СЕхг1$, ЕхеС6еи1$5; 


Суре 
ТРогп1] = ©С1аз$ (ТЕГогп) 
Рапе11: ТРапе]; 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу НЁр:// 
мммм/.р\ег.сот/домип{оад — Примеч. ред. 
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Рапе12: ТРапе]1; 

Со10г)1а1091: ТСо1огр1а1о9; 

Ваееоп1: ТВоаебоп; 

Воебоп2: ТВоаебоп; 

Еа1е1: ТЕЯзе; 

ргосеацге Ва®боп1С11сКк (бЗепаег: ТОБ)ес®); 
ргосеацге Воае®Коп2С11сКк(Зепаег: ТОБ)ес®); 


рглуа*е 
{ РглуаЕе аес]агаЕтоп$ } 
руЬ11с 
{ Рчр]1с аес]агаЕтоп$ } 
епа; 
уаг 


Гоги1: ТЁРоги1; 
1пр1етмепфа®1оп 
{$В *.РЕМ]} 


ргосеааге ТГогп1.Воеоп1С11сК (бепаег: ТОБ)ес®); 
Бед1п 
{ Вызываем метод ЕхесиЕе диалогового окна Со]огО1а1о091 
и контролируем результат: если метод возвращает Тгие, 
пользователь выбрал нужный цвет; } 

1Е Со1ог0О1а1о91.Ехесиа$е Ефеп 


Беда п 
// Закрашиваем левую панель выбранным цветом: 
Рапе11.Со]1ог := Со1огО1а1о091.Со1ог; 


{ Помещаем в поле Еа1Е1 и в заголовок левой панели 
шестнадцатеричное представление цвета: } | 


Еа1(1.ТехЕе := ТоЕТоНех (Со1ог01а1о0о91.Со1ог,8); 
Рапе11.СарЕтоп := Еа1%1.Техё 
епа 
епа; 


{ Следующая функция преобразует шестнадцатеричное 
представление $ целого числа в тип Тпёедехг } 
ЕапсЕ1оп НехбегТоТпе ($: $%г1п9): Тпеедег; 
ЕипсЕ1оп НО191$а1 (С: Сраг): Вуее; 

// Преобразует шестнадцатеричную цифру С в число 


Бед1п 
сазе С оЕ 
'0'..'9': Везо1Е := ока(С)-ога('0'); 
'А'..'ЕР!;: Веза1е := ога (С) -ога('А') +10; 


е1 зе 
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{ Если очередной символ не относится к допустимым для 
представления шестнадцатеричной цифры, возбуждаем 
исключительную ситуацию, которая блокирует преобразование 
и сообщает пользователю об ошибке: } 

газзе ЕСопуегЕЕггог.Сгеа*е 

('Недопустимое представление шестнадцатеричного числа'); 


епа; // НО191Еа1 


К: Трбседег; 
Бедзп // Нех5ЕгТоТпЕ 
Везо16 := 0; 
// Удаляем возможный символ-указатель шестнадцатеричного 
// числа: 
1Е 5[1]='$5' Бер ае1ефе($,1,1); 
// Цикл преобразования строки: 
Бог К := 1 во Гепоаер (5) ао 
Везц1е := Кезо1%*16+НО191%а1 ($[К]); 
еп; // Нех5ЕгТоТпЕ 


ргоседаге ТГогп1.ВаЕ6оп2С11сК (5епаег: ТОБ)ес®); 


Бед1п 
Рапе12.Со1ог := Нех5ЕхуТоТпе (Еа11.ТехЕ); 
Рапе12.СарЕ1оп := ЕЯ1е1.Техе 

епа; 

епа. 


В обработчике события щелчка на кнопке правой панели нужно преобразовать 
введенное в поле шестнадцатеричное представление цветовой константы в целое 
число и поместить его в свойство СарЕ1оп правой панели. Поскольку нет стан- 
дартной функции преобразования символьного представления шестнадцатерич- 
ной константы в число, обработчик использует вспомогательную функцию Нех- 
ЗЕЕТОТПЕ. 

Для упрощения разработки интерфейсных элементов, выдержанных в едином 
стиле, в состав видимых компонентов включены свойства, связывающие ту или 
иную особенность оформления или поведения компонента с соответствующей осо- 
бенностью родителя. Таких свойств четыре: 


ргорегеу РагепеСо1ог: Воо1еап; 
ргорег®Еу РагепеС®е134: Воо1еап; 
ргорег®еу РагепЕГопе: Воо]1еап; 
ргорегЕу РагепЕН1пе: Воо1еап; 


Если, например, цвет компонента не задан явно свойством Со1ог и его свой- 
ство РагепЕСо1ох имеет значение Тгое, компонент будет использовать при про- 
рисовке цвет своего родителя, а изменение цвета родителя приведет к немедлен- 
ному изменению цвета дочернего компонента. Явная установка значений свойств 
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Со1ог, СЕ1ЗР, Копе или Н1п& приводит к автоматической установке значений 
Ра1е в соответствующие свойства Рагеп% ХХХ. 

В версиях Ое|рЫ 4-7 в класс ТСопего1 введено свойство, определяющее спо- 
соб фиксирования дочернего компонента относительно границ контейнера, в ко- 
тором он размещен: 


ргорегЕу Апспог5: ТАпсрог$; ” 
Суре ТАпспог$ = зеЕ оЕ ТАпсрогК1па; 
Суре ТАпсрогК1па = (аКТор, аКкКцеЕе, аКкк1аНе, аКкВоефом); 


По умолчанию это свойство имеет значение [аКТор, аКтеЕ\Х], что означает 
фиксацию компонента относительно левого верхнего угла контейнера. В резуль- 
тате возможные изменения размеров контейнера никак не скажутся на изменении 
положения и/или размеров компонента. Если установить значение [акВ1апе, 
акВое от], правая и нижняя кромки компонента всегда будут располагаться на 
одном И ТОМ Же расстоянии от соответствующих кромок контейнера. Так как поло- 
жение левого верхнего угла компонента при этом не фиксируется, он будет «пла- 
вать» внутри контейнера, всегда располагаясь на одном и том же расстоянии от его 
правой и нижней кромок. Однако если установлено значение [аКТор, аКЪеЕф, 
акв1апе, аКкВоеком], левый верхний угол фиксируется, и компонент будет 
пытаться отслеживать расстояние до правого нижнего угла контейнера за счет из- 
менения своих размеров. Поместите на пустую форму поле ТЕЯЗ1& и поэкспери- 
ментируйте с его свойством Апсрогз, каждый раз изменяя мышью размеры фор- 
мы (не обязательно запускать программу — свойство Апсногз работает и на этапе 
конструирования). 

В Оер|! 4-7 в класс ТСопЕго1 введено свойство Сопз&га1пез: 


ргорегеу Сопзега1пе5$: Т512еСопзегалпез$; 


Это свойство используется для ограничения максимальных и минимальных 
размеров элементов управления по высоте и ширине. Объект класса Т512еСоп- 
3 га1пфз имеет четыре свойства: МахНезап&, МахИ1 ав, М1пНезапе, М1пи1аей 
типа 0..МахтпЕ, которые и определяют предельные значения указанных пара- 
метров. По умолчанию эти свойства имеют нулевые значения, что эквивалентно 
снятию каких бы то ни было ограничений. 

Свойство Азфо512е также впервые введено в Оерё! 4: 


ргорегеу Апсоб12е: Воо1еап; 


Это свойство связано в основном с интерфейсом «причаливания» (Огав&Поск) 
и разрешает (Тгое) или запрещает (Еа1зе) оконному компоненту автоматически 
изменять свои размеры в зависимости от количества и размеров содержащихся 
в нем неоконных компонентов. 


Указатели мыши 


При перемещении указателя мыши по экрану он может менять свою форму в зави- 
симости от значения свойства Сигзог компонента, на котором он расположен в дан- 
ный момент: 


ргорех®еу Сигзог: ТСагзог; 
фуре ТСогзог = -32768..+32767; 
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Рис. 14.3. Стандартные указатели Оеры 


В ОерЫ предопределены стандартные указатели, показанные на рис. 14.3. 

В практике программирования часто возникает необходимость изменения фор- 
мы указателя для всех окон программы. Например, при выполнении достаточно 
длительного по времени процесса указатель мыши часто принимает вид песочных 
часов (сгНоогС1азз), а после завершения процесса — восстанавливает свой пер- 
воначальный вид. Чтобы изменить форму указателя для всех окон программы од- 
новременно, используется свойство Сигзог глобального объекта 5$сгееп, кото- 
рый автоматически создается для каждой программы: 


Зсгееп.Сагзог := сЕхНочгС1аз$$; 

... // Делаем длительную работу 

Зсгееп.Сиогзог ;= сг)еёгал1&; // Восстанавливаем начальную 
// форму указателя 


Программист может создать и использовать нестандартный указатель. При этом 
он должен придерживаться следующей последовательности действий. 


1. С помощью редактора изображений ОерЫ создайте изображение указателя 
и разместите это изображение в дополнительном ресурсном файле программы. 


2. В работающей программе сначала загрузите указатель из ресурсного файла с По- 
МОЩЬЮ функции ТоааСаизоги зарегистрируйте его в списке Сигзогз объек- 
Та $сгееп., 


3. Только после выполнения предыдущих действий можно назначать нестандар- 
ТНЫЙ указатель свойствам Сагзог компонентов или экрана. 


Рассмотрим описанный выше процесс на следующем примере, в котором со- 
здается и используется указатель в виде окружности. 


1. Выберите команду Тоо[ ›» 1таде ЕЯ ог, чтобы загрузить редактор изображений 
Рерри. 


2. В окне редактора сначала выберите команду Ее › № м > Везоитсе Ре, а затем — 
команду Кезоигсе » Мем/ » Сигзог. Окно редактора к этому моменту должно иметь 
вид, показанный на рис. 14.4. 


3. С помощью команды Кезоигсе » Кепате обязательно измените стандартное имя 
ресурса Сагзог1 на любое другое, набрав его прописными буквами, например, 
МУСОВ5ОВ. Вы можете даже оставить прежнее имя, но набрать его прописными 
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Рис. 14.4. Окно редактора изображений с заготовкой для указателя мыши 


буквами нужно обязательно, иначе функция ГоаЯСигзог не сможет извлечь 
указатель из ресурсного файла. 


4. Дважды щелкните на ресурсе в списке ресурсов или выберите команду Кезош'- 
се › ЕЧИ — на экране появится окно редактора с двумя пустыми полями, обве- 
денными красными рамками. Левое поле предназначено для представления 
создаваемого указателя в увеличенном масштабе, правое показывает его в на- 
туральную величину. 


5. Выберите инструмент в форме окружности в левой части окна редактора, на- 
жмите и удерживайте клавишу $МЁЕ, чтобы получилась правильная окружность, 
подведите указатель мыши в виде крестика несколько правее и ниже верхнего 
левого угла левого поля редактора, нажмите левую кнопку мыши и, удерживая 
кнопку мыши и клавишу 5ТЁЯ, переместите указатель несколько левее и выше 
правого нижнего угла поля, после чего отпустите кнопку и клавищу. В резуль- 
тате должно получиться нечто похожее на рис. 14.5. 


6. Щелкните мышью на заголовке Уп Це41.ге$ окна со списком ресурсов (или за- 
кройте окно с изображениями указателя кнопкой закрытия в его правом верх- 
нем углу) и с помощью команды Ее > 5ауе сохраните ресурсный файл под име- 
нем Согзох, после чего закройте редактор изображений. 


7. Создайте новый проект с пустой формой и напишите показанный ниже обра- 
ботчик события ОпСгеаее для формы Гогм1: 
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Рис. 14.5. Окно редактора с готовым изображением указателя 


{$В *.ОЕМ} 
{$В Сигзог.гез$} 


ргосе4иге ТГогп1.ЕГогтСгеаке (бепаег: ТОБ]ес®); 
Беда п 

// Регистрируем указатель: 

осгееп .Сог$зог$ [1] := 

ТоааСагзог (НТпз$апсе, 'МУСОВ$ОВ'); 

// Используем его для клиентской части формы: 

Сигзог := 1 
епа; 


Не забудьте указать комментарий {$В Сигзог. гез}, чтобы компоновщик 
присоединил ресурсный файл Сигзог.ге$ к ресурсному файлу программы. После 
запуска программы вы увидите в клиентской части пустой формы нестандартный 
указатель. 

Замечу, что при регистрации указателя в списке $сгееп .Сагзог$ индекс мо- 
жет быть любым числом в диапазоне от —32 768 до +32 767. Однако следует учи- 
тывать, что индексы в диапазоне от —22 до —1 включительно заняты стандартными 
указателями (см. рис. 14.3), причем индексы —5 и -1 соответствуют указателю 
сгМопе, а индекс 0 всегда связан со стандартным указателем \Мт4о\з (Г) и не 
может переопределяться. 
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Реакция на события мыши и клавиатуры 


События мыши 


Для большинства видимых компонентов определен набор обработчиков событий, 
связанных с мышью: 
суре 
ТМоизеВие коп = (тофеЕе, поВ1а5е, пЬМ1аа1е); 
Т5$11Еёбфафе = зеё оЁ ($5$5511ЕЕ, $$А1%Е, $$5Сехг1, з$ГеЕЕ, 
55В1айе, $$М1Аа1е, $$0оцЬ1е); 
ТМоцзеЕуепЕ = ргосеаагке (бепдег: ТОБ)ес®; 
Виебоп: ТМочзеВвВа®®оп; 
501Е6: Т5р1ЕЕбфаее; 
Х, У: Тпбедег) оЕ оБзесЕ; 
ТМоцзеМоуеЕуепЕ = ргосеааге (беп4ег: ТОБ}есе; 
$11Е6: ТЗр1ЕЕббаее; 
Х, У: Тпбедег) оЕЁ оЪЗес®; 
ТМ№ос1ЕуЕуепЕ = ргосеаиге (бепЧег: ТОБ)ес®) оЕ оБзес*; 
ргоре’гЕу ОпМоцзеромп: ТМочзеЕхуепе; 
ргорегеу ОпМоизе0р: ТМоцзеЕуепе; 
ргорегЕу ОпМочзеМоуе: ТМочзеМоуеЕуепе; 
ргорегЕу ОпС11сКкК: ТМ№ос1ЕуЕуепе; 
ргорегеу Опрр1С11сКк: ТМоЕ1ЕуЕуепе; 


Тип ТМочзеВие оп определяет одну из трех кнопок мыши: левую (поЪеЕе), 
правую (по К1аеП) и среднюю (мЬМааа1е). 

Тип Т$В1ЕЕ5хафе содержит признаки, уточняющие обстоятельства возник- 
новения события: 


"" $$55101Е%Е — нажата клавиша $5МЁ:; 


" 35А]6 — нажата клавиша АЦ; 


"" з3Сег1 — нажата клавиша Си; 
2 <5ЬеЕфЕ — нажата левая кнопка мыши; 


" ъз5В1аре — нажата правая кнопка мыши; 


" з5М1аа]1е — нажата средняя кнопка мыши; 
" $5ройр1е — нажаты одновременно левая и правая кнопки мыши. 


Обработчики событий ОпМоцзеро\мт и ОпМоцзе0р определяют реакцию про- 
граммы на соответственно нажатие и отпускание кнопки мыши, ОпМочзеМоуе — 
на перемещение указателя мыши на компоненте, ОпС11сКк и Оп0Ь1С11скК — соот- 
ветственно на щелчок и двойной щелчок левой кнопкой мыши. Во всех обработчи- 
ках параметр 5епает содержит ссылку на компонент, на котором находился ука- 
затель мыши в момент наступления события, а Х и У определяют координаты точки 
чувствительности указателя мыши в этот момент в системе координат клиентской 
области родительского компонента. Замечу, что событие ОпСс11сК возникает по- 
сле события ОпМопзероигп, но перед событием ОпМочзе0р, асобытие Опроь1С11ск 
возникает после события ОпМочцзеур. 
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События клавиатуры 


События мыши возникают в любом потомке класса ТСоп+его1. В отличие от этого 
события клавиатуры возникают только в некоторых оконных компонентах (в по- 
томках класса ТИ1пСопЕго1). Обработка событий связана со следующими свой- 
ствами этих компонентов: 


Суре 
Т51ЕЕббасе = зее оЁ (5$55р1ЕЕ, $$А1%, $$Сег], зъГеЁф, 
55В1апе, $$М1Аа1е, $$0оцЬ1е); 
ТКеуЕуепе = ргосе4аге (бепаег: ТОБ]еск; 
уаг Кеу: Мога; 
511ЕЕ; Т561ЕЕбфсафе) оЁЕ оБзес®; 
ТКеуРгеззЕуепе = ргосеаиге (бепаег: ТОБ]ес\; 
уаг Кеу: Спаг) оЕЁ оБдес*; 
ргорегЕу ОпКеуромп: ТКеуЕхепф; 
ргорегеЕу ОпКеу0Ор: ТКеуЕхепе; 
ргорегеу ОпКеуРге$$: ТКеуРгеззЕхепе; 


Параметр $11 Е +, как и в обработчиках событий от мыши, содержит уточняю- 
щие признаки. Параметр Кеу в обработчиках ТКеуЕуеп* содержит виртуальный 
код клавиши, а в обработчике ТКеурРгеззЕхепе — АЗСП-символ. Обработчики 
ОпКеуро\мп и ОпКеу0р перехватывают нажатие большинства клавиш клавиату- 
ры, в то время как обработчик ОпКеуРгез$ — только нажатие алфавитно-цифро- 
вых клавиш. Получаемый им символ Кеу учитывает выбранный язык и нажатую 
клавишу $МИ. 

Виртуальные коды клавиш определены константами ук_ХХХ в файле 500ВСЕ\ 
КТА\МТМАМЛМО0\/5.РА$ каталога размещения Оер|:. Фактически виртуальный код — 
это просто уникальный числовой идентификатор клавиши. Для буквенно-цифро- 
вых клавиш 0-9 и А-2 виртуальный код совпадает с кодом, возвращаемым функ- 
цией ока ('Х') ‚гдех — соответствующий прописной символ: ога ('0'), ога ('М') 
ит. д. К сожалению, в зоне дополнительных числовых клавиш уникальность кода 
не обеспечивается для клавиши Ет(ег, которой присвоен код 13, как и аналогичной 
клавише в основной зоне, а также для правых и левых клавиш $, АЁ и СЕ. Кроме 
того, клавиши 0-9 и Де! в зоне дополнительной клавиатуры сопровождаются уни- 
кальным кодом только при активном переключателе МитоскК, в противном случае 
они повторяют коды соответствующих основных клавиш. Все остальные клавиши 
стандартной клавиатуры (за исключением клавиши Рип $сгееп, клавиш переме- 
щения курсора и клавиши ТаБ, нажатие на которые не передается в обработчики 
ТКеуЕуепе) имеют постоянно закрепленные за ними числовые коды, позволяю- 
щие легко установить факт нажатия или отпускания любой из них. 

Поскольку параметр Кеу в каждом обработчике определен как параметр-пере- 
менная, программист может изменить фактический код клавиши. Такая возмож- 
ность может оказаться полезной для фильтрации нажатия каких-либо клавиш. При 
этом изменение кода происходит в обработчике формы, а в оконный элемент с фо- 
кусом ввода будет поступать уже измененный код. Чтобы форма получила сооб- 
щение от клавиатуры до передачи его в элемент с фокусом ввода, следует помес- 
тить в следующее свойство формы значение Тгце: 


ргорегеу КеуРгеузем: Воо1еап; 
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Клавиатура в МЛтпЧо\м$ 


Следует заметить, что \Лш4о\/з значительно «строже» относится к использова- 
нию клавиатуры, чем М5-ОО5. Это может вызывать проблемы при переносе в среду 
РерЫ игровых приложений, а также приложений, созданных с помощью системы 
ЕохРго или СПррег. 

Если вы захотите сохранить устоявшиеся приемы использования клавиатуры 
в новой разработке, вам, возможно, придется перехватывать сообщения \/1140\5, 
так как только таким способом программа сможет опознать факт нажатия систем- 
ных клавиш А, ТаБ, $1 и т. п. Нажатие остальных клавиш можно анализировать 
путем перехвата сообщений от клавиатуры в обработчиках ОпКеуххх формы при 
значении Тгое ее свойства КеуРгеу1ем. 

Например, пусть сочетание клавиш АЁ+Х используется в существующей про- 
грамме для закрытия модального диалогового окна. Чтобы разработанное вами окно 
закрывалось по этой команде, напишите для него следующий обработчик события 
опКеуроимп: 


ргосеачге ТЕГоги2.ЕГогиКеу помп (бепаег: ТОБ)есе; маг Кеу: Мога; 
ЗВ1Ее: Т5Р1ЕЁЗфаке); 

Бед1п 
1Е (Кеу = ога('Х'!)) апа ($$5А1Е 1п 511Е®) ЕБеп С1озе 

епа; 


Во многих случаях можно использовать собственные клавиши быстрого вызо- 
ва \\М п 4о\у5. К сожалению, такими клавишами снабжаются лишь команды меню, 
но связанные с ними (командами) обработчики ОпС1 1ск выполняются даже в том 
случае, когда команда меню не видна (ее свойство \1 $161е имсет значение Га1 зе). 
Этим можно воспользоваться, чтобы вставить в главное меню окна невидимые 
команды, связав их с нужными клавишами. Пусть, например, кнопка Ва оп1 
должна «нажиматься» при нажатии клавиш (+5. Поместите на форму главное 
меню (если его еще нет) и создайте в нем пункт с произвольным именем, напри- 
мер, МуВи оп. В списке свойства 5погЕСие пункта меню выберите вариант СЕх1+5 
и установите значение ЕГа1 зе вего свойство У1$101е. Теперь можно связать об- 
работчик события ОпС1 1ск пункта меню непосредственно с событием Вок оп1- 
С11ск или написать такой обработчик: 


ргосеацге ТЕГогпт2.МуВоеопС11ск (бепаег: ТОБ]ес®); 
Бедлп 

Ви оп1С11сКкК (5е1Е) 
епа; 


И хотя пункт МуВае оп главного меню не виден, нажатие связанных с ним 
клавиш (+5 вызовет срабатывание нужного обработчика. В этом случае форма 
может не перехватывать клавиатурный ввод. 

Как уже отмечалось, обработчики ОпКеуххХх не реагируют на нажатие систем- 
ных клавиш \/114о\\, в том числе клавиш перемещения курсора. Происходит это 
из-за того, что оконная процедура программы по умолчанию осуществляет стан- 
дартную обработку соответствующих сообщений \/т4о\5. 
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ПРИМЕЧАНИЕ ВРарв! 5...7 введен специальный комиопеит ТАрр1 1саЕ1опЕуепкь, 
который существенно упрощает обработку любых сообщений \/т4о\'$ 
до того, как они поступят в оконную функцию активной формы. 


Для клавиш определены виртуальные коды, перечисленные в табл. 14.3. 


ПРИМЕЧАНИЕ В квадратных скобках указаны клавиши из зоны дополнительных циф- 
ровых клавиш. 


Таблица 14.3. Виртуальные коды клавиш 


кд [Значение [Клавиша о | 


к таь 


НИ 
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16 
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аБ 
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$С 
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Таблица 14.3 (продолжение) 


Код | Значение | Клавиша 
о 


Учтите, что константы ук_А-ук_2иук_0-ук_9 неопределены в файле 509КСЕ\ 
КТЕ\МТМАМИТМООМ.РА$ и, следовательно, в модуле М1паомз, поэтому для них ком- 
пилятор выдаст сообщение о неизвестном идентификаторе — в этом случае исполь- 
зуйте собственные определения констант или их числовые эквиваленты. Замечу 
также, что путем анализа параметра Ма .1Рагкам в обработчике Арр11са&1оп. 
ОпМеззасве можно отличить нажатие левых клавиш А, СЕТ, $ТА от нажатия одно- 
именных правых клавиш, а также нажатие клавиши Еп{ег на основной клавиатуре 
от нажатия клавиши Ещег на дополнительной клавиатуре. 


Фокус ввода 


Поскольку клавиатура одна, а элементов, могущих ее использовать, может быть 
много, необходимо каким-то способом выделять элемент, которому в данный мо- 
мент передается клавиатурный ввод. Это выделение достигается передачей эле- 
менту фокуса ввода с помощью его метода: 


ргосеачге ЗеЕГосиз; 
Компонент с фокусом ввода имеет значение Тгое в своем свойстве 
ргорегЕу ГосизеЯ: Воо1еап; 


Если элемент недоступен или невидим, его показанное ниже свойство имеет 
значение Га]1зе: 


ргорегеЕу СапГосиз: Воо1еап; 
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Фокус ввода передается элементу после щелчка на нем мышью или в порядке 
выбора его клавишей ТаБ. Чтобы элемент можно было выбирать с помощью этой 
клавиши, следует установить в следующее его свойство значение Тгие: 


ргорегеу Тарбеор: Воо1еап; 
Порядок выбора элемента определяется другим свойством: 
ргорегЕу ТабОгаег: Тпфедег; 


Пер следит за уникальностью и непрерывностью значений этого свойства 
у всех помещенных на форму доступных и видимых в данный момент компонен- 
тов. С помощью следующего метода можно получить список всех дочерних эле- 
ментов, выбираемых клавишей ТаБ: 


ргосеаиге СееТаБОгаег115% (11$: Т1156); 


Механизм действий 


В РерЫ! имеется специальный механизм действий, дающий удобное средство цен- 
трализованной реакции программы на те или иные действия пользователя. Для 
реализации действий на вкладке 5Зфапдага палитры компонентов помещен специ- 
альный компонент ТАс&1оп11$% (см. главу 15), а в класс ТСопропеп® введено 
Свойство АСЕ Оп: 


ргорег®у Асе1оп: ТВаз1сАсе1оп; 


Централизация необходима потому, что подавляющее большинство промыш- 
ленных программ для \/11490\$ содержат два или более интерфейсных элемента, 
реализующих одно и то же действие. Например, в среде Ое|рЬ! некоторые коман- 
ды главного меню дублируются соответствующими кнопками панели инструмен- 
тов (в принципе, любая команда меню Ое!рЬ! может иметь кнопочный эквивалент). 

Компонент ТАс& 10011 з& содержит список имен действий и связанных с ними 
имен подпрограмм, которые эти действия реализуют. Чтобы связать компонент с 
нужным действием, достаточно раскрыть список Асйоп (этот список содержит 
имена всех действий во всех компонентах ТАс& 10111538) и выбрать нужное на- 
звание. При этом обычно меняется графическое изображение и/или надпись на 
компоненте, а также связанная с ним оперативная подсказка (Н1п®). Свойство 
АСсЕ1оп используется только после создания и заполнения списка (списков) 
ТАсЕ101п11 56. | 

Учтите, что если для действия не определен обработчик ОпЕхесоике, все свя- 
занные с этим действием элементы управления на этапе прогона программы будут 
недоступными. 


Механизм перетаскивания 


Операционная система \/114о0\/$ широко использует специальный прием связы- 
вания программ с данными, который называется Огав& Огор (перетащи и отпусти). 
Такой прием в Проводнике У/Лшао\$ применяется для копирования или переме- 
щения файлов, а также для запуска обрабатывающей программы. Если, например, 
файл с расширением 00 перетащить на значок программы У/ога, автоматически 
запустится текстовый редактор \У№ог4 и в его окне появится текст из этого файла. 
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В Оеры! реализован собственный механизм Огав&Огор, позволяющий компо- 
нентам обмениваться данными путем перетаскивания их мышью. Этот механизм 
определяется двумя свойствами и тремя событиями, доступными каждому види- 
мому компоненту. 

Первое свойство: 


ТРгадчМоае = (аАтМапиа1, ЯАпАпкомта*е1с); 
ргорег®у РгадзМоае: ТргадМоае; 


Это свойство определяет, Как будет выполняться весь комплекс действий, свя- 
занных с Перетаскиванием: 


® атМапиа1 — вручную (то есть все необходимые для обслуживания механизма 
события генерируются программой); 


 атАикомак1с — автоматически (события инициируются свойствами и мето- 
дами компонентов). 


Во всех случаях программист должен написать обработчики этих событий (см. 
ниже). 
Второе свойство: 


ргорегЕу ПгачСигзог: ТСитг$ог; 


Это свойство определяет вид указателя мыши в момент, когда на компоненте 
оказываются перетаскиваемые данные. Если компонент готов принять данные, он 
устанавливает в это свойство значение сгргаа К, в противном случае — суМ№оргадч 
@. Установка этих свойств осуществляется автоматически, если выполняется ус- 
ловиИе.: 


РгачМоае = аАпАцбома®1с 


Следующее событие возникает, когда указатель мыши «с грузом» оказывается 
на компоненте. 


ТРргаазбаее = (а$ШгадчЕпфег, азОгадЪеауе, аз0гааМоуе); 
ТРгачОуетЕуепе = ргосеаиге (беп4ег, Зоигсе: ТОБ)есЕе; 

Х, У: Тпсеаег; офафе: 

ТРгадчзфкаее; 

уаг Ассере: Воо]1еап) оЕ оБЗесЕ; 
ргорегЕу ОпОгадОуег: ТОгадзОуегЕхепе; 


Параметры здесь следующие: 


"” Зепаег — компонент, который генерирует событие (обычно имеет значение 
5е1Е — сам компонент-получатель, хотя при программном управлении меха- 
низмом перетаскивания это может быть не так); 


.. оойгсе — компонент-отправитель «груза»; 


". Х, У — текущие координаты указателя мыши в пикселах клиентской области 
компонента; 

‚} осафе — состояние указателя: 

О азргказЕпеег — только что появился на компоненте; 

О азрхадЪеауе — только что покинул компонент или была отпущена кнопка 
МЫШИ; 
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[] а5ркадМоуе — перемещается на компоненте; 


Ассер* — вэтом параметре обработчик сообщает, готов ли компонент принять 
данные (Тгое — готов). 


Следующее событие означает, что пользователь «бросил» данные на компонент: 


ТргааргорЕуеп® = ргосеаиге (бепаег, боцгсе: ТОБ]есе; 
Хх, У: Тпседег) оЕ оБЗесе; 
ргорег®у ОпПгачргор: ТОгааргорЕхепте; 


Параметры обработчика аналогичны одноименным параметрам обработчика 
опргадОуек. 

Наконец, при завершении перетаскивания (вне зависимости от того, приняты 
данные или нет) возникает еще одно событие: 


ТЕпаргадЕуепе = ргосеааге (беп4ег, Тагдеф: ТоОБ)есе; 
Хх, У: Тпбедег) оЕЁ оБ]ес*; 
ргорекеу ОпЕпаргаа: ТЕпаргадЕхепте; 


Здесь бепаег — отправитель данных; Тагаее — получатель данных или МТЬ, 
если никто не принял «посылку»; Х, У — координаты мыши в момент отпускания 
левой кнопки. 

Чтобы проиллюстрировать использование механизма перетаскивания, загру- 
зите учебную программу, установите во всех ее компонентах в свойство ОгааМоае 
значение дщАисома%1с и создайте для метки обработчик события ОпргадОуег, 
представленный в листинге 14.2 (проскт СВар_14\0гад&Огор\ОгадОгор.арг). 


Рис. 14.6. Метка БОшШрщ показывает имя перетаскиваемого компонента 
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Листинг 14.2. Обработчик события ОпОгадОуег 


ргосеацке ТЕпЕхапр1е.16О0оераеОгадОуег (Зеп4ехт, боцгсе: 
ТОр]есе; Х, У: Тпбедег; кафе: Трогадбкафе; мах Ассерфе: 
Воо1еап); 


Бед1п 

АссерЕ := Тхое; 

104$ рое.СарЕ1оп := (Зочгсе аз ТСотропеп®).Мате 
епа; 


Теперь перетаскивание любого компонента на метку 1600 руае заставит ее 
показать имя этого компонента (рис. 14.6). 

Для ручного (программного) управления механизмом перетаскивания исполь- 
зуются специальные методы, доступные любому потомку класса ТСопего]1 и пе- 
речисленные в табл. 14.4. 


Таблица 14.4. Методы управления механизмом Огад&Огор 


| Метод | Описание 


ргосеааге Вез1п0Огад Используется источником для инициирования 
(Тпмеа1аее: Воо1еап); процесса перетаскивания. Если Тимеа1а$е=Тгае, 
процесс начинается исмедленно, в противном 
случае — после смещения указателя мыши на 
5 пикселов в любом направлении 


ргосеаге Огаа0гор (5боигсе: | Вызывает обработчик события Опогаа)гор 
ТОБ]есе; Х, У: Тпбедег); 


ргоседиге Епаргаа (Огор: Вызывает обработчик события ОпЕпАОгаа 
Воо1еап); и впараметре Огор сообщает о том, были ли 
приняты данные 


Механизм причаливания 


В Ре|рЫ! введена поддержка специального механизма Ога &Поск (перетащи 
и причаль), посредством которого можно «причалить» мышью компонент в новое 
место. 

В механизме Ога &ОоскК участвуют два компонента: принимающий компонент 
(всегда потомок класса ТИ1пСопЕго1) и причаливаемый компонент (потомок 
класса ТСоп%го1). Принимающий компонент должен иметь значение Тгое в сво- 
ем свойстве Роск$1&е. Поскольку причаливание является разновидностью более 
общего механизма перетаскивания, в класс ТСопего1 введено дополнительное 
свойство, благодаря которому различаются способы использования мыши: 

ргорек®еу ПгазК1па: ТогаакК1па; 

фуре ТргадК1па = (акогаа, аАКкросКк); 

Значение этого свойства для перетаскивания равно АКОгад, а для причалива- 
ния — АКроск (и у причаливаемого, и у принимающего компонентов). 

Количество установленных на форме причаливаемых компонентов (то есть 
компонентов, для которых выполняются условия ОгадК1па=ЧКкроск и Роск$1%е= 
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=Га1 зе) определяется свойством РоскС11еп Е Сопп, а их список хранится в ин- 
дексированном свойстве РоскС11епЁ$. 

Для реализации причаливания в класс ТСопЕго1 введены некоторые свойства 
и события, которые перечислены ниже. 


ргорегеу Апфо517е: Воо1еап; 


Это свойство разрешает (Тгае) или запрещает (Га1зе) оконному компоненту 
менять свои размеры автоматически в зависимости от количества и размеров со- 
держащихся в нем дочерних компонентов. 


ргорегеу Е1оае1п90оск5$1$еС1аз$: ТМ1пСоп6его1С1а$$; 


Это свойство определяет класс окна, в которое будет погружен дочерний эле- 
мент вне границ оконного элемента. Неоконные компоненты могут не только при- 
чаливаться к оконным компонентам, но и покидать их. После «отчаливания» от 
компонента неоконные элементы автоматически оказываются в окне, тип которо- 
го содержит свойство Е1оа&1п9оск$1ЕеС1азз. По умолчанию это окно имеет 
уменьшенный по высоте заголовок и системную кнопку закрытия. 


ргорегеу ПоскОг1епеае1оп: ТроскОг1епфа®1оп; 
Суре ТроскОг1епфаЕ1оп = (аоМоОг1епЕ, ЯоНог12топфа1, 
Чо\Уег*1са1); 


В этом свойстве можно установить (или получить) ориентацию, которую будет 
иметь «причаливаемый» компонент в окне родителя: 


® аоМоОг1епе — сохраняется исходная ориентация перемещаемого компонен- 
та; 


® аоНог12опфа1 — компонент будет иметь горизонтальную ориентацию; 


3 ао\еге1са1 — компонент будет иметь вертикальную ориентацию. 
ргорегеу ГВПГоскИ1аАаев: Тпфедег; 


С помощью этого свойства можно получить ширину последнего перемещенно- 
го компонента, расположившегося горизонтально. 


ргорег®еу ТВПроскНезайе: Тпфедег; 


С помощью этого свойства можно получить высоту Последнего вертикально 
расположенного компонента. 


ргорекгеу ОпаоскНелайе: Тпееадег; 
ргорегеу Опаоски1аЕп: Тпфедег; 


Эти свойства определяют соответственно высоту И ширину последнего «отЧа- 
лившШего» компонента. 


ргорегеу Сопз(га1пе$;: Т512еСоп$&га1пе$; 


Это свойство с помощью объекта класса Т$1 геСопз&га1п{ $ накладывает огра- 
ничения на возможные размеры причаливаемого компонента (задает максималь- 
ные и минимальные величины для высоты и ширины). 

Следующие события аналогичны событиям Опргааргор и ОпргадОуег (см. 
выше): | 


ргорехгеу ОпроскКОгор: ТроскОгорЕуепс; 
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ргорегеу ОпроскОхег: ТроскКОуетЕхепе; 

Суре ТроскОуегЕуепЕ = ргосеаосге (бепаег: ТОБ)есе; 
Зоигсе: ТргазроскОр)есе; Х, У: Тпфедег; Зфафе: 
ТРгаа5сафе; учах Ассере: Воо1еап)} оЁ оБ]зесЕ; 


Следующее событие возникает перед событием Опргаа)гор: 
ргорегеу Опбее51ееТтЕо: Тбсеб51$6еТпЕоЕхуепе; 


Обработчик этого события должен сообщить объекту ТргачроскОБ3еск, ко- 
торый автоматически связывается с причаливаемым объектом, некоторую допол- 
нительную информацию (размеры, которые будет иметь этот объект, окажется ли 
он в «плавающем» окне ит. п.). 

Осталось еще одно событие: 


ргорег%у ОпОпроск: ТОпроскКЕуепе; 

Буре ТОпроскЕуепеЕ = ргкосеаоиге (бепаег: ТОБ)есе; С11епс: 
ТСопего1; уаг А11ом: Воо1еап) 

оЕ оБ]ес*; 


Это событие возникает при «отчаливании» неоконного компонента. Обработ- 
чик этого события должен поместить в свойство А11ом значение Тгое, если ком- 
понент С11еп{ может покинуть границы своего владельца 5епаек. 

Все указанные события обрабатываются автоматически, если оба компонента 
(клиент и сервер) содержат значение ЧтАцота®1с в своем свойстве РгадМочде. 

Чтобы познакомиться с технологией причаливания, поместите на пустую фор- 
му панель ТРапе1 и кнопку ТВаЕ®оп, установите для панели значение Тгое 
в свойство РосК$1 ‹е, установите для обоих компонентов значение акроск в свой- 
стве ОгачК1па и ЧтАиеота*1с в свойстве РгадМоде. После запуска программы 
перетащите кнопку на панель, а затем стащите ее обратно. 


Поддержка справочной службы 


Все видимые элементы имеют следующие свойства: 


ргорег®еу Н1пе: Зегапа; 
ргорекеу ЗПпомНалпе: Воо]еап; 


Эти свойства регулируют появление и содержание оперативной, или всплыва- 
ющей, подсказки — небольшого справочного окна возле элемента, на котором оста- 
навливается указатель мыши. Оперативные подсказки существенно облегчают 
начинающему пользователю знакомство с программным продуктом. Введение ме- 
ханизма оперативных подсказок во все видимые компоненты легко решает про- 
блему создания дружественного программного интерфейса в современном стиле. 

Чтобы компонент смог показать оперативную подсказку, нужно поместить тек- 
стовую строку вего свойство Н1п® и присвоить свойству 5ПомН1п® значение Ткие. 
Обычно оперативная подсказка содержит максимально лаконичный текст, чтобы 
не занимать слишком большую площадь экрана. Вы можете дополнить этот текст 
развернутым сообщением в любом компоненте, который способен отображать текст. 
Как правило, это строка состояния, занимающая нижнюю часть формы. Чтобы 
отобразить «длинное» сообщение, его нужно, прежде всего, поместить в свойство 
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Н1 п® сразу после «короткого» и отделить обе части символом вертикальной черты 
(1). Например: 


МуСопего]1.Нлпе := 'Подсказка|Развернутое сообщение'; 


Далее, необходимо в самом начале программы (обычно в обработчике события 
ОпСгеасе главной формы) указать программе метод, который будет обрабаты- 
вать событие ОпН1пе. Это событие возникает в момент появления оперативной 
подсказки и предназначено для отображения длинного сообщения, которое метод- 
обработчик может получить в свойстве Н1 пе глобального объекта Арр11са%&1оп. 
Например: 

фуре 

ТРоги]1 = С1а$$ (ТЕГогп) 
рпббасаз: ТРапе1; // Панель для отображения длинной части 
// свойства Н1пЕ 
риь11с 
// Объявляем метод-обработчик события ОпН1ПЁ: 
ргосеаиге ЗпомГопаН1п® (Зепаег: ТОБЗес®); 


ргосеаиге ТГогп1.5ПомопаН1п& (бепаег: ТОр)ес®); 
{ Этот обработчик помещает на панель рпъёаЁи$ длинную часть 
свойства НТПЕ } 
Бед1п 
рпббаби$.СарЕ1оп := Арр11саб1оп.Н1пЕ; 
епа; 


ргосеаиге ТГогп1.ЕГогтСгеаее (бЗепдег: ТОБдес®); 
// Метод определяет свойство ОпН1пЁ объекта-программы 
Бед1п 
Арр11сае1оп.ОпНапЕ := 5помЬопаН1пЕ; 
епа; 


Обратите внимание: обработчик события ОпН1пЕ должен быть методом клас- 
са, а не обычной процедурой. Вот почему в предыдущем примере в секцию руЪ11с 
класса ТГогт1 вставлено описание метода $помЬопаН1 пе. И еще одно замеча- 
ние. Обычно свойство Н1пЕ компонента устанавливается на этапе конструирова- 
ния формы. В этом случае вы можете создать только однострочную оперативную 
подсказку. Если же установить свойство Н1 пе на этапе прогона, вы сможете вста- 
вить в символьную строку разделители ЕОГМ и таким способом создать многостроч- 
ную оперативную подсказку: 


ЮБС1озе.Н1пЕ := 'Эта кнопка' #13 ' завершает 

работу'#13' программы '; 

Свойства глобального объекта-программы Арр11саЕ1оп, перечисленные 
в табл. 14.5, регулируют цвет и время появления оперативной подсказки. 
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Таблица 14.5. Свойства объекта АррИсайоп, регулирующие цвет и время появления 
оперативной подсказки 


Свойство иван 


ргорех®у Н1пеСо1ог: Определяет цвет фона окна оперативной подсказки 
ТСо1ог; 


ргорег®у Определяет длительность показа оперативной подсказки 

Н1пЕН1аеРацзе: в миллисекундах. По умолчанию равно 2500 

Тпседег; (2,5 секунды). Чтобы оперативная подсказка вообще не 
исчезала, установите значение -1 


ргорегЕу Н1пеРацзе: Определяет паузу в миллисекундах после остановки 
Тп$едег; указателя мыши и перед появлением оперативной 
подсказки. По умолчанию равно 500 


ргорег*у Определяет паузу перед появлением оперативной 

Н1пе5ВогЕРацзе: подсказки при переходе с одного компонента с заданным 

Тпеедег; свойством Н1 п на другой такой же. По умолчанию 
равно 50 


Все видимые компоненты содержат следующее свойство, с помощью которого 
компонент привязывается к контекстной справочной службе: 


ргорегеу Не1рСопеехе: Тпседег; 


В это свойство следует поместить идентификатор раздела файла помощи, ко- 
торый будет автоматически появляться в окне справки после нажатия клавиши Е 1. 
У многих видимых компонентов имеется свойство РорирМепи: 


ргорегеу РорорМепа: ТРорирМепац; 


Это свойство определяет контекстное меню, которое вызывается щелчком На 
компоненте правой КНОПКИ МЫШИ. 


Поддержка технологии СОМ 


Модель компонентных объектов (Сотропепё ОБесё Мо4е|, СОМ) представляет 
собой технологию обмена объектами между разными приложениями и даже меж- 
ду разными сетевыми машинами. В Пер! включены средства поддержки СОМ 
как в виде готовых компонентов (например, РСОМСоппесЕ1 оп), так и на уровне 
класса ТСотропепь, то есть относящиеся ко всем компонентам Ое]р1. 

Следующее свойство этого класса возвращает интерфейс СОМ-объекта, если 
данный компонент поддерживает технологию СОМ: 


ргорекеу Сопорзесе: Т@пКпомп; 


Если технология СОМ компонентом не поддерживается, обращение к свойству 
возбудит исключительную ситуацию ЕСотропеп%Еггог. 


ргорек®еу УСТСопоОБ]есе: Ро1пфекг; 


Это свойство предназначено для внешнего использования (то есть для экспор- 
та СОМ-объекта) и поставляет ссылку на СОМ-объект Оер!:. 
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Свойства разного назначения 


Узнать текущее состояние любого элемента управления на этапе прогона програм- 
мы можно с помощью следующего свойства класса ТСопего]: 


Буре ТСопЕго15$аее = зе оЁЕ (с51Ваебопр)омп, с$С11скеа, 
сзРа1е фе, сзВеаЧ1па5$аее, сзА11дптмепЕМееаеа, сзГосиз1па, 
с5Сгеа®1па, сзСизбомРа1пе, сз0езегоу1паНапа1е); 

ргорегЕу Сопего15$аее: ТСопЕго15{а ее; 


Элементы множества ТСопЕго15афе имеют следующий смысл: 


" сз .Ваббопромп — на элементе была нажата и еще не отпущена левая кнопка 
МЫШИ, 


”” с5С]1сКеа — то же, что сз ЪВа Е опроту, но устанавливается, если стиль ком- 
понента (см. ниже) содержит флаг с5С11сКкЕуепе $; означает, что нажатие кноп- 
ки мыши интерпретируется как щелчок; 


" с5Ра1ебфе — элемент или его родитель Получил сообщение ИМ_РАЪЕТТ- 
СНАМСЕБ; 


‚„’ сзВеаЯ1па5 кафе — элемент читает данные из потока; 


” СЗА]1апмепеМееаеа — элемент нуждается в перерисовке, поскольку изме- 
нилось его свойство А11аптепе; 


”" сзРосиз1па — программа пытается передать элементу фокус ввода; 


” сзСгеа®1па — элемент и/или его родительские и дочерние элементы нахо- 
дятся в стадии создания (флаг очищается после завершения процесса); 


.. сзСизсомРа1п® — элемент перерисовывается, 


" сзрезегоу1паНапа1е — разрушается \/ 14 о0\$-дескриптор элемента. 
Представленное ниже свойство содержит стилевые флаги элемента: 


фуре ТСопЕго156у1е = зе оЕЁ (сзАссере$Соп®го1$, 
с5СарфогеМоцзе, сзреззапТп®егас®1уе, сзЕгапеа, 
сзС11сКкКЕуеп® $, сзбеЕСаре1оп, сзОрааче, с$роцЪ1еС11скК$, 
с5Е1хеаиИ1Аеп, с$зЕ1хеНе1апе, сзМ№оОез1ап\У1$11е, 
сзКер11сабаю1е, сзМоЗЕаЕуепте$, с$015$р1ау0гааТмасве, 
с$КеЕ]1есбог, с$Асе1о0опС11епеЕ, с$зМепоЕуепе$); 

ргорегЕу СопЕго156у1е: ТСопЕго15$у1е; 


Стилевые флаги имеют следующий смысл: 


„ сзАссерЕ$Сопего1$ — элемент может стать получателем дочернего элемен- 
та в технологии причаливания, 


"” СсЗАС®10опС11епе — элемент может участвовать в централизованном действии; 


„” сзСар®агемоч$е ш— элемент будет получать все сообщения ОТ МЫШИ, Даже 
если ее указатель выйдет из его границ, 


”” с5С11СсКкЕуепе5$ — элемент может воспринимать щелчок мыши, 


> сз)без1апТпеегас®1уе — элемент воспринимает щелчок правой кнопкой 
мыши на этапе конструирования формы; 
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# с501зр1аургадТтаае — элемент способен менять свое изображение, когда 
на нем оказывается перетаскиваемый «груз»; 


”" с$роию1еС11сКкз — элемент может воспринимать двойной щелчок мыши; 


"” сзЕ1хеаНне1аре — элемент имеет фиксированную высоту; 


" сзЕатхеаи1аер — элемент имеет фиксированную ширину; 


= сзЕгамеа — элемент имеет объемную рамку; 


" сзМ№орез19п\У1$1Ю1е — элемент не виден на этапе конструирования формы; 


® сзМобеаЕуепез — элемент не реагирует на стандартные события мыши 
и клавиатуры; 


” сзОрааце — элемент закрашивает всю свою клиентскую область; 


# сзВеЕ1ескогк — элемент способен получать диалоговые сообщения \/1140%, 
а также сообщения, связанные с получением /потерей фокуса ввода и измене- 
нием размеров (используется для компонентов АсйуеХ); 


" сзВер11сасаБ1е — элемент способен отобразить свой образ методом Ра1пЕТо; 


"" сзбекСаре1оп — элемент будет изменять свой заголовок при изменении сво- 
его свойства Маме. 


Следующие два свойства класса ТИ1пСопего1 определяют режим работы и имя 
специального редактора [МЕ (при Мефоа Е4ког) для предварительной обра- 
ботки клавиатурного ввода в случае использования азиатских языков: 


Суре ТтмеМмоае = (1п015аб1е, 1тС1озе, 1тОреп, 1троп®Саге, 
1тбА]рпа, 1мА1рНа, 1иН1га, 1ибКафка, 1пКажа, 
1тСЬ1пезе, 1тбНапаце]1, 1тНапдаое1); 

ргорегеу ТпеМоае: ТТтеМоае; 


суре ТТпеМапе = $Зег1пда; 
ргорег®Еу ГиеМапте: ТТпеМапе; 


С помощью следующего свойства класса ТСопего1 программа может задать 
порядок чтения текста, расположение вертикальных полос прокрутки и измене- 
ние свойства А11аптепе так, чтобы учесть особенности письма справа налево (на- 
пример арабского): 


Суре ТВ101Моае = (ратеЕеТов1аре, БартапЕТофеЕ\к, 
рарк1апеТотеЕЕМоА11ап, БаВ1апЕТогеЕ&ВеаЯ1таОп1у); 
ргорегеу В101Моае: ТВ1р1Моае; 


Глава1 5 


Компоненты вкладки 
Зфапаага 


Описываемые в этой главе компоненты имеют самое общее назначение. Они ши- 
роко используются при создании любых окон. Многие из них представляют собой 
компонентную оболочку для популярных объектов интерфейса \ш4о\5. 


ТЕгате — фрейм и шаблоны компонентов 


Этот компонент определяет фрейм — контейнер для размещения других компо- 
нентов. В функциональном отношении компонент почти повторяет свойства фор- 
мы и отличается от нее в основном лишь тем, что его можно помещать в формы 
или в другие фреймы. Фактически, фрейм представляет собой удобное средство 
создания шаблонов — произвольных наборов компонентов, максимально приспо- 
собленных для нужд конкретного пользователя. Раз созданный шаблон может, 
подобно любому другому компоненту, размещаться в форме или в другом фрейме 
(допускается неограниченная вложенность фреймов). Замечу, что любые измене- 
ния в базовом фрейме (то есть во фрейме, сохраненном в палитре компонентов) 
тут же отображаются во всех использующих его проектах. 

Первоначально проекту ничего не известно о ранее созданных фреймах, поэто- 
му попытка поместить на пустую форму компонент-фрейм вызовет следующее 
сообщение (В проекте нет фреймов. Чтобы создать фрейм, выберите 
команду Ее ›» Мем » Ггате): 


М№о Егамез 1п рголесе. 
То сгеафе а Ёхгапе зе1есе ГЁГ1]1е | М№ем | Екапе. 


Это сообщение и описываемая ниже методика подключения шаблонов — един- 
ственное, что отличает механизм использования шаблонов от использования стан- 
дартных компонентов. 

Создадим простой фрейм, содержащий две кнопки — прок и пюСапсе1. Такой 
шаблон может пригодиться при разработке различных диалоговых окон. 


1. Создайте новый проект (Ее › №ем » АррИсаНоп). Если он всееще связан с учеб- 
ной формой, определенной в главе 4, предварительно вызовите окно редактора 
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хранилища объектов (Тоо($ » КерозКогу), в списке Раде$ щелкните на пункте огтз, 
а в списке ОБ]ес*5 — на пункте #тЕхат(ре, после чего снимите флажок Матт Гогт 
и закройте окно щелчком на кнопке ОК. 


2. Создайте новый фрейм, выбрав команду Ее » №ем ›» Егате. 


3. Поместите на фрейм две кнопки ТВ1%Велп (рис. 15.1, слева) и установите сле- 
дующие свойства для кнопок и фрейма: 


В1ЕВ$п1: ГеЕс=0, Тор=0, Клпа=ЬКоОК, Маме=ЬЪоКкК; 
В1ЕВЕп2: ТеЕк=90, Тор=0, Клпа=ЬКСапсе]1, Маме=ЬЬСапсе1; 
Ггаме1 : Незап&=25, МзаЕв=165, 

Апсрог$= [акК1аНе, акВое $ оц]. 


ПРИМЕЧАНИЕ Указанные значения свойств создадут минимальный по размерам фрейм 
с двумя именованными кнопками. Так как свойство Апспогз$ фрейма 
содержит значения [акКВ1ане, аКкВоккомз] , фрейм будет постоян- 
но отслеживать свое положение относительно правого нижнего угла 
контейнера, в котором он окажется. 


4. Щелкните на фрейме правой кнопкой мыши и выберите в контекстном меню 
команду Ада То Ра(е{е — на экране появится диалоговое окно с предложением 
сохранить модуль шаблона в файле на диске. 


5. Сохраните шаблон в файле с именем 019В&пзЁ в папке для ваших программ (см. 
файл боигсе\ Срар_15\ТЕгате\О!=ВеЕ.раз). На экране появится окно регист- 
рации шаблона в палитре компонентов, показанное на рис. 15.1, справа. В окне 
предлагается задать для нового компонента имя класса и выбрать вкладку па- 
литры компонентов. Обратите внимание на автоматически (по умолчанию) 
созданное имя заготовки — ТЕгаме1Татр1ахе. Так как это имя будет появ- 
ляться в оперативной подсказке Н1п& при наведении указателя мыши на ком- 
понент, следует дать ему более осмысленное имя, например, Тр1а1очВа{*опз. 
И еще одно замечание — в качестве вкладки палитры компонентов предлагает- 
ся вкладка Тетр(а*е$ (Шаблоны), которая отсутствует в начальном наборе вкла- 
док палитры. Если вы сохраните это имя, в палитре компонентов ОерЫ будет 
создана новая вкладка. 


6. Задайте имя класса шаблона и выберите вкладку его размещения, после чего 
щелкните на кнопке ОК — шаблон готов для использования. 


__ Сотропеги пате: 
| Раейе раде Тетрае 


| Раеце!сой: |]. }е.. 


Рис. 15.1. Вид фрейма на этапе конструирования (слева) и окно регистрации 
фрейма в палитре компонентов (справа) 
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'’7. После закрытия окна регистрации сам шаблон (см. рис. 15.1, слева) останется 
на экране. Подобно дополнительной форме его модуль становится составной 
частью проекта, поэтому размещение шаблона на форме не вызовет проблем. 


Щелкните на значке “| вкладки 5{апдаг4 палитры компонентов и затем — на 
пустом месте в форме Гогм1 — на экране появится окно с предложением выбрать 
нужный шаблон (рис. 15.2, сверху). Нажмите клавишу Епег, и шаблон появится 
в форме так, как если бы это был любой другой компонент из палитры компонен- 
тов (рис. 15.2, снизу). 


Рис. 15.2. Окно выбора доступного шаблона (сверху) и форма с размещенным на ней 
шаблоном (снизу) 


Следует отметить, что, если вы откроете новый проект и попытаетесь размес- 
тить на форме фрейм с вкладки 5{апдага, на экране вновь появится сообщение о том, 
что в проекте нет фреймов. Однако если вы присоедините модуль 219ВЕпзЕ 
к проекту, нажав клавиши 51И+Е11 или щелкнув на кнопке [&, установка шабло- 
на на любую форму проекта приведет к появлению окна, показанного на рис. 15.2, 
сверху. Если в новом проекте попробовать установить на пустую форму компо- 
нент-шаблон с вкладки Тетр(а{ез (или с любой другой вкладки, куда он был поме- 
щен на этапе регистрации), на экране появится окно с таким сообщением (Модуль 


296 — Глава 15. Компоненты вкладки З\апдага 


21аВЕп$Е необходим в вашем проекте, чтобы создать шаблон. Хоти- 
те его добавить?): 


Тре Ео11о0ом1п3 ип1е: 01а9ВЕп$Е, 15$ пееаеа 1п уосаг ргодесе о 
сгеаее +Бе фепр1афе. По уой м13$Н фо ааа 1? 


ТМаштМепи — главное меню формы 


Компонент класса ТМа1 пМепо определяет главное меню формы (программы). На 
форму можно поместить сколько угодно объектов этого класса, но отображаться 
в строке меню в верхней части формы будет только тот из них, который указан 
в свойстве Мепи формы (это обстоятельство можно использовать для программ- 
ного изменения меню формы). 

После установки компонента на форму необходимо создать пункты меню. Для 
этого следует либо дважды щелкнуть на компоненте левой кнопкой мыши, либо 
щелкнуть на нем правой кнопкой и выбрать в контекстном меню команду Мепи 
Оез1дпег, либо, наконец, щелкнуть в правой половине строки свойства ТЕетз вокне 
инспектора объектов. На рис. 15.3 показан вид окна конструктора меню, которое 
появится на экране после выполнения любого из перечисленных действий. 


| Файл Поиск Редактирование ?: 


Новый В 
Открыть 
Сохранить 


Соранить как... 


Выход 


Рис. 15.3. Окно конструктора меню 


Создание пунктов меню не вызывает проблем. Перейдите в окно инспектора 
объектов и введите название пункта меню в строке свойства СарЕ1оп, После чего 
нажмите клавишу Епег — пункт меню готов и можно переходить к следующему. 
Каждый пункт главного меню может раскрываться в подменю или являться ко- 
нечной командой. Для создания пунктов подменю щелкните мышью ниже пункта 
меню и введите имя первого пункта подменю. Продолжайте ввод, пока не будут 
созданы все пункты подменю, после чего щелкните на пустом прямоугольнике 
справа от первого пункта и введите имя следующего. Процесс гораздо сложнее 
описать, чем выполнить. 

Чтобы связать с выбором пункта меню нужное действие, следует определить 
обработчик его события ОпС11ск. 

В названиях пунктов можно указать символ амперсанда (&) перед тем симво- 
лом, который определит клавишу быстрого вызова (в терминологии \/Л1п4о\°) этого 
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пункта. Например, на рис. 15.3 показано, что меню Файл можно раскрыть нажати- 
ем сочетания клавиш АЦ+Ф. При создании меню этот пункт в строке свойства 
Сар®1оп инспектора объектов содержал текст &Файл. 

Если вы захотите вставить разделительную черту, отделяющую`пункты в под- 
меню, введите в качестве имени очередного пункта меню дефис (-). Так, напри- 
мер, создана черта, отделяющая команды Сохранить как и Выход в меню Файл (см. 
рис.15.3): свойство СарЕ1оп пятого по счету пункта меню Файл содержит един- 
ственный символ дефиса (-). 

Для создания многоуровневых меню, то есть таких, у которых пункты подменю 
раскрывают новые подменю, щелкните на пункте подменю и нажмите клавиши 
СЕ+->. Такого же эффекта можно добиться щелчком правой кнопки мыши на пун- 
кте подменю и выборе в контекстном меню команды Сгеае Зибтепи. На рис. 15.4 
показан пример многоуровневого меню. 


| Файл Поиск Редактирование ?! 


Новый ›. Новый текст 
Открыть Новый рисунок 
Сохранить 


Соранить как... 


Рис. 15.4. Многоуровневое меню 


РЕ | Ореп... 
| А Ореп Ргоес... СВ+Е11 


’... Кеореп ›: 


 бауе 4$... 
3 зауе Ргодесе 4$... 
} бауе АЙ ЭНАЧ+СЫ+5 


‚ С0$е 


Рис. 15.5. Подменю ЕШе среды Оерш 


В Реры имеется возможность связывать с пунктами меню небольшие изобра- 
жения. Эти изображения можно задать либо свойством В1+Мар, либо свойством 
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Ттадетпаех (этих свойств компонентов ТМепа нет в ранних версиях Ое!рЬ)). 
Изображение (если оно есть) появляется слева от пункта меню. Например, на 
рис. 15.5 показан фрагмент главного меню Оер! с раскрытым меню [Е е. Как видно, 
команды Ореп, Ореп Рго]ес+, 5а\е и т. д. снабжены небольшими значками. Введение 
значков в меню, с одной стороны, повышает его наглядность, а с другой — способ- 
ствует унификации значков в рамках механизма действий (см. раздел «Механизм 
действий» в главе 14). Если команда меню связана с каким-то действием своим 
СВОЙСТВОМ АсСЕ1 оп, а компонент ТАсЕ1оп11 3%, в котором это действие описано, 
в свою очередь, связан с хранилищем значков ТТмаде!.1 з&, индекс нужного знач- 
ка можно задать в свойстве Тмадетпаех. В этом случае значок, указанный в свой- 
стве В1 Мар (если он указан), игнорируется. 


ТРорирМепи — контекстное меню 


Компоненты класса ТРорорМепа используются для создания контекстных меню, 
появляющихся при щелчке на компоненте правой кнопкой мыши. В отличие от 
главного меню, контекстное меню может быть создано для любого оконного компо- 
нента. Чтобы связать щелчок правой кнопкой мыши на компоненте с раскрытием 
контекстного меню, в свойство РорирМепо компонента необходимо поместить имя 
компонента-меню. 

Контекстное меню создается с помощью конструктора меню, процесс создания 
и свойства контекстного меню ничем не отличаются от создания меню класса 
ТМа1пМепц. 


Табе! — метка 


Компоненты класса Табе] предназначены для размещения на форме различно- 
го рода текстовых надписей. Для этого служит центральное свойство компонен- 
та — СарЕ1оп. С помощью свойства Гопе можно разнообразить вид надписи. На- 
чиная с версии 2 с компонентом может быть связан оконный элемент управления, 
который выбирается при нажатии клавиш А{+Буква, где Буква — выделенная под- 
черкиванием буква в тексте метки. Такие клавиши в терминологии \/ш4о\ на- 
зываются клавишами быстрого вызова. 

С помощью логического свойства Ацко$12е можно разрешить компоненту ав- 
томатически изменять свои размеры так, чтобы полностью отобразить текст Сар- 
Е 1 оп с учетом установленного шрифта. Если свойство имеет значение Га] зе, вы- 
сота и ширина компонента определяются текущими значениями свойств Незаве 
и М1 аен. Если при этом ширина компонента больше минимально необходимой 
для отображения текста, свойством А11апмепе можно указать горизонтальное 
выравнивание текста: саьеЕФа$е1Еу — прижать текст влево; саСепеег — 
выровнять по центру; сав19пЕЛазЕ1Еу — прижать текст вправо. Свойство гауобе 
управляет положением текста по вертикали: &1Тор — прижать вверх; +1Сепеехк — 
выровнять по центру; +1ВоЕеом — прижать вниз. 

Другие свойства метки перечислены в табл. 15.1. 
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Таблица 15.1. Свойства компонента ТЁаБе! 


Свойство 


ргорег®у Содержит имя оконного компонента, который связан 
Госа$Сопего1: с меткой клавишами быстрого вызова 
ТИ1пСопЕ го]; 


ргорег®у Если содержит значение Тгоце, символ & в тексте метки 
ЗВомАссе1СВаг: предшествует символу клавиши быстрого вызова 
Воо]1еап; 


ргорег*у Определяет прозрачность метки: если содержит значение 

Тгапзрагепь: Ра] зе, пространство метки закрашивается собственным 

Воо1еап; цветом Со1 ог, в противном случае этого не происходит, 
и сквозь метку будут видны расположенные за ней 
компоненты (так, например, можно наложить текст на 


графику) 


ргорехгеу МогаИгар: | Разрешает/запрещает разрыв строки на границе слова. Для 

Воо1еап; вывода многострочных надписей задайте условия 
Ацго512е=Ра1 зе, МогаИгар=Тгиае и устаповите 
подходящие размеры метки 


ПРИМЕЧАНИЕ Метка Гафе1 может отображать длинную текстовую строку, указан- 
ную в свойстве Сар&1оп, в виде нескольких строк. Для этого устано- 
вите в свойство Ай о51 2е значение Га] зе, задайте достаточно боль- 
шие размеры метки и поместите в свойство ИогаЙгар значение Тгце. 
Для отображения действительно многострочного текста используйте 
компоненты ТМето и ТВ1спЕа1*. 


ТЕЧ — однострочное редактируемое 
текстовое поле 


Компонент класса ТЕЯ1* представляет собой однострочное редактируемое тек- 
стовое поле. С его помощью можно вводить и/или отображать достаточно длин- 
ные текстовые строки. 

Центральным свойством компонента является свойство Тех, которое содержит 
отображаемую компонентом строку. С помощью обработчика события ОпСвапае 
программа может контролировать вводимый пользователем текст и при необхо- 
димости фильтровать его, игнорируя недопустимые символы. В следующем при- 
мере компонент фильтрует все символы, которые не соответствуют правильному 
представлению вещественного числа: 


уаг 

О1АТехе: $%г1па; 
ргосеаиге ТГогп1.Еа1е1СВапде (Зепаег: ТОБ]ес®); 
Ьед1п 

1Е Еа1е1.Техе<>'' &Веп 

Еху 
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ЗЕгТоЕ1оаЕ (Еа1{1.Тех®); 


О1АТехЕ := Еа11.Техе 

ехсере 
// Ошибка преобразования: восстанавливаем прежний текст 
Еа161.Техе := О1аТехе; 


// и позиционируем текстовый курсор в конец текста: 
Еа11.5е15$акхЕ := ЦепаеВ (Еа161.Тех®); 
Еа161.5е1Техе := '' 

епа 


При воспроизведении примера подготовьте глобальную переменную О1АТехе 
типа 5&г1па, в которой запоминается последний правильно введенный текст. 
Лучше всего ее поместить в секцию рг1уа*е класса формы — тогда ее можно не 
обнулять в момент начала работы. 


СОВЕТ — Позиционировать текстовый курсор на любой символ строки можно с помощью 
свойств 5е15%каг® и 5е1Тех*: в первое нужно поместить порядковый помер 
символа от начала текста, после которого должен стоять курсор ввода, во вто- 
рое — пустую строку. 


Свойства компонента ТЕЯ1 * представлены в табл. 15.2. 


Таблица 15.2. Свойства компонента ТЕдй 


Свойство [Описание 


ргорекеу Аокобе1есь: | Определяет, будет ли выделяться весь текст в момент 
Воо]1еап; получения компонентом фокуса ввода 


Если содержит значение Ткие и Вогаег5*у1е= 
Ь$51па1е, высота компонента автоматически меняется 
при изменении свойства Гопё.512е 


ргорегеу Айшфо512е: 
Воо1еап; 


Содержит значение Тгое, если сделанные пользователем 
изменения в тексте Техе можно убрать методом Опао 


ргорег®еу Сап0Опао: 
Воо1еап; 


ТЕЯа1ЕСВагСазе = Определяет способ автоматического преобразования 


(есМогма1, регистра букв: есМогта1 — нет преобразования; 
есОррегСазе, есОррегСазе — все буквы прописные; есЪомегСазе — 
есЬомегСазе); все буквы строчные. Правильно работает с кириллицей 
ргорег®у СпагСазе: 

ТЕа1ЕСВагСаз$е; 


ргорег®у Если содержит значение Га] зе, выделение текста 
Н1Ааебе]1ес®1оп: сохраняется при потере компонентом фокуса ввода 
Воо1еап; 


ргорегЕу МахГепаеН:. Определяет максимальную длину текстовой строки. Если 
Тпфечег; имеет значение 0, длипа строки не ограничена 

ргорегеу Моа1Е1еа: Содержит значение Тгие, если текст был изменен 
Воо1еап; 

ргорег®Еу ОпСрапае: Определяет обработчик события ОпСпапсе, которое 
ТМ№ос1ЕуЕуепе; возникает после любого изменения текста 
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Свойство 


ргорегЕу ОЕМСопуеге: 
Воо1еап; 


Содержит значение Тгое, если необходимо 
перекодировать текст из кодировки М5-РО5 
в кодировку \/1140\$ и обратно 


Если символ СВаг определен, он заменяет собой любой 
символ текста при отображении в окне. Используется для 
ввода паролей 


ргорег®у 
РаззмогАСПаг: Сцаг; 


ргорегеу ВеаЧОп1у: Если содержит значение Тгое, текст не может изменяться 


Воо1еап; 


ргорег®еу 5е1епдаЕП: Содержит длину выделенной части текста 
Тпсеаег; 


ргорегеу 5е15%аге: Содержит номер первого символа выделенной части 
Трседег; текста 


ргорегеу 5е1Техе: Содержит выделенную часть текста 
ЗЕг1па; 

ргорегЕу Техе: Содержит весь текст 

ЗЕгапа; 


Замечу, что компонент ТЕа1, как и практически все остальные компоненты 
вкладки 5{апдаг4, является «надстройкой» над стандартным объектом УЛт4о\5. 
Поэтому, хотя его свойство Техе объявлено как длинная строка $&х1па, макси- 
мальная емкость этого свойства лимитируется \/1п4о\$ и составляет 32 766 байт, 
в чем можно убедиться с помощью несложной программы (СПар_15\ТЕЧ\Еа. арг)". 

Методы компонента ТЕЯ1 & перечислены в табл. 15.3. 


Таблица 15.3. Методы компонента ТЕдй 


[Метод ____ иван 


ргоседаге СоеТоС11рЬоага; Копирует выделенный текст в буфер 
обмена, после чего удаляет выделенный 
текст из компонента 


Еапсе1оп СеЕбе1ТехЕВчЕ (ВаЕЕег: 
РСПаг; ВоЕ512е: Тпеедег): 
Тпсеаег; 


Копирует не более ВиЕ$12е символов 
выделенного текста в буфер ВоЕЕ ег 


Заменяет выделенный текст содержимым 
буфера обмена, а если нет выделенного 
текста, копирует содержимое буфера 
обмена в позицию текстового курсора 


ргосеаиге РазкеЕгомС11рБоака; 


Выделяет весь текст 


ргосеаиге 5е1ескА11; 


' Речь идет о \У/Лт94о\з 98. Для \Мт4о\з 2000/ХР такого ограничения нет. 


продолжение =? 
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Таблица 15.3 (продолжение) 


ргоседиге Зеебе1ТехЕВаЕ Заменяет выделенный текст содержимым 
(ВыЕЕег: РСраг); буфера Ва ЕЕег, а если нет выделенного 
текста, копирует содержимое буфера 


ВаЕЕек в позицию текстового курсора 


рхоседиге 0пдо; Восстанавливает текст в том виде, 
в котором он был перед последним 
получением компопеитом фокуса ввода 


ТМето — многострочное 
редактируемое текстовое поле 


Компоненты класса ТМемо предназначены для ввода, редактирования и/или ото- 
бражения достаточно длинного многострочного текста. Текст хранится в свойстве 
11 пез класса Т5Ех1паз и, таким образом, представляет собой пронумерованный 
набор строк (нумерация начинается с нуля). С помощью свойств и методов этого 
класса (СоппЕ, Ада, Бе1ефе, С1еах ит. д. — см. раздел «Классы Тиз и Т5ишпе- 
[154 — наборы строк и объектов» в главе 13) можно динамически формировать со- 
держимое компонента. 

Свойства Вогдег$ + у1е, Сап0Опао, Н1Чебе1ес&1оп, МахЬепфай, Моа1 Е1е4, 
ОЕМСопуег*, ОпСПапсе, КеаЯОп1у, 5е1Тепаеп, 5е15$аг* и 5е1ТехеЕ анало- 
гичны соответствующим свойствам класса ТЕа1&. Свойство Мога\Мгар аналогич- 


но свойству ТТаре]1 .Могайгар. Другие специфические свойства представлены 
в табл. 15.4. 


Таблица 15.4. Свойства компонента ТМето 


Свойство Описание 


ргорегеЕу Саге% Роз: Содержит координаты мигающего текстового курсора 


ТРо1пе; относительно границ клиентской области компонента 
ргорегеу Г1пез: Содержит строки текста 

Т5Ег1па$; 

Т5сго115%у1е = (5$Мопе, | Определяет наличие в многострочном поле полос 


$5$Ног12оп6а1, 
55\У\Уеге1са1, $з3ВофП); 
ргорехеу 5сго1]1Вагз: 
Т5сго115$у]1е; 


прокрутки: ззМопе — нет полос; ззНог12опеа]1 — есть 
горизоитальпая полоса; ззУег*1са1 — есть 
вертикальная полоса; ззВофН — есть обе полосы 


Отображает содержимое свойства 11 пез в виде одной 
длинной стоки, в которой границы отдельных строк 
определяются символами ЕОТ (СВ+ЬЕ) 


ргорегеЕу Техе: 5З%Ег1пд; 


Если содержит значение Тгице, нажатие клавиши Еег 
вызывает переход на новую строку, в противном 
случае — обрабатывается системой. Для перехода на 
новую строку в этом случае следуст нажать клавиши 
С++ Е пет 


ргорегЕу МапеКебогпз: 
Воо1еап; 
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Свойство Описание 


ргорег®еу Мап+ТаЬз: Если содержит значение Тгче, пажатие клавиши ТаЬ 
Воо1еап; вызывает ввод в текст символа табуляции, в противном 
случае — обрабатывается системой. Для ввода символа 
табуляции в этом случае следует нажать клавиши 
С+г(+ТаБ 


Замечу, что, если свойство $сго11Вагз содержит значение ззНог12оп$а1 или 
$$Во%п, свойство МогЯИгар игнорируется, и длинные строки будут отсекаться 
границами компонента без переноса текста на следующую строку. 

Специфические методы класса аналогичны методам класса ТЕЗ. 

Поскольку компонент является потомком класса ТСопего1, он имеет также 
свойство Техк, которое содержит отображаемый компонентом текст в виде одной 
длинной строки. В этой цепочке символов границы строк многострочного текста 
выделяются символами с кодом #13#10 (признак ЕОТМ — конец строки). В отли- 
чие от этого свойство .1пез содержит пронумерованный список строк: первая стро- 
ка в этом списке имеет индекс 0, вторая — 1, а общее количество строк можно уз- 
нать с помощью метода 11пез.Соппе. Свойство Техе удобно использовать для 
поиска в тексте нужного фрагмента. Чтобы, например, найти и выделить в тексте 
фрагмент, содержащийся в компоненте еЯ 5 еагсВ типа ТЕа1*&, можно использо- 
вать такой обработчик события ОпС11ск кнопки 65% 5еатсн: 


ргосеаиге ТГоги1.БЕбеагсйС11сК (бепаег: ТОБ]есе); 
уагх 
К: Тпеедег; 
Бедап 
\1ЕП Мето1 ао 
Бед1п 
К := ро$ (еабеагсй.Техе,Тех®); 
1Е К>О ЕВеп 
Бед1п 
бе15$ахге := К-1; 
бе1Ьепаей := ЪепаЕП (е4беагсй.Техк) 
епа 


Если вы хотите, чтобы найденный в тексте фрагмент после установки свойств 
зе1 $$ аге и 5е]1Ъепдз®П сразу оказался выделенным, установите значение Га15е 
в свойство Н1Че5е1есе1оп. 

Как и в компоненте ТЕЗ1 &, максимальная длина свойства Тех* ограничивает- 
ся \/ 114 о\з и составляет 40 976 байт (проект СНар_15\ТМето\Мето.арг)'. 

Для загрузки в компонент текста из файла и для сохранения текста в файле 
удобно использовать методы гоаЯЕгомЕ11е и ЗауеТоЕ11е класса Т$Ег1пд$. 
Например, следующий обработчик события ОпСгеа& формы Гогм1 загружает 
‚ в компонент Мемо1 текст проектного файла программы: 


' Речь идет о У/Лт9о\з 98. Для \/!п4о\з 2000/ХР такого ограничения нет. 
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ргоседиге ТГогп1.ЕГогиСгеа*е (бепаег: ТОБ]ес®); 
Бед1п 
Мето1 .Г1пез.ГоааЕгомЕ1 Те ( 
СПапдеЕ11еЕх® (Арр11са®1оп.ЕхеМмаме, '.арг')) 
епа; 


ТВиНоп — кнопка 


Компоненты ТВае оп широко используются для управления программами. Свя- 
занный с кнопкой алгоритм управления реализуется в обработчике события Оп- 
С11 СК. 

Свойства компонента представлены в табл. 15.5. 


Таблица 15.5. Свойства компонента ТВиЦоп 


Свойство 


ргорегеу Сапсе1: Воо1еап; Если имеет значение Тгое, событие 
ОпС11скК кнопки возникает при 
нажатии клавиши Езс 


ргорегеу ПеЁац1*: Воо]1еап; Если имеет значение Тгое, событие 


ОпС11скК кнопки возникает при 
пажатии клавиши Епег 


Суре ТМода1Везо1е = Гом (Тпведег).. Определяет результат, с которым 
Н1ар (Тп$едег); ргорег®у Мо9а1Вези1%: было закрыто модальное окно (см. 
ТМоЯа1Ве511%; ниже пояснение) ` 


В терминологии \!114о0\$ модальными окнами называются такие специальные 
окна, которые, появившись на экране, блокируют работу пользователя с другими 
окнами вплоть до своего закрытия. Обычно с их помощью реализуется диалог, тре- 
бующий от пользователя принятия некоторого решения. Для этого в состав мо- 
дального окна включается несколько кнопок. Если у кнопки определено свойство 
Мода1Вези1 +, щелчок на ней приводит к закрытию модального окна и возвраще- 
нию в программу значения Мода1Вези1* как результата диалога с пользовате- 
лем. В Реры определены следующие стандартные значения Мода1Вези1*: 


" пеЕМопе — модальное окно не закрывается; 
 пгОК — была нажата кнопка ОК; 


" тгСапсе1 — была нажата кнопка Сапсе(; 


" шШгАБоге — была нажата кнопка АБог; 


"” шгВефску — была нажата кнопка Вену; 


” пгтТапоге — была нажата кнопка Тдпоге; 


Ш шгУез — была нажата кнопка Уе5; 


" пеМо — была нажата кнопка №; 


" пгА11 — была нажата кнопка АЦ. 


В отличие от большинства других видимых компонентов кнопка ТВае оп яв- 
ляется элементом операционной системы \/1140о\%5$ и поэтому не может изменять 
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свой цвет произвольным образом — кнопка меняет его вместе с изменением па- 
литры \/114о\5$. Кнопка всегда имеет системный цвет с1ВепЕасе и не имеет свой- 
ства Со] ог. Шрифт надписи на кнопке может менять свой стиль и размер, но ком- 
понент игнорирует изменение его цвета. 


ТСпескВох — флажок 


Компонент ТСВескКВох используется для того, чтобы пользователь мог указать 
свое решение типа да/нет или да/нет/не уверен (в“последнем случае флажок уста- 
навливается, но выглядит блеклым). Это решение отражается в свойстве 55 афе 
компонента, доступном как для чтения, так и для записи. В составе диалогового 
окна может быть несколько компонентов ТСпескКВох, причем состояние любого 
из них никак не зависит от состояния остальных. 

Типичное использование компонента: 


1Е СрескКВох1.СвескКеа &Беп 


е1 зе 

Или: 

сазе СБескКВох1.бЕабе оЁ 
сьСпескеа : ...; 
сЬопсрбескея: ...; 
сЬСсгауеа ие. 

еп; 


Свойства компонента ТСпескКВох представлены в табл. 15.6. 


Таблица 15.6. Свойства компонента ТСПескВох 


Свойство 


фуре ТГеЕСВ1анеЕ = Определяет положение текста: кафе ЕЕ Лаз 1Еу — 
(Саре Лау, с левой стороны компонента; саК1авЕЛа$Е1Еу — 
сак1апеЛа$1Еу); с правой стороны 

ргорег®еу А11дпмепе: 

ТЬеЕеВлане; 


ргорегЕу А11омСгауеч: Разрешает/запрещаст использование состояния 
Воо1еап; сьсгауеа (не уверен) 


реорех®еу Сарк1оп: $%&х1па; | Содержит связанный с компонентом текст 


ргорекЕу СнесКкеа: Воо1еап; | Содержит значение, соответствующее выбору 
пользователя. Состоянию сьСпескКеа соответствует 
значение Тгие. Состояния сБ0пстескеа 
и сосбгауеЧ отражаются как Га] 5е 


фуре ТСпескКВох5фаее = Содержит состояние компонента: съ/псвескеа — 
(соОпсресКеа, сьсСвескеа, не установлен; соСтескеа — установлен; 
сробгауеа); срсгауеа — не уверен 

ргорег®еу 5таее: 

ТСрескВох5$аее; 
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Свойство Со1ог компонента в \/1т4о\5 98 игнорируется. Свойства Незапе 
и М1 ар определяют размеры прямоугольника, в котором выводится связанный 
с флажком текст, и никак не влияют на размеры самого флажка. Текст указывает- 
ся в свойстве Сар&1оп. 


ТРаЧюВиНКоп — переключатель 


В отличие от компонента ТСрескВох компоненты ТВаЯ1оВаЕ оп представляют 
собой переключатели, предназначенные для выбора одного из нескольких взаимо- 
исключающих решений. На форму (точнее, в компонент-контейнер) помещается, 
по меньшей мере, два таких компонента. Они могут иметь только два состояния, 
определяемых свойством Срескеач. Если в одном компоненте это свойство прини- 
мает значение Тгце, во всех других компонентах, расположенных в том же кон- 
тейнере, свойства СВескеа принимают значения Га1 зе. 

Помимо свойства Спескеа компонент ТВаЯ1оВак оп имеет еще одно специ- 
фичное свойство — А11апмепе, аналогичное такому же свойству компонента 
ТСВескВох. Как и вслучае с флажком, программист может изменять размеры и цвет 
текста, указанного в свойстве СарЕ1оп, но не может изменять размеры и цвет са- 
мого переключателя (в \Мш4о\з 98). 


ТЕ$1Вох — список 


Компонент класса ТТ,1 Вох представляет собой стандартный для \/Лш4о\/з спи- 
сок, с помощью которого пользователь может выбрать один или несколько пунктов. 
В компоненте предусмотрена возможность программной прорисовки пунктов, по- 
этому список может содержать не только текстовые строки, но и произвольные 
изображения. 

Свойства компонента ТГ: $Вох перечислены в табл. 15.7. 


Таблица 15.7. Свойства компонента ТИ${Вох 


Свойство Описание 


ргорегеу АпшкоСопр1еее: Если содержит значение Тгце, выбранный элемент 
Воо]еап; в списке заменяется тем, начальные буквы которого 
вводит пользователь 


фуре Трогаегзку1е = Определяет стиль рамки: ю5Мопе — нет рамки; 
Ю$Мопе.. 5$51па1е; Ь$51п91е — рамка толщиной 1 пиксел 
ргорегеу Вогаег5фу]е: 

Трогаег$*у1е; 


ргорегЕу Сапуаз: ТСапуаз; | Канва для программной прорисовки пунктов списка 
ргорегеу Со1отпз: ГопаТпе; | Определяет количество колонок в списке 


ргорегеу Еххеп4еа$е1есе: . | Если Еххепаеа$е1ес&=Тгие и Мо1{15е1ес%= 
Воо1еап; Тгие, выбор пункта без одновременного нажатия 
клавиши СП или АЁ отменяет предыдущий выбор 


ргорег%еу Тпеедга1Не1ан®: Если Тпеедга1Не1ай& =Тгоеи 5%у1е<> 
Воо1еап; 150мпег)гамУаглаЪе, в списке отображается 
целое количество пунктов 
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Свойство Описание 


ргорегеу ГеепНе1апе: Определяет высоту элемента в пикселах для 
Тпфхедег; 56у1е=1рОмпегОгамЕ1хеа 


ргорегеу Тееп!паех: 
Тпбедег; 


Содержит индекс элемента, имеющего фокус ввода. 
Если Мо1+15е1есЕ=Ра] зе, совпадает с индексом 
выделенного пункта 


Содержит набор строк, показываемых в компоненте 


ргорегеу Мо1{15е1есе: Разрешает/отменяет возможность выбора 
Воо1еап; нескольких пунктов 


ргорегеу 5е1Соипе: Содержит количество выбранных пунктов 
Тпседег; 
ргорегеу 5е1есфеа[Х: Содержит признак выбора для элемента с индексом 
Тпфедег]: Воо1еап; Х (первый элемент имеет индекс 0) 
ргорег®у богееЯа: Воо1еап; Разрешает/отменяет сортировку строк 

в алфавитном порядке 


фуре Т115ЕВохбеу]1е = Определяет способ прорисовки элементов: 
(105$ апаага, 155 апдага — элементы рисует \Лп4о\5; 
12ОмпегргамЕР1хеа, 150мпегргамЕ1хеа — элементы рисует 
1РОипегргамУаг1аЪ]1е); программа, и они имеют одинаковую высоту, 
ргорег®еу 5%у1е: определяемую свойством ТЕемНе1ап*; 
ТЬ1$6Вох5®у]е; 150\мпегргамУаг1аЪ]1е — элементы рисует 
программа, и опи имеют разную высоту 


ргорегЕу ТаБи1аеп: Задает ширину табуляционного пробела 
Тпфседег; 

ргорегеу Тор!паех: Индекс первого видимого в окне пункта списка 
Тпеедег; 


Создание элементов (пунктов) списка компонента реализуется с помощью ме- 
тодов его свойства Теетмз — АЗа, Аррепа, Тпзеге или ГоааЕкхопЕ1 1е. 

Следует учесть, что свойство ТЕепТпаех в компонентах-списках ТЬ1зЕВох 
И ТСомроВох (см. ниже) содержит индекс элемента списка, имеющего фокус вво- 
да, и не меняется при изменении списка методами Ааа, Аррепа, 1пзеге. Следую- 
щий цикл, в котором каждому элементу списка Т&емз ставится в соответствие свой 
список Т5&Е:1п91158 (Теемз является специализированным потомком класса 
Т5&г1паз и, следовательно, может содержать не только строки, но и объекты), 
ошибочен: 


мр1]1е (...) а@о 


ргорегеу Теепз: Т5ег1паз; 


Бед1п 

Тфет$.Ааа('...'); 

Ор] есф$ [ТфемТпаех] := Т5&г1п911$6.Сгеаее; 
епа; 


Так как при вставке очередной строки значение Теемтпаех не меняется, объ- 
ект и связанный с ним список Т5$Е:1п911 3 будет создан только для одной стро- 
ки компонента. Исправленный вариант: 
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К := 0; 

мВ11е (...) ао 

Бед1п 
Тебемз.Ааа('...'); 
ОБ]ес+$[*] := Т5Ег1п911$е.Сгеа®е; 
1п0с (К); 


епа; 

Учтите также, что значение свойства ТеепшТпаех не может быть больше или 
равно значению Теетз .Сопапф, поэтому, если нет искомого элемента списка, та- 
кой цикл будет бесконечным: 


\й11е (ТеетТпаех < Теемз.СоопЕ) 
// Ошибка! ТеетТпаех не может 
.-. // быть равен ТЕет$.Соипё 
апа (Теемз [ТбепТпаех] <> ...) ао 
ТеепТпаех := Тбеп{Тпаех+1; 


Нужно исключить переход в цикле за границы списка: 


\611е (ТеепТпаех < Тбетз.СоипЕ-1) // Теперь все правильно 
апа (Теемз [Т6етТпаех] <> ...) ао 
ТеемТпаех := ТеемТпаех+1; 
1Е Теепз [ТЕепТпаех] <> 
// Однако приходится дополнительно 
ЕВеп ТеепТпаех := -1; // проверять последнюю строку 


Для компонента определены два события, связанные с программной прорисов- 
кой элементов списка: 
Суре 
ТОмипегргамизсасе = зее оЁ (оа5бе1есфеа, оЯ9СбгауеЯ, оар15заЪ1еа, 
оасрескеЯ, оаЕГосазеа); 
ТРгамТсешЕуеп® = ргосеаоге (Сопёго1: ТМ1пСопего1; 
Тпаех: Тпбедег; Весе: ТВесф; 
Ссафе: ТОмпегргам5факе) оЁ 
оБЗес*; 
ргорегЕу ОпПгамТеет: ТОгамТ$6етЕухепЕе; 
фуре | 
ТМеазигеТЕетЕуепе = рхгосеацге (СопЕго1: ТИМ1пСоп®го1; 
Тпседег; \ахг НезоаПе: Тпеедег) оЕ оБзесе; 
ргорегЕу ОпМеазигеТфем: ТМеазицгеТ®етЕуепе; 


Первое событие возникает в момент, когда программа должна нарисовать оче- 
редной элемент. Обработчик события получает ссылку на список Сопегко1, ин- 
декс изображаемого элемента Тпаех, границы элемента Весь и его состояние 
ЗЕафе. Прорисовка ведется с помощью свойства Сапуаз. 


ПРИМЕЧАНИЕ Поскольку программная прорисовка обычно связана с выводом на эк- 
ран рисунков, параметр Сопего1 задан как абстрактный объект клас- 
са ТМ1пСопегко1, и необходимое преобразование типов должно вы- 
полняться в обработчике. 
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В следующем примере в каждом элементе рисуется растровое изображение 
и текст. 


ргосе4иге ТГогп1.11$ЕВох1ОгамТеем (Соп&го1: ТИ1пСоп®го1; 
Тпаех: Тпфеедег; Вес®: ТВесе; эка%е: 
ТОмпегОгам $ а*е); 
уаг 
В1Емар: ТВ1&мар; // Временная переменная для растра 
ОЕЁЕзеф: Тпфкедег; // Расстояние от растра до текста 
Бед1п 
{ Свойство Сапуа$ имеет не только список Г[Г15$ЕВох, но и 
форма, на которую он помещен! Поэтому нужно явно указать 
канву. Преобразуем тип и указываем канву: } 
м1ЕВ СопЕго] аз ТЬ1$ЕВох, Сапуаз ао 
Бед1п 
Р111Вес® (Вес®); // Очищаем прямоугольник 
// Получаем из списка растр: 


В1емар := ТВ1емар (Тфет$ .ОБ]есе$ [Тпаех]); 
3Е В1емар <> п11 &Беп 
Бед1п 


// Вычерчиваем растр: 
ВгизПСору (Воцпа$ (Весе.ЦеЕе + 2, Весе.Тор, 
В1емар.Мтакр, 
В1$Стар.Незоап®), В1емар, 
Воцпа$5$ (0, 0, В1бмар.Млаев, 
В1Емар.Незоап®), с1Веа); 
// Вычисляем смещение текста (4 пиксела от растра): 


ОЕЕзеф := В1етар.мтаеИ + 6; 
епа 
е1зе ОЕЁзее := 2; // Если нет растра, 2 пиксела слева 


// Выводим текст: 
ТехЕОце (Весе.еЕЕ + ОЕЁЕзее, Весе.Тор, Тфемз [Тпаех]); 


епа; 
епа; 


Обратите внимание: обработчик не учитывает состояние элемента. Окантовка 
сфокусированного элемента пунктиром, установка нужного цвета кисти и шриф- 
та для выбранного элемента осуществляются автоматически. Если вас не устраи- 
вают стандартные цвета, следует проверять параметр 5+ а%е. Например, в преды- 
дущем примере обратите внимание на следующий оператор: 


Е111Вес® (Вес®); // Очищаем прямоугольник 


Если перед этим оператором вставить показанные ниже строки, выбранные 
элементы будут подсвечены желтым фоном, а текст в них будет выведен черным 
полужирным шрифтом: 


1Е оабе1есееа 1п Зфаее +Ъеп 
Бед1п 
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Вгазй.Со1ог := с1Уе11ом; 

Ропе.Со]1ог := с1В1аск; 

РКопе.356у1е := [Е$Во1а]; 
епа; 


Событие ОпМеазигеТ+ем возникает только при выполнении условия $+у1е= 
=1РОмпехргаиУаг1аю1е. Оно предшествует событию ОпргамТееп, и в ходе его 
обработки программа должна установить нужную высоту очередного элемента. 
Обработчику передается индекс элемента Тпаех и переменная Не1аь\, в которой 
он должен вернуть высоту элемента. Например: 


ргосеаиге ТГогп1.1156Вох1МеазагеТкем (Соп6го1: ТИ1пСопего1; 
Тпаех: Тпфедег; уаг Не1апе: ТпЕедег); 


уаг 
В16стар: ТВ16мар; 
Бед1п 
В1Емар := ТВ1тмар ( (Сопего1 аз 


ТЬ1$ЕВох).Теемз .ОБ]есе$ [Траех]); 
1Е В1етар <> п11 вВеп 


НезойеЕ := В1емар.Нелзайе 
е1зе 
НезапЕ := аЪ$ (Т1$%Вох1.Еопе.Нелань) 
епа; 


ТСотБоВох — комбинированный список 


Комбинированный, или раскрывающийся, список ТСопБоВох представляет собой 
комбинацию списка ТГ.1 з& Вох и текстового поля ТЕа1*, и поэтому большая часть 
его свойств и методов заимствованы у этих компонентов. Существуют пять моди- 
фикаций компонента, определяемые его свойством 5$ у1е: сз51пр1е, сзОкор- 
Ромп, сзОкгорромпТ1 53%, сзОмпег)гамЕ1хеа и сзОмпегОгам\Уаг1аю1е. В пер- 
вом случае список всегда закрыт. В модификации сз51тр1е для смены элемента 
списка, демонстрируемого в его окне, следует активизировать компонент и исполь- 
зовать клавиши смещения курсора { и Т. Программист не может раскрыть список, 
даже если пошлет ему сообщение зс_5вомОгорроми, предусмотренное в \т- 
4о\$ специально для раскрытия списка: это сообщение действительно только для 
остальных модификаций, в которых он раскрывается после щелчка на кнопке спра- 
ва от поля списка (рис. 15.6). В модификации сзОгорромп1.1 з& поле списка ра- 
ботает в режиме отображения выбранного элемента, и в это поле нельзя ввести 
новый элемент (в других модификациях это возможно). Модификации сзОмпег- 
ОгамЕг1 хе и сзОмпегОгамУаг1ар1е используются для программной прорисовки 
элементов списка. Требуемые для этого свойства и методы полностью совпадают со 
свойствами и методами компонента ТТ13%Вох аналогичного назначения. 

Фактически «своими» у компонента являются лишь свойства и события, свя- 
занные с раскрытием списка: 


ргорег®у ПгорромипСочпе: ТпЕеаек; 
ргорегеу Пгорре@аромп: Воо1еап; 
ргорегеу Опргорромп: ТМоЕ1ЕуЕуепе; 
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[Первый выбор . | | "Первый выбор _ "| 


сзбутре а , -_ сзОторОопе (закрыт) —_ 


Первый выбор _. 
Второй выбор 


| сзбторОоии (сткрыт]_ | — 


Рис. 15.6. Примеры комбинированных списков 


Свойство РгорромпСоип® определяет количество элементов списка, появле- 
ние которых еще не приводит к необходимости прокрутки списка. По умолчанию 
это свойство имеет значение 8: если в списке указано 9 и более элементов (то есть 
больше, чем содержит свойство РгорромпСочп®), при его раскрытии к окну бу- 
дет добавлена полоса прокрутки. Свойство РгорреРомт определяет, раскрыт ли 
в данный момент список. Это свойство доступно также для записи, что позволяет 
программно управлять состоянием списка. Событие Опргорромт происходит при 
изменении состояния списка. 

Наполнение списка ведется методами Ада, Аррепд, Тпзег* ит. п. его свойства 
Теемз класса Т5&г1 паз (см. раздел «Классы ТЗигле$ и Т$ги1е1156 — наборы строк 
и объектов» в главе 13). 


ТЗсгоЙВаг — полоса прокрутки 


С помощью компонента Т5сго11Ваг пользователи создают ползунки — стандарт- 
ные для \//п4о\5 элементы управления, похожие на полосы прокрутки окна. Обыч- 
но такие элементы управления используются для плавного изменения числовой 
величины (см. также раздел «ТТгаскВаг — ползунок» в главе 17). 

Свойства компонента Т5$сго11Ваг представлены в табл. 15.8. 


Таблица 15.8. Свойства компонента ТЭсго!Ваг 


Свойство 


Т5го]1]1ВагК1па = Определяет ориентацию компонента: 
(зЬНог12опба1, 5ЬНог12опфа1 — бегунок перемещается по 
зрУеге1са1); горизонтали; з5УегЕ1са1 — бегунок перемещается 
ргорегеу К1па: по вертикали 

Т5$сго1]ВагК1па; 


ргорегеу ГагаеСпапае: «Большой» сдвиг бегунка (при щелчке мышью рядом 
Т5сго11ВатТпс; с концевой кнопкой) 
ргорегеу Мах: Тпеедег; Максимальное значение диапазона изменения 
числовой величины 
ргорегеу М1п: Тпеедег; Минимальное значение диапазона изменения 
числовой величины 


продолжение „7 
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Таблица 15.8 (продолжение) 


Свойство [Описание 


ргорегеу Роз1%1оп: Текущее значение числовой величины 
Тпседег; 


ргорегеу 5па11СВапде: «Малый» сдвиг бегунка (при щелчке мышью на 
Т5сго1]ВагТпс; концевой кнопке) 


С помощью следующего метода можно сразу установить свойства Ро$1Е1оп, 
Мах и М] т: 


ргосеачге ЗесРагамз (АРо$161оп, АМах, АМ1п: Тпеедег); 
С компонентом связано два события: 


фуре Т5сго11ЕухепЕ = ргосеамге (бепаег: ТОБлесс; 
5сго11Соае: Т5сго11Соае; уаг $сго11Роз: Тпфеаег) оЕЁ 
ор]есе; 

ргорег®у Опбсго11: Т5сго11ЕуепЕ; 

ргорегЕу ОпСпапае: ТМоЕ1ЕуЕуепе; 


Первое возникает при любом изменении свойства Роз1 Е 1оп, второе — при из- 
менении параметров методом З$ееРагамз. 

Подобно компоненту ТВае&оп компонентом Т$сго11Ваг полностью управ- 
ляет \! 4 о\/з, поэтому у него нет свойства Со1ох. 


Т@гоирВох — панель группирования 


Этот компонент служит контейнером для размещения дочерних компонентов 
и представляет собой прямоугольную рамку и текст в разрыве рамки. Обычно с его 
помощью выделяется группа управляющих элементов, объединенных по функци- 
ональному назначению. Свойства и методы этого класса целиком унаследованы 
им от своих предков ТСазкомСопе го] и ТМ1пСопего] и описаны в главе 14. 


ТРаЧюСгоир — группа переключателей 


Компонент класса ТВаЯ1оСкопр представляет собой специальный контейнер, 
предназначенный для размещения переключателей класса ТВаа1оВа& оп. Каж- 
дый размещаемый в нем переключатель помещается в специальный список Т$емз 
и доступен по индексу, что упрощает обслуживание группы. 

Свойства компонента ТВа@1оСгопр перечислены в табл. 15.9. 


Таблица 15.9. Свойства компонента ТНа4юСгоир 


ргорегеу Со1оппз: | Определяет количество столбцов переключателей 
Трседег; 


Свойство 


ргорег®у Содержит индекс установленного переключателя 
ТеепТпаех: 


Трседег; 
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Свойство 


ргорегеу Г(етз: Содержит список строк с заголовками элементов. Добавленис/ 


Т56Ег1п95 ; удаление элемснтов достигается добавлением/удалением строк 
списка Теем$ 


После размещения компонента на форме он пуст. Чтобы создать в нем хотя бы 
один переключатель, следует раскрыть редактор списка Теемз и ввести хотя бы 
одну строку: строки Теемз используются как поясняющие надписи справа от пе- 
реключателей, а их количество определяет количество переключателей в группе. 
Замечу также, что после создания компонента его свойство ТЕешТпаех по умол- 
чанию имеет значение -1; это означает, что ни один переключатель в группе не 
установлен. Чтобы в момент появления компонента на экране какой-то переклю- 
чатель был уже установлен, необходимо на этапе конструирования с помощью окна 
инспектора объектов или программно (например, в обработчике ОпАс&1уафе фор- 
мы) установить в свойство ТеемТпаех номер соответствующего переключателя 
(нумерация начинается с 0). Это же свойство позволяет программе проанализиро- 
вать выбор пользователя, например: 


сазе КаЧ1оСгойр1.ТеетТпаех оЕЁ 


0: ...; // Установлен 1-й переключатель 

1; ...; /И/ Установлен 2-й переключатель 

е1зе 

... // Не установлен ни один из переключателей 
епа; 


ТРапе! — панель 


Компонент ТРапе1 представляет собой контейнер общего назначения. В отличие 
от компонента ТбгопрВох он не имеет заголовка и поэтому менее удобен для функ- 
ционального группирования элементов. С другой стороны, его свойство Сар 1оп 
отображается в виде текстовой строки и может использоваться для вывода сооб- 
щений. Компоненты этого класса часто помещаются на форму для того, чтобы рас- 
полагать вставленные в них дочерние компоненты вдоль одной из сторон окна не- 
зависимо от изменения размеров этого окна. | 
Компонент имеет развитые средства создания различных эффектов объемно- 
сти за счет использующихся в нем двух кромок — внешней и внутренней. 
Свойства компонента ТРапе1 представлены в табл. 15.10. 


Таблица 15.10. Свойства компонента ТРапе! 


Свойство Описание 


ТВогаег5©у1е = Ь5зМопе.. Определяет стиль рамки: Б$Мопе — нет рамки; 
$551па1е; ©$551п91е — компонеит по периметру обводится 
ргорегеу Вогаегб®у]1е: линией толщиной в | пиксел 


ТВогаег®у1е; 


ргорехеу Ео11Вера1пь: Разрешает/запрешает перерисовку панели и всех ее 
Воо1еап; дочерних элементов при изменении ес размеров 
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Для компонента объявлено событие ОпВез12те, в обработчике которого про- 
граммист может предусмотреть необходимую реакцию на изменение размеров ком- 
понента. 


ТАснНопМ$1т — список действий 


Этот компонент не имеет видимого изображения и служит для поддержки меха- 
низма действий (см. раздел «Механизм действий» в главе 14). 

Основная схема его использования такова. Вначале с помощью его редактора 
создается действие — объект класса ТАСЕ1оп. Редактор (рис. 15.7) вызывается 
двойным щелчком на компоненте или выбором команды АсЯоп [1$ ЕЧ\ог в его кон- 
текстном меню, которое раскрывается после щелчка на нем правой кнопкой мыши. 


Рис. 15.7. Редактор компонента ТАсйоп $1 


Этот объект имеет ряд свойств и событий, с помощью которых уточняется ха- 
рактер действия. Доступ к этим свойствам и событиям можно получить из окна 
инспектора объектов. С действием можно связать группу свойств (Саре 1оп, Спескеа, 
Епаю1еа, ЗпогеСие и т. д.), которые будут помещаться в одноименные свойства 
компонентов, реализующих общее действие. Если с компонентом связан контей- 
нер значков типа ТТмадеЪ1$& (свойство Тмааез — это свойство не действия, 
а свойство самого компонента ТАсЕ1оп1136), при реализации действия можно 
использовать один из хранящихся в нем значков (Тмадетпаех). Чтобы действие 
подкреплялось программным кодом, для него обязательно следует определить об- 
работчик события ОпЕхесисе. 

В свойства АсЕ1оп тех компонентов, активизация которых должна сопровож- 
даться одним и тем же действием (например, в свойства АсЕ1оп команды меню 
и кнопки панели инструментов), помещается имя только что определенного дей- 
ствия. В результате выбор команды в меню или щелчок на кнопке панели инстру- 
ментов вызовут один и тот же метод (ОпЕхесисе). Кроме того, возле команды 
меню и на кнопке панели инструментов будет присутствовать один и тот же зна- 
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чок (ТтадеТпаех), у них будут одинаковые названия (Саре1оп), оперативные 
подсказки (Н1пе) ит. д. 
Свойства компонента ТАсЕ1оп[1 $4 представлены в табл. 15.11. 
та 15.11. Свойства компонента ТАсНопН${ 
| Свойство | Описание 
ргорегеЕу Асе1опСопп%: Содержит количество определенных 
пседег; в компопенте действий (только ДЛЯ чтения) 


ргорегеу АсЕ1оп$ [Тпаех: Позволяет программе обратиться к нужному 


Тпседег]: ТСопеа1педАсе1оп; действию (объекту класса ТСопка1педАсе1оп) 
по его индексу Тпаех 


ргорег®у Ппачдез: Содержит имя компонента класса Т1тадет1$% 
ТСизеомТтаает15$%; 


Редактор компонента создает объекты класса ТАс&1оп. Свойства класса ТАСЕ1 оп, 
в основном, определяют те значения, которые будут иметь одноименные свойства 
всех компонентов или команд меню, связанных общим действием (если, разумеет- 
ся, компонент или команда меню имеет данное свойство). 

Свойства класса ТАСсе1 оп перечислены в табл. 15.12. 


Таблица 15.12. Свойства класса ТАсйоп 


Свойство Описание 


ргорег®еу Сар®1оп: 
ЗЕгапа; 


Содержит строку, которая будет устанавливаться 
в свойствах Саре1оп всех компонентов, связанных 
данным действием 


ргорег®у Спескеа: 
Воо1еап; 


Содержит значение, которое будет устанавливаться 
в свойствах Спескеа 


Указываст, будут ли недоступны связанные 
компоненты, если для действия не определен 
обработчик ОпЕхесике 


ргорег®у 
21 5аб]1еТЕМоНапа]1ег: 
Воо1еап; 


ргорег®еу Епар1еа: 
Воо1еап; 


Содержит значение, которое будет устанавливаться 
в свойствах ЕпаЪ1еа 


Содержит значение, которое будет устанавливаться 
в свойствах Не1рСопеехе 


ргорегеу Не1рСопфехе: 
ТНе1рСопфехЕ; 


ргорегеу Н1пе: $%г1пд; 


ргорегеу падеТпаех: 
Тпеедег; 


Содержит строку, которая будет устанавливаться 
в свойствах НзпЕ 


Содержит индекс изображения в хранилище, 
указанпом в свойстве Тмааез компонента. Это 

изображение будет связано с компонентами данного 
действия 


ргорегеу 5погЕСое Содержит значение, которое будст устанавливаться 
ТброгЕСае; в свойствах $ВогеСие 


ргорег®у \У15151е: Воо1еап; | Содержит значение, которое будет устанавливаться 
в свойствах \У1$161е 
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События класса ТАСЕ1оп перечислены в табл. 15.13. 


Таблица 15.13. События класса ТАсйоп 


Событие 


ргорегеу ОпЕхесиее: Возникает при щелчке мышью на одном из 

ТМоЕ1ЕуЕуепе; компонентов, связанных общим действием. 
Обработчик этого события должен реализовать 
нужное действие 


ТН1пеЕуепе = рхосе4аге (уаг | Возникает при помещении указателя мыши на 


Н1пебетг: 5З6Еапа; уах одном из связанных общим действием 
Сап5Вом: Воо1еап) оЁ компонентов. Его обработчик по умолчанию 
оБ)ес®е; ргорех®еу ОпН1пе: выводит оперативную подсказку со строкой 
ТНапфЕуепе; Н1пеб ег 


ргорег®еу ОпОрада*е: Возникает, когда очередь сообщений для 
ТМ№ос1ЕуЕутепе; приложения пуста или когда обновляется 
содержимое списка действий 


Глава 16 


Компоненты вкладки 
Ааа \Нютпа!| 


На вкладке Ааа опа! расположены компоненты общего назначения. Некоторые 
из них в функциональном плане дублируют компоненты вкладки 5*апдаг4 (см. гла- 
ву 15), но большая часть имеют уникальную функциональность. 


ТВИВ1т — кнопка с изображением 


Графическая кнопка ТВ1 Е Веп представляет собой популярную разновидность стан- 
дартной кнопки ТВо& оп. Ее отличительная особенность — свойство С1урвь, 
с помощью которого определяется растровое изображение на поверхности кноп- 
ки. В комплект ОерЫ входит множество рисунков, разработанных специально для 
размещения на этих кнопках. Так как дальше мне придется еще не раз использо- 
вать поставляемые с Ое|р]!! изображения, то следующий текст я выделяю, и в даль- 
нейшем буду просто ссылаться на показанное ниже примечание. 


ПРИМЕЧАНИЕ По умолчанию для версий Пер 4-7 рисунки для кнопок размеща- 
ются в папке Ргодгат Е\е5\Соттоп РЦез\ВоЦапа 5Пагед\тадез\Виоп$, 
для остальных версий — в папке [тадез\Ви&оп$ каталога размещения 
Реры. 


Свойство К1па определяет одну из 11 стандартных разновидностей кнопки, 
показанных на рис. 16.1. 

Щелчок на любой из показанных на рисунке кнопок, кроме кнопок БКСазб ом 
и ркНе1р, закрывает модальное окно и возвращает в программу результат вида 
пуххх (КОК —пкеОК, ЮКСапсе1 — мгСапсе!] ит. д.). Кнопка >КС1озе для мо- 
дального окна возвращает значение мгСапсе1, а для главного окна программы — 
закрывает его и завершает работу программы. Кнопка ь5КкНе1р автоматически вы- 
зывает раздел справочной службы, связанный со свойством Не1рСопкехе фор- 
мы, на которую кнопка помещена. Если у кнопки был изменен рисунок (свойство 
С1урВ), ОерЫ автоматически присвоит свойству Купа кнопки значение КСазЕ ом. 
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Рис. 16.1. Разновидности кнопок ТВИВп 


Это произойдет также в случае, когда кнопка указана как кнопка по умолчанию 
(РеРац1+=Тгие), но при этом свойство К1па не содержит значение ЬКОК или 
рКУе$, и, кроме того, когда ее свойство Сапсе1 содержит значение Тгое, а свой- 
ство К1па не содержит значение БКСапсе1 или БК№о. 

Свойства Сапсе1, РеЁац1* и Мода1Вези1* кнопка ТВ1ЕВеп унаследовала 
у своего родительского класса ТВае оп, остальные специфические свойства пе- 
речислены в табл. 16.1. 


Таблица 16.1. Свойства компонента ТВИВт 


Свойство иван 


ргорегеу С1урр: ТВ16мар; Определяет от 1 до 4 связанных с кнопкой 
растровых изображений (см. ниже) 


ТВ1ЕВЕпК1па = (ЬКСазвоп, 
ЬкКоК, РКСапсе1, БКНе]1р, 
ЬКУез, ЮКМ№о, БКС1озе, 
БКАБоге, РКВефсгу, БКТапоге, 
ЬКА11); 

ргорег®у К1па: 
ТВ1еВеЕпкК1па; 


Определяет разновидность кпопки 


ТВоебопГауоц® = 
(51С1урЬЪеЕе, Ь1С1урпВ19п%, 
61с1уррТор, Ь161урПВо®еом); 
ргорегЕу Гауопе: 
ТВаеФопГауоц{; 


ргорегеу Мага1п: Тпеедег; Определяет расстояние в пикселах от края кнопки 
до рисунка 


ТМ№амс1урп$: 1..4; Определяет количество растровых изображений 
ргорегеёу М№пСс1урьз: (см. ниже) 
ТМ№опс1урВ$; 


ргорегеу 5рас1па: Тпеедег; | Определяет расстояние в пикселах от рисунка до 
надписи на кноике 


ТВоебоп5еу1е = Определяет стиль оформления кнопки, зависящий 
(р5Аисорееесе, р$М1п31, от операционной системы. Стиль БзМем 
ьзМем); соответствует 32-разрядным версиям \/т4о\\5. 


Определяет край кнопки, к которому прижимается 
рисунок: р1С1 урЬЪеЕф — к левому; 
Ь161урьВ1а1е — к правому; 51С1урЬТор — 

к верхнему; 51С1 урпВо ом — к нижнему 


ТЗреечВи{оп — кнопка панели инструментов 319 


Свойство 


ргорег®еу 5еу1е: Стиль Б5АицкоПехес+ изменяет оформление 


ТВоббоп5еу]е; кнопки в зависимости от операционной системы, 
под управлением которой работает программа 
в данный момент 


При разработке собственных растровых изображений для использования на 
кнопках следует учесть, что изображения должны меняться при изменении состо- 
яния кнопки. Таких состояний может быть четыре: нормальное состояние, кнопка 
недоступна, кнопка нажата и кнопка утоплена (последнее используется только 
в кнопках ТбрееаВае оп). В соответствии с этим разрабатывается до 4 изобра- 
жений, расположенных по горизонтали в виде одного длинного растра. Например, 
стандартный размер изображения для размещения на кнопке равен 16х16 пиксе- 
лов. Если создаются 3 изображения, размер растра должен составлять 16х48. Ко- 
личество изображений в растре задается свойством №имС1ур!з. Если каждое 
изображение квадратное, и длина растра делится без остатка на его высоту, еры 
автоматически распознает количество изображений. Если задано только одно изоб- 
ражение, оно меняется автоматически: в состоянии «кнопка нажата» изображение 
смещается на один пиксел вправо и вниз, а в состоянии «кнопка недоступна» все 
цвета, кроме черного, меняются на светло-серый, ачерный — на белый, что обеспе- 
чивает эффект «вдавленности» изображения. Следует также учесть, что самый 
левый нижний пиксел растра определяет цвет прозрачности: на кнопке этот цвет 
будет заменяться цветом поверхности кнопки. 

Как и в кнопках ТВас оп, программист не может управлять цветом поверхно- 
сти кнопки, но в отличие от ТВае оп может менять цвет надписи на ней. С по- 
мощью свойства РеЁац1+ кнопку можно сделать кнопкой, выбранной по умолча- 
НИЮ, — в этом случае нажатие клавиши Ег(ег автоматически вызывает обработчик 
ее события ОпС11 ск. Однако кнопками, выбранными по умолчанию, можно сде- 
лать только кнопки ЪКУез и БКМо, остальные значения свойства К1 па будут заме- 
няться на БКСазеом при вводе в свойство РеЁац1 * значения Ткце, и наоборот — 
в свойство РеЁац1+ автоматически помещается значение Га1зе при установке 
в свойстве К1па любого значения, кроме БКУез, ЬК№ о или БКСазе ом. 


ТЗрееЧВиНКоп — кнопка панели 
инструментов 


Кнопки Т5рееаВиа* оп отличаются от кнопок ТВ1 Всп тремя аспектами: во-пер- 
вых, они могут фиксироваться в утопленном состоянии, во-вторых, они не могут 
закрыть модальное окно, в третьих, они не могут быть кнопками, выбранными по 
умолчанию. Во всем остальном они повторяют свойства и методы кнопок ТВ1еВеп. 

Для фиксации кнопка должна быть отнесена к какой-либо группе кнопок (эта 
группа может состоять из одной фиксируемой кнопки). Для этого используется 
свойство СгопртТпаех: Тпкедег, которое не должно быть равно 0. Поведение 
кнопки определяется логическим свойством А1 1омА1 10р: если это свойство име- 
ет значение Тгие, утопленная кнопка отпускается при фиксации любой другой 


320 Глава 16. Компоненты вкладки АЧаЙопа! 


кнопки, входящей в ту же группу; если А11омА1 10р=Га1 зе, кнопку можно осво- 
бодить только повторным щелчком. Индикатором состояния кнопки служит ло- 
гическое свойство Ромп, которое имеет значение Тгие, если кнопка утоплена. Свой- 
ство доступно для записи, что позволяет изменять состояние кнопки программно. 

Для кнопки Т5рееаВиа + + оп предусмотрено событие Опою1С11 ск, которое воз- 
никает при двойном щелчке на утопленной кнопке. 


ТМазкКЕСН — поле с маской ввода 


Поле ТМазКкКЕа1& предназначено для ввода текста, соответствующего некоторому 
шаблону, задаваемому свойством Еа1ЕМазк: $%&г1па. Если это свойство не зада- 
но, компонент ТМазкЕа1 + работает как обычное текстовое поле ТЕа1 <. Свойство 
Тз3Мазкеа: Воо1еап доступно только для чтения и содержит значение Тгое, 
если строка шаблона задана. Свойство ЕЯ1ЕТехЕ: $%хк1па содержит текст до 
наложения на него маски ввода (то есть то, что ввел пользователь), а свойство Техь : 
ЗЕх1п9а может (в зависимости от шаблона — см. ниже) содержать либо исходный 
текст, либо результат наложения на него маски. 

Шаблон состоит из трех частей, отделенных друг от друга символами точки 
с запятой ( ; ). Первая часть задает маску ввода, вторая — это символ 0 или 1, опре- 
деляющий, нужно ли записывать в свойство Тех+ результат наложения маски (1) 
или требуется оставить исходный текст (0). В третьей части указывается символ, 
который в поле с маской ввода будет присутствовать в местах, предназначенных 
для ввода символов (текст в поле может содержать символы маски). Например, 
для ввода семизначного номера телефона текст перед началом ввода может выгля- 
деть так: 


(095) ХхххХ-Ххх-ХххХ 


Здесь доступные для ввода пользователя места обозначены символом Х — по- 
следним символом в шаблоне. 

Маска состоит из описателей мест ввода (табл. 16.2), специальных символов 
(табл. 16.3) и литералов. Описатель указывает, какой именно символ может ввес- 
ти пользователь в данное место (описатель всегда указывает место для одного сим- 
вола). Литерал вставляется в текст, показываемый в окне редактора, но при вводе 
курсор перескакивает через литерал и не дает пользователю возможности изме- 
нить его. Литералами считаются любые символы, кроме описателей полей и спе- 
циальных символов, а также любой символ, которому предшествует символ \. 
Специальные символы формируют дополнительные указания редактору. 


Таблица 16.2. Описатели мест ввода маски 


Должно содержать букву 


Может содержать букву 


Должно содержать букву или цифру 


Может содержать букву или цифру 


Должно содержать любой символ 
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[Символ |Место ввода 
Может содержать любой символ 


Должно содержать цифру 


Может содержать цифру 


Е 


Таблица 16.3. Специальные символы маски 


Может содержать цифру, а также знаки + и — 


Символ 


Следующий символ — литерал. Позволяет вставлять в маску символы, 
относящиеся к описателям мест ввода и специальным символам 


На это место вставляется символ-разделитель \п4Чо\$ для часов, минут, 
секунд 


На это место вставляется симвоЛ-разделитель М/И т4о\у$ для полей даты 


| Разделитель частей шаблона 
А Подавляет все начальные пробелы 


> Все следующие за этим символом места ввода преобразуют буквы 
в прописные 


Все следующие за этим символом места ввода преобразуют буквы в строчные 
Отменяет преобразование букв 


Примеры применения маски представлены в табл. 16.4. 


Таблица 16.4. Примеры применения маски ввода 


095) 0100-0000, 17. [109500 


Если компонент лишается фокуса ввода, когда не все требуемые места ввода 
заполнены (или заполнены неправильно), возникает исключительная ситуация 
ЕОВЕа1Еггог — на экран выводится окно с сообщением и после закрытия окна 
курсор устанавливается в то место ввода, на котором закончился правильный ввод. 

Остальные свойства компонента ТМазкЕа1 повторяют соответствующие свой- 
ства компонента ТЕЗ: +. В частности, установка в свойство РаззмогЯСраг любо- 
го символа, кроме символа с кодом #0, обеспечивает секретность ввода: в этом 
случае все вводимые в компоненте символы заменяются символом, указанным 
в свойстве РаззмогЯСрВаг. | 


Т5$ита@па — текстовая таблица 


Компонент Т5$Ег1п9Сг14 предназначен для создания таблиц, в ячейках которых рас- 
полагаются произвольные текстовые строки. Он является прямым потомком класса 
ТРгамСк1 9 (см. ниже), от которого им унаследовано большинство свойств и методов. 
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Таблица делится на две части — фиксированную и рабочую. Фиксированная 
часть служит для показа заголовков колонок и рядов, а также для ручного управ- 
ления их размерами. Обычно фиксированная часть занимает левую колонку и верх- 
ний ряд таблицы, однако с помощью свойств Е1хеЯСо1з и Е1хеаВомз можно за- 
дать другое количество фиксированных колонок и рядов (если эти свойства имеют 
значение 0, таблица не содержит фиксированной зоны). Рабочая часть — это ос- 
тальная часть таблицы. Она может содержать произвольное количество колонок 
и рядов, более того, эти величины могут изменяться программно. Рабочая часть 
может не умещаться целиком в пределах окна компонента, в этом случае в него 
автоматически помещаются нужные полосы прокрутки. При прокрутке рабочей 
области фиксированная область не исчезает, но меняется ее содержимое — заго- 
ловки колонок и рядов. 

Центральным свойством компонента является свойство Се11з — двухмерный 
массив ячеек, каждая из которых может содержать произвольный текст. Конкрет- 
ная ячейка определяется парой чисел — номером колонки и номером ряда, на пе- 
ресечении которых она находится (нумерация начинается с нуля). Свойство Се115 
имеет тип $&х1п9, поэтому программа может легко прочитать или записать со- 
держимое нужной ячейки. Например: 


Се11$[1,1] := 'Левая верхняя ячейка рабочей зоны’; 


Количество ячеек по каждому измерению хранит пара свойств Со1СоипЕ (ко- 
личество колонок) и ВомСоцпЕ (количество рядов). Значения этих свойств и, сле- 
довательно, размеры таблицы могут меняться как на этапе разработки программы, 
так и в ходе ее работы, однако их значения должны быть как минимум наединицу 
больше соответственно значений в свойствах Е1хеЯСо1з$ и Е1хеаВомз, опреде- 
ляющих размеры фиксированной зоны. 

Содержимое ячеек можно редактировать. Для этого в таблице используется 
специализированный потомок поля с маской ввода ТМаз КЕ. 

Свойства компонента Т5$&г1паСг1а перечислены в табл. 16.5. 


Таблица 16.5. Свойства компонента ТЗипаСпа 


ргорег®еу Се115$[АСо1, 
Тпседехг]: $6гапда; 


ргорекеу Со1: ГопаТпе; Содержит номер колонки с ячейкой, имеющей 
фокус ввода 


ргорегеу Со1СоипЕ: Гопа1Тпе; 


ргорегеу Со15$ [Тпаех: Содержит все строки колонки с индексом 
Тпседег]: Т5ег1па$; Тлаех 


ргорегеу Со1\1аец$ [Тпаех: Содержит ширину колонки с индексом Тпаех 
.опаТпе]: Тпфесдег; 


ргорегеу ПРеЕап1ЕСо1М1аЕп: Содержит значение ширины колонки, заданное 
Тр%$едег; по умолчанию 
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Свойство Гопивание 


рхорег®еу ПРеЁао16Огам1пд: Разрешаст/запрещает автоматическую 
Воо]еап; прорисовку служебных элементов таблицы — 
фиксированной зоны, фона и прямоугольника 
ячейки, имеющей фокус ввода, и т. п. 


ргорегеу ПеЁац1+КомНе1тапе: 
Тпеедег; 


Содержит зпачение высоты рядов, заданное По 
умолчанию 


ргорегеу ЕЧ1еогМоае: Воо1еап; Разрешает/запрещает редактирование ячеек. 
Игнорируется, если свойство ОрЕ1о0п3 
включает значение чоА1маузеРомЕа1 ог 


или пе включаст значение аоЕа1 + 1па 


Определяет цвет фиксированной зоны 


Определяет количество колонок 
фиксированной зоны 


ргорек®у Е1хеЯяСо1ог: ТСо1ог; 


ргорег®у Е1хедСо15: Тпеедег; 


ргорегеу Е1хеЧКоиз: Тпфедег; 


ргорег®у сг:аНе1апе: Тпфеаег; 


ргорегеу Сг1АаГ1лпейтаем: Определяет толщину линий, расчерчивающих 
таблицу 


Определяет количество рядов фиксированной 
ЗОНЫ 


Содержит значение высоты таблицы 


ргорег®Еу Сг1АИ1аев: Тпееаег; Содержит значение ширины таблигы 


ргорегеу ГеЕСо1: ГопаТпе; Содержит номер самого левого столбца, 
видимого в зоне прокрутки 

ргорегеу ОБ)есез [АСо1, Обеспечивает доступ к объекту, связанному 

АВом: Тпфедег]: ТОБ)есе; с ячейкой (АСо1, АВом) 

ргорег®у Оре1опз: Содержит параметры таблицы (см. ниже) 

ТСбг1ЧОре1оп$; 

ргорегеу Ком: ГопаТпе; Содержит номер ряда ячейки, имеющей фокус 
ввода 

ргорегеу КомСоипе: ГопаТпе; Содержит количество рядов таблицы 

ргорег®у КомНе1апе$ [Тпаех: Содержит значение высоты ряда с индексом 

ГопаТпе]: Тпеедег; Тпаех 

ргорег®у Комз [ Тпаех: Содержит все текстовые строки ряда 

Тпееачек]: Т5ег1па$; с индексом Трпаех 

Суре Т5сго1156у1е = Определяет полосы прокрутки: з зМопе -— нет 

(35Мопе, ззНогугопба1, полос; $зНог12опфа1 — втаблицу вставляется 

55\УегЕ1са1, $з$Во®П); горизонтальная полоса; ззУегЕ1са1 — 

ргорегеу 5сго11Ватз: вставляется вертикальная полоса; $$ВоЕВ — 

Т$сго11$%5у]1е; вставляются обе полосы 

ТСг1АВесЕ = кесохА сазе Определяет группу выделенных ячеек 

Тпседчег оЁ 0: (ТеЕЕ,Тор, в координатах левой верхней и правой нижней 

Варе, Воееот: Гопач1п®е); 1: ячейки (нумерация колонок и рядов идет от 

(ТорЬеЕЕ, ВобеомВ1аве: нуля, включая колонки и ряды фиксированной 

Тбсг1АСоога); епа; зоны). После выделения фокус ввода окажется 

ргорег®еу 5е1ес®1оп: в правой нижней ячейке 

Тсг1АВесе; 


продолжение #7 
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Таблица 16.5 (продолжение) 


Свойство 


ргорег®у ТаБбеор$ [Тпаех: Разрешает/запрещает выбирать колонку 

ГопачТпе]: Воо1еап; с индексом Тпдех при обходе ячеек с помощью 
клавиши Та. Игнорируется, если свойство 
Оре1оп$5 не содержит значения доТаьз$ 


ргорегеу ТорКом: ГопаТпе; Содержит номер самого верхнего ряда, 
видимого в прокручиваемой зоне ячеек 


ргорег®у \1$161еСо1Соппе: Содержит количество колонок, полностью 
Троёедег; видимых в зоне прокрутки 


ргорег®еу \1$161еВомСоцпе: Содержит количество рядов, полностью 
Тпседекг; видимых в зоне прокрутки 


Для компонента определен тип ТСбг1АОр®1опз: 
туре 
ТСг1АОре1оп = (адоЕ1хеауег&Т1пе, доЕ1хеаНог2Глпе, 
ао\УегЕТ1пе, аоНог2Г1пе, доВКапаебе1еск, 
ао0гамЕРоси$5е1ескеЯ, аоВом5121п4а, 90Со1$171па, 
аоКомМоу1па, чоСо1Моу1па, аоЕЯ1®1па, аоТарз, 
аовом5е1есЕ, доА1мауз5ПомЕЯ1$ког, аоТратЬТгаск1па); 
ТСг1АОре1оп$ = зе оЁ ТСг1АОре1опз; 


Назначение элементов множества Тбг1ЧОр+1опз представлено в табл. 16.6. 


Таблица 16.6. Назначение элементов множества ТсиаОрйоп$ 


Элемент [Описание 


доЕ1хеа\Уег%Т,1пе Колонки фиксированной зоны разделяются 
вертикальными линиями 


Ряды фиксированной зоны разделяются горизонтальными 
ЛИНИЯМИ 


аоЕ1хеаНог2Т1пе 


ао\егеТ1пе 


аоКапае$е1ес®е 


Колонки рабочей зоны разделяются вертикальными 
ЛИНИЯМИ 


Колонки рабочей зоны разделяются горизонтальными 
ЛИНИЯМИ 


Разрешено выделение нескольких ячеек. Игнорируется, 
если во множество включен элемент доЕа1*1па 


Разрешено показывать ячейку, имсющую фокус ввода, 
так же, как выделенную ячейку 


40Вом5121па Разрешено ручное (мыитью) изменение высоты рядов 
940Со15121па Разрешено ручное изменение ширины колонок 


аоКомМоу1па 


доргамРосиз5е1есееа 


Разрешено ручное перемещение рядов (нажать левую 
кнопку мыши на фиксированной ячейке перемсещаемого 
ряда и, удерживая кнопку нажатой, перетащить ряд на 
новос место) 
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Элемент тивани 
доСо1Мо\у1 па Разрешено ручное перемещение колонок 


доЕа11п9 Разрешено редактирование ячейки. Игнорируется, если 
включен элемент чоВом5е1еск. Редактирование 
начинается после щелчка мышью или нажатия клавиши 
Её и завершается при щелчке на другой ячейке или 
нажатии клавиши Егёег 


Разрешено обходить ячейки клавишей ТаЬ ($МЯ+ТаБ) 


овоиЗе1есе Обязывает выделять сразу все ячейки ряда и запрещает 
9 
редактирование ячеек 


ЧоА]мауз5ПомЕа1 $ог Разрешено редактировать ячейку, имеющую фокус ввода: 
редактирование возможно после выделения ячейки 
клавишей Та ($МИ+Таь). Игнорируется, если не включен 
элемент доЕа11па 


аотТвопЮТгаск1па Разрешено обновление при прокрутке. Если этот элемент 
отсутствует, обновление ячеек произойдет только после 
окончания прокрутки 


Два метода класса могут оказаться полезными для процедуры прорисовки 
(табл. 16.7). 


Таблица 16.7. Методы компонента ТЭитаСиа 


[Метод_____ бани 


Еапсе1оп Се11Вес® (АСо1, Возвращает прямоугольник ячейки по 
АВБом: ГопаТпе): ТВесе; номерам колонки АСо1 и ряда АВКом 


ргосеацге МопзеТоСе11 (Хх, У: Возвращает табличные координаты ячейки 
Тпфедег; уаг АСо]1, АВом: АСо1 и АКом по экранным координатам 
ТопаТп®); (Х,У) точки 


Остальные методы рассчитаны на перекрытие в потомках и представляют ин- 
терес только для разработчиков новых компонентов. Для программистов-пользо- 
вателей важны доступные компоненту события, перечисленные в табл. 16.8. 


Таблица 16.8. События компонента ТЭипаСпа 


Событие 


ТМоуеЧЕхепе = ргосеаиге Возникаст при перемещении колонки с индексом 
(Зепаег: ТОБ]ес®е; ЕгошТпаех, | ЕгопТпаех в положение, определяемое индексом 
ТоТпаех: ГопаТп®) оЕ оБдесеЕ; | ТоТпаех 

ргорекеу ОпСо1иппМохеа: 
ТМоуеаЕуепе; 


Возникает при необходимости перерисовать 
ячейку с табличиыми координатами (Со1,Вом): 
Вес® — прямоугольник прорисовки; 55 афе — 
состояние ячейки (345е1ескеа — ячейка 
выделена; «ЧАГосизе — ячейка имеет фокус 


ввода; чаЕг1хеа — ячейка принадлежит 
продолжение 1 


ТСсг1А)0гам5 $ аке = зее оЁ 
(а45е1есееа, ааЕосозеа, 
ааЕ1хеа); 

ТРгамСе11Еуеп® = ргосеаиге 
(Зепаег: ТОБесе; Со1, Вом: 
ГопаТпе; Вес®: ТВесе; Зеа%е: 


326 


Таблица 16.8. (продолжение) 


фиксированной зоне таблицы). Для прорисовки 
используется табличное свойство Сапуаз 


ТСсг1А)Ргамб$афе) оЁ оЪ)ес®; 
ргорегеу ОпргамСе11: 
ТргамСе11Ехепе; 


ТсбесЕч1еЕуепЕ = ргоседиге 
(Зепаег: ТОБуесе; АСо1, 
АКом: БопаТпе; маг Уа11е;: 
5$&г1п09) оЕ оБзес®; 
ргорекЕу ОпбсесЕЧ1&Мазк: 
ТбсесЕа1еЕхуепс; 


ргорег®у ОпбесЕа1еТехе: 
ТбсесЕа1еЕхуепе; 


ргорегЕу ОпБомМоуеа: 
ТМоуеаЕуепе; 


бе1ес&Се11ЕуепЕ = ргосеаигке 
(Зепаег: ТОр]есе; Со1, Вои: 
ТопаТпе; уаг Сапбе1еск: 
Воо1еап) оЕ оЪ]ес*; 
ргорегеу Опбе1ес&Се11: 
Т5е1есЕСе11Еуеп(; 


ТбесЕа1ЕЕуепЕ = ргосеаиге 
(5епаег: ТОр]есе; АСо1, 
АВом: БопаТпе; сопз® Уа1ае: 
ЗЕ:г1п9) оЕЁ оБЗес®; 
ргорегеу ОпбеесЕа1еТехе: 
ТбесЕа1еЕхуепе; 
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Возникает при редактировании текста в ячейке 
с табличными координатами (АСо1,АВом). 

В параметре Уа11е обработчик должен вернуть 
шаблон для компонента ТЕЗ1{МазКк 


Возникает при редактировании текста в ячейке 
с табличпыми координатами (АСо1,АВом). 

В параметре Уа1 пе обработчик должен вернуть 
текст для компонента ТЕЯ1+МазКк (см. событие 
ОпбесЕа1+Мазк) 


Возникает при перемещении ряда с индексом 
ггопТпаех в положение, определяемое индексом 
Тотпаех (см. событие ОпСо1Моуеа) 


Возникает при попытке выделить ячейку 

с табличными координатами (Со1,Вом). 

В параметре Сап5е1ес{ обработчик сообщает 
о возможности выделения ячейки 


Возникает при завершении редактирования 
ячейки (АСо1,АВом). В параметре Уа1ще 
обработчик получает результат ввода или 
редактирования текста 


ргорекеу ОпТортеЕеСвапдеа: | Возникает после изменения значения ТорВом или 
ТМ№ое1ЕуЕуепс; .еЕ&Со1 в результате прокрутки рабочей зоны 
В следующем примере (проект СВар_16\5${1п9619\5{1п9би4.4рг) компонент 
Т5Ек1паСг1а используется для отображения всех слов из произвольного тексто- 


вого файла. 


1. Назовите пустую форму именем ЕЕ Сг1А и поместите на нее панель ТРапе1. 


2. Установите в свойство А1 1дп панели значение а1Во& ом, чтобы панель всегда 
занимала самую нижнюю часть окна, и удалите текст в ее свойстве Саре 1оп. 


3. Поместите на панель кнопку ТВ1 &В&п, установите в ее свойство Саре 1оп строку 
Открыть файл... .‚ загрузите в свойство С1 урВ файл 1МАбЕЗ\ВУТТОМ$\НЕЕОРЕМ.ВМР 
и растяните кнопку по горизонтали так, чтобы надпись и изображение полнос- 
тью умещались на ее поверхности. 


4. Поместите на панель еще одну кнопку ТВ1& Вел и установите в ее свойство К1па 
значение рКС1озе, а в свойство Саре1оп — строку Выход. 
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5. Поместите на панель компонент Орепр1а1оч9 с вкладки 01а(09$ палитры ком- 
понентов. Этот компонент создает и обсуживает стандартное для \114о\/$ окно 
открытия файла. С его помощью при прогоне программы вы сможете выбрать 
текстовый файл (например, файл с текстом программы), чтобы программа по- 
казала в таблице все слова из этого файла. 


6. На форму (а не на панель Рапе1 1) поместите компонент Т5$&г1пабг1а. 


7. Поместите в свойства Со1СоппЕ и ВомСоцпЕ компонента Т5$&хг1пабг1а зна- 
чения 2 (количество колонок и рядов таблицы должно быть больше, чем коли- 
чество фиксированных колонок Е1хеаСо1.з и количество фиксированных ря- 
дов Е1хеаВомз ). Установите в свойство А] 1ап компонента значениеа1С11епк, 
чтобы он занял все свободное место формы. 


На этом закончим этап разработки формы. Вся основная работа будет связана 
с обработкой щелчка на кнопке В1ЕВеп1: программа сначала предложит вам вы- 
брать текстовый файл, затем прочитает его и создаст список отсортированных 
в алфавитном порядке слов из каждой строки файла, после чего наполнит словами 
таблицу. Наполнение будет происходить так, чтобы каждая колонка строки содер- 
жала все слова, начинающиеся на одну и ту же букву (рис. 16.2). 


Отвергаем ‘первого ‘работой ‘с ‘таблицу — Уничтожаек Файл ‚Цикл | г 


отказался :перед `работу ‘свойства таблицы : файла 


открыть Переходим Расширяем: символов ‘текстом ‘ формировак 


относяшиес по ‘ряда ‘символы ‘текущего | Формируем 


очередного Пользовате : следующем’ | : функция 


КАКА КОК КАикдк же 


—|. > 


очередное помощью = : слов 


. И И 

очередную Пчстой 

. 

| или ии а алина ини алии тиши 

| 

‹ Сортируем | 

|. ее 

а. пе вы ина х 


Открыть файл. | о В 00% о 7” т. 
Рис. 16.2. Пример использования компонента Типа $ 


Обработчик события ОпС11ск для кнопки В1&Веп1 показан в листинге 16.1. 


Листинг 16.1. Обработчик события ОпС!скК' 


ргосе4аге ТЕп5®Сг1а.В1еВЕп1С11скК (5епаег: ТОБ)ес®); 
Рипсе1оп Сеемога (уаг 5: $5&г1п9): 5З&г1пд; 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу НЁр:// 
ммм. р\ег.сот/домип(оа4 — Примеч. ред. 
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{ Вспомогательная функция для выделения очередного слова 
из строки } 
соп$е // Множество символов слова: 

Тесфегз: зе оЕ Сраг = ['а'..'2', 'А'..'7', 'А!..!я!]; 
Беда п 

Вези1е := '!; 

// Удаляем в начале строки все символы, не относящиеся 

// к слову 

мр1]е (5 <> '') апа по (5[1] 1п Теббег$) ао 

Ре1ефе (5$, 1, 1); 
// Формируем очередное слово 


мр1]е (5 <> '') ара ($5[1] 1л Теббегз) ао 
Бед1п 

Везц1$ := Кезо1е + 5$[Г1]; 

Ре1еке (5, 1, 1) 
епа; 


епа; // СеЕЙога 


уаг 
Е: ТехеЕ11е; // Файл с текстом 
5, Мога: Зфгапа; // Вспомогательные строки 
№Со1, МВом: Тпфедег; // Номер текущей колонки и текущего 
// ряда 
Иога$: Т5&г1п911$6; // Список отсортированных слов 
// из файла 
Бед1п 


// С помощью стандартного диалогового окна получаем 
// имя файла 
1Е пое ОрепО1а1о31.Ехесоке еБеп 

Ех1 С; // Пользователь отказался выбрать файл 
// Пытаемся открыть файл 
Аз51апЕ11е(Е, ОрепрО1а1о91.Е11еМате); 
Егу 

Везе® (ГР); 
ехсере 

// Файл нельзя открыть: 

бромМеззачсе ('Невозможно открыть файл ' + 

Орепр1а1о0о491.Е11еМаме); 

Ех1%; 
еп; 
// Готовим список Иога5$: 
Иога$ := Т56г1па1156.Сгеаке; 
Иога$ .богееа := Тгае; // Сортируем строки 
Иога$ .Пир11сакез := аАпрТапоге; // Отвергаем дубликаты 
// Изменяем указатель мыши перед длительной работой 
бсгееп.Сагзог := сгНочгС1а$$; 
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// Читаем файл по строкам 

мВ1]е пое ЕОЕ(Г) ао 

Бед1п 
Веаа!л (Е, 5); // Читаем очередную строку 
// Выделяем из строки слова и заносим их в список ИЙога$ 
мВ11е $5 <> '' ао 


Бед1п 
Иога := сСее\Мога (5$); 
1Е Мога <> ''! &Беп 
Иог@5$ .АЗа (Мога) // Не вставляем пустые строки 
епа 
еп; // ир11е поЕ ЕОГ(ЁР) ао 
Зсгееп.Соагзог := сг/еЁац1&; // Восстанавливаем указатель 
С1озеЕ11е (Е); // Закрываем файл 
1Е Мога$ .СоцпЕ=0 &ЪБеп 
Ех; // Пустой файл - выходим 
У1ЕВ 5Ег1па9Сг1а1 ао 
Ъед1п 
№о1 := 1; // Номер первой колонки слов 


// Цикл формирования таблицы 
мВ11е Могаз.СоцпЕ > 0 94° 
Бед1п 
// Формируем заголовок колонки 
// и начальное значение номера ряда 
Се11$[№Со1, 0] := Ап$1ОррегСазе (Могаз$ [0] [1]); 
М№Вом := 0; 
// Цикл заполнения очередной колонки 
иВ11е (\Мога$.СоцпЕ > 0) апа 
(Ап$1ОррегСазе (Могаз$ [0] [1]) = Се11$[№Со1, 0]) ао 
Бед2п 
1пс (МВом); // Номер текущего ряда 
1Е МВом = ВомСоцпе Вел 
Бед1п // Расширяем таблицу вниз 
ВомСоцпе := КомСочп® + 1; { Для свойства КоиСоипё 
нельзя использовать 
функцию инкремента 1пс! } 


Се11$[0, М№Вом] := ТпеТобег (МВом); 
епа; 
Се11$(№Со1, МВом] := Мога$[0]; 


Мога$ .Бе1есе (0); 
епЯ; // ир11е (Мога$.СоипЕ > 0) 
// Переходим к следующей колонке 
1Е Мога$.СоцпЕ=0 &веп 


Вгеак; // Кончаем работу, если слов больше нет 
1пс (№Со1); // Переходим к следующей колонке 
Со1СоцпЕ := Со1Созп*+1 // Расширяем таблицу вправо 


// на 1 колонку 
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еп; // ир11е Иога$.СоипЕ > 0 ао 
епЯ; // и1ЕР $5&г1п9бг1а1 ао 
епЯ; // ргосеаиге ТЁЕт5ЕСгк1а. В1ЕВЕт1С11 ск 


ТОгамСиа — произвольная таблица 


Компонент ТОгамСг1а предоставляет программисту мощные возможности созда- 
ния и обслуживания табличных структур данных. Он обеспечивает двухмерное 
представление данных, упорядоченных по колонкам и рядам, и избавляет програм- 
миста от многих рутинных операций, связанных с представлением и обслужива- 
нием таблиц. 

Чтобы таблица была работоспособной, в ней как минимум следует определить 
обработчик события ОпрхамСе11, которое возникает при необходимости прори- 
совать ту или иную ячейку. Для прорисовки используется табличное свойство 
Сапуа$. 

Компонент ТОгамСг1 4 является непосредственным родителем строковой таб- 
лицы Т5Ег1пасг1а, поэтому передает ей все свои свойства, методы и события за 
исключением специфичных для строк свойств Се11$, Со15, ОБ] есёз$ и Вомз. 
Поскольку порядок описания компонентов в этой главе соответствует порядку их 
расположения на вкладках палитры компонентов, компонент ТЗЕг1пабг1 А опи- 
сан раньше своего родителя ТРгамбг1а, и вы сможете найти информацию о свой- 
ствах, методах и событиях последнего в предыдущем разделе. 


аепа тр 


__ сопзнис.Бтр И | о _  1асвиву. Бр | 


Рис. 16.3. Пример использования таблицы ТОгам/Спа для отображения картинок и текста 
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В следующем примере (проект СПар_16\Огамбпа\Огамбпа.арг) компонент ТЬхам- 
Сг1а используется для одновременного отображения текста и картинок, причем 
текст можно редактировать. Картинки взяты из каталога [тадез\5р(а$\16со[от 
(рис. 16.3). 

Для получения окна, показанного на рисунке, расположите на пустой форме 
ЕпОхгамСг1А компонент ТОгамСгк1а и задайте для него значения свойств, пере- 
численные в табл. 16.9. 


Таблица 16.9. Значения свойств компонента ТОгамСпа 


Свойство Значение | Комментарий 


[Е1хедсо1в |0 | Нетфиксироваиных колонок 
[еахедвонв |0 [| Нетфикоироаиныхрю 
В таблице 2 строки 


Исходный код файла Огаубп9Мат.ра$ представлен в листинге 16.2. 


Листинг 16.2. Иллюстрация создания компонента ТОгам/биа 


11101 ПгауСг1ЯМа1п; 
1п6егЕасе 


изез 
И1паом$, Меззааез, $у$0%115$, С1аз5ез, СгарП1с5$, Соп®го1$, 
Когмз, 0О1а1095$, СЕ19$; 


фуре | 
ТЕю)ОгамСг1А = с1аз$ (ТРГогп) 
ЯЧаргам: ТОгамскза; 
ргоседиге ГогпСгеа{е (бепа4ег: ТОБ)ес®); 
ргосеаиге ГогпПеасе1хаке (беп4ег: ТОБ)ес®); 
ргосеацге ач0гамсееЕЧ1+еТехе (бепаег: ТОБ)есе; 
АСо], АВом: Тпфедег; 
уахг \Уа1пе: $%г21па); 
ргосеаиге ач0гамзееЕа1еТех® (бепаег: ТОБ)есе; 
АСо1, АКом: Тпфедег; 
сопзе \а11е: $5%г1п9); 
ргосеаске ач0гачОгамСе11 (Зепаег: ТОБ)есе; 
АСо1, АКом: Тпфесдег; 
Весе: ТВесе; 
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Зсасе: Тбсг1А)камЗ%$афе); 
ргосеаиге ГогпиВез1те (бепаег: ТОр)ес®); 
рг1уаее 
{ РглуаЕе аес]агаЕ1оп$ } 
$1В1&Мар: Т56х1п91$%; // Список подписей и изображений 
раЬ11с 
{ РиБ]11с аес]агаЕ1Топ$ } 
епа; 


уаг 
ЕпОгамСг1Аа: ТЕш)гамСк1а; 


1пр1етепва®1оп 
{$5 *.РЕМ] 


ргосеаиге ТЕпОгамСсг1а.ЕГогпСгеафе (Зепаег: ТОБ]ес®); 
// Создает и наполняет список $1В1ЕМар в момент создания 


// формы 
соп$Е 
Вир _Рафп = 'С:\Ргодгам Е11ез\Соштоп Р11ез\Вог1апа 
Зпаге4а\ ' + 'Тпадез\5р1азй\16Со1ок\'; 
ЕМапез: агхгау [0..3] оЕ Зехгапа = // Имена файлов 
// с картинками 
('аспепа.Бмр', 'сопзЕгас.ютр', 'еагЕВ.юпр', 
'Бесрп1ау.рЮтр'); 
уаг 
к: Тпбседег; 
Бед1п 
// Создаем список строк: 
$1В1ЕМар := Т56г1п9115$®.Сгеаее; 


// Вставляем в него названия файлов и картинки: 
м1ЕВ $1В1ЕМар @4о Еог К := 0 ®о 3 ао 


Ьед1п 
даа (ЕМ№апез$ [К]); 
Ор]есЕ$ [к] := ТВ1ЕМар.Сгеаее; 
(Ор]есе5[К] аз ТВ1%Мар).ГоааЁГгомЕ11е (Втр РаЕВ+ 
ЕМапез [К]) 


епа // и1ЕБ $1В1ЕМар ао Еог К := 0 во 3 ао 
епа; // РогтСгеаЕе 


ргосе4иге ТЕпОгамСг1А. ГогиреасЕ1уа*е (бЗепаег: ТОБ)ес®); 
// Удаляем список $1В1ЁЕМар при разрушении формы 
Беда п 
$1В1ЕМар.Егее 
епа; 
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ргосеаиге ТЕпОгамсСг1а. ачОгамсееЕа1еТех® (Зепаег: ТОБЗес®; 
АСо], АВом: Тпфедег; 
уаг \а1це: $%г1пда); 
// Передает в редактируемое поле текст из ячейки 
Бед1п 
Уа]0е := $1В1ЕМар[2 * АСо1 + Агом] 
епа; 


ргосеаиге ТЕп)ОгамСг1а. аа)гамбееЕа1 Тех (Зепаег: ТОБ)есе; 
АСо1, АВом: Тпфеадег; сопз®е \Уа1ае: 
ЗЕг1п4а); 

// Получает текст из редактируемого поля 

// и сохраняет его в $1В1ЕМар 

Бед1п 

$51В1ЕМар[2 * АСо1 + АВБом] := Уа1ае 
епа; 


ргосеаиге ТЕпОгамСг1а. ааОгам0ОгамСе11 (бепаег: ТОБ]ес%; 
АСо]1, АВом: Тпфедег; 
Весс: ТВесЕ; 


осаее: 
ТСг1А).гам5 $ афе); 
// Рисует картинку из $1В1ЕМар.ОБдесЕз и текст из $1В1ЕМар 
уаг 
К: Тпбедег; 
Бед1п 


// Пересчитываем координаты ячейки в индекс списка: 
К := 2 * АСо]1 + АВом; 
м1ЕВ адргам.Сапуаз, Весе, $1В1&Мар ао 


Бед1п 
// Уменьшаем высоту картинки для вывода под ней текста: 
Воебом := ВоЕбом — ТехЕНезайе('1') — 2; 


// Рисуем картинку: 
ЗёгессВОкам (Вес, (05]ес&$[к] аз ТВ1%Мар)); 
// Центрируем текст по горизонтали и выводим его: 
ТехеОче (ТеЁх+ (В1лапЕ-ТЪеЕ&-Техе\Мласв (518В1&Мар[к])) а1у 2, 
ВоЕбом + 1, $1В1ЕМар[К]) 
епа // и1ЕН адр)гаи.Сапуа$, КесЕ, $1В1ЕМар ао 
епа; // ааргаиргаиСе11 


ргосе4аге ТЕпОгамСг1А. ГогиВез12е (5еп4ег: ТОБ)есЕ); 

// Изменяет размеры ячеек при изменении размеров окна. 
// Запас в один пиксел необходим для предотвращения 
// автоматической прокрутки 

Бед1п 
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м1ЕВ ачОгам ао 


Бед1п 
РеЕац]1 ЕСо1М1АЕР := С11епеВесе.В1айе ау 2 - 1; 
РеЕац]1ЕВКомНе1апЕ := С11епеВес®.Вобком Ч1у 2 - 1 
епа; — 
епа; 
епа. 


Для оперативного хранения изображений и подписей к ним используется сле- 
дующий список строк: 


рг1луа®е 
$1В1&Мар: Т5хг1п911$%; 

Этот список необходимо создать и наполнить в момент создания окна и уда- 
лить при его уничтожении. Эти операции осуществляются в обработчиках собы- 
тий ОпСгеахе и Опрез+гоу формы. Обратите внимание: в константе Вир _РаЕВ 
указывается стандартный путь доступа к графическим файлам. Если на вашем ком- 
пьютере они установлены в другой папке, эту константу нужно соответствующим 
образом изменить, после этого полезно осуществить прогон программы и убедить- 
ся в доступности файлов. 

Чтобы отобразить текст подписи в окне редактора (оно появляется автомати- 
чески после щелчка на подписи), необходимо создать обработчик события Опбе® - 
Еа1%Тех-. В нем строка списка 3181 Мар, индекс которой вычисляется на осно- 
ве текущих колонки и ряда табличной ячейки, передается встроенному в компонент 
редактору. Поскольку в программе разрешается редактировать текст подписи, об- 
работчик Оп5е-Еа1 ЕТех+ осуществляет обратные действия и сохраняет в списке 
$1В1 Мар отредактированную подпись. Обработчик ОпргамСе11 обязательно 
создается для любого компонента ТОгамСг1 а, так как без него компонент не смо- 
жет заполнить пустые ячейки каким-либо изображением и/или текстом. 

Чтобы согласовать размеры ячеек таблицы с размерами окна программы, ис- 
пользуется обработчик события ОпВез12е (это событие возникает при каждом 
изменении размеров окна). Высота (ширина) каждой ячейки устанавливается рав- 
ной половине высоты (ширины) клиентской области формы минус 1 пиксел. Этот 
запас предотвращает автоматическую вставку в таблицу полос прокрутки. 


ТПтаде — изображение 


Компонент ТТмаде служит для размещения на форме одного из трех поддержива- 
емых Пер типов изображений: растрового рисунка, значка или метафайла. Лю- 
бой из этих типов изображений содержится в центральном свойстве компонен- 
та — Р1сбоге. Свойство Сапуаз открывает доступ к канве, с помощью которой 
при необходимости программа может отредактировать растровое изображение (но 
не значок или метафайл!). 
Вот как можно создать несложную программу (проект СВар_16\Ттаде\Ттаде- 
Оето.арг) просмотра изображений, окно которой показано на рис. 16.4. 
1. Поместите на форму панель ТРапе1, очистите ее свойство Сар 1олп и введите 
значение а1Воф ком в свойство А11апмеп& — панель займет нижнюю часть 


формы. 
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Рис. 16.4. Компонент Т!таде воспроизводит изображение 


2. Разместите на панели кнопку ТВа& ол с надписью Загрузить. 


3. Налюбое свободное место формы (над панелью) поместите компонент ТТмаде 
и установите в его свойство А11дп значение а1С11епк. 


4. На любое место (ТТтасде, ТРапе1 или даже ТВиекоп) поместите компонент 
ТОрепР1скагер1а1о9 (вкладка 01а[09$ палитры компонентов) — сего помощью 
пользователь вашей программы сможет разыскать нужный файл с изображе- 
нием. 


5. Для кнопки Вик оп1 напишите следующий обработчик события ОпС11ск: 


ргоседцге ТГогм1.ВаеЕоп1С11сК (бепаег: ТОБ)ес®); 
Ьед1п 
1Е ОрепР1сеигер1а1091.Ехесоабе ®Веп 
Бед1п 
Тмаде1.Р1своге. ГоаЯЕгопЕ1]1е 
(ОрепР1сЕцгер1а1031.Г11еМаме); 
Тпаче1.56©геесй := Тгое 
ела 


Замечу, что показанный ниже оператор масштабирует изображение так, чтобы 
оно занимало всю рабочую область ТТтаде: 


Тпаде1.5Егеесй := Ткоае 
Свойства компонента ТТмаде перечислены в табл. 16.10. 
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Таблица 16.10. Свойства компонента Т!таде 


Свойство опиаты 


ргорегеу Аикоб1те: | Разрешает/запрещает изменять размеры компонента так, 
Воо1еап; чтобы в них полностью загрузилось изображение 
(см. свойство ЗЕ геесп) 


Содержит канву для прорисовки изображения 


Указывает, надо ли центрировать изображение в границах 
компонента. Игнорируется, если Аиео512ге=Ткиае или если 
$Егессп=Ткие и изображение ие является значком (ТСО) 


ргорег®у Саптуаз: 
ТСапуаз; 


ргорегЕу Септег: 
Воо1еап; 


Центральное свойство класса. Служит контейнером 
изображения 


ргорег®у Р1сеаге: 
ТРасбоге; 


ргорек®Еу 5егессн: | Разрешает/запрещает изменять размер изображения так, 
Воо1еап; чтобы оно целиком заполнило клиентскую область 
компонента (см. свойство Апко$512е) 


ргорег®у Запрещает/ разрешает пакладывать собственный фон 
Тгапзрагепе: изображения на фон компонента 
Воо1еап; 


С помощью методов класса ТР1ссаге (см. подраздел «Классы ТСгарыс и ТРЕ- 
{иге» раздела «Графический инструментарий» в главе 13), к которому относится 
свойство Р1сеоге, программист может загрузить изображение из файла или бу- 
фера обмена (сПрБоаг4) и сохранить его в файле или буфере. 


Т5Паре — стандартная фигура 


Компонент рисует одну из простейших геометрических фигур, определяемых сле- 
дующим перечисленным типом (прямоугольник, квадрат, скругленный прямо- 
угольник, скругленный квадрат, эллипс, окружность): 


фуре Т5вареТуре = (5%Весфапа1е, зебапцаге, 5&ВоопаВесек, 
5ЕВКоппабацчаге, $6Е111р5е, $%С1гс1е); 


_ асгае ‚=” _ «Рошибаиие ^ аиаге — о 


_ Эрве = эВеаае ЭРоиоВее 


Рис. 16.5. Стандартные фигуры 
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Фигура (рис. 16.5) полностью занимает все пространство компонента. Если за- 
дан квадрат или круг, а размеры элемента по горизонтали и вертикали отличают- 
ся, фигура чертится с размером меньшего измерения. 

Помимо стандартных графических инструментов ВгазЪ и Реп (шрифт для ком- 
понента не нужен), в компоненте определено свойство 5Варе: Т5вареТуре, ко- 
торое и задает вид геометрической фигуры. Изменение этого свойства приводит 
к немедленной перерисовке изображения. 


ТВеуе! — кромка 


Компонент класса ТВеуе1 носит оформительский характер и предназначен для 
визуального выделения группы элементов или отделения их друг от друга. Вид 
компонента (прямоугольник, рамка, верхняя линия, нижняя линия, левая линия, 
правая линия) определяет следующее свойство: 


фуре ТВеуе15раре = (65Вох, ЮзЕгаме, Б$ТорЬ1пе, 
Ь5ВоЕсотЬ1пе, рэзЬеЕЕЬ1пе, БзВларЕГ1пе); 
ргорегеу Зпаре: ТВеуе15$Паре; 


Стиль компонента (вдавленный или выпуклый) определяет другое свойство: 


Суре ТВеуе15%$у1е = (БзГомегеа, Б$зВа1зеа); 
ргорегеу 5%у1е: ТВеуе156у1е; 


Т5сго|Вох — панель с полосами прокрутки 


Компонент класса Т5сго1 1Вох служит контейнером для размещения других ком- 
понентов. Его отличительная особенность — возможность прокрутки и, следова- 
тельно, экономия пространства формы при необходимости размещения на ней боль- 
шого количества элементов управления. Замечу, что в современных программных 
продуктах относительно редко используются такого рода компоненты, предпочте- 
ние отдается многостраничным элементам управления с вкладками. Наиболее под- 
ходящей областью применения компонентов является размещение на них относи- 
тельно больших по размерам компонентов ТЕа1 +, ТСотроВох, ТМепо ит. п. 

Использование компонента не отличается сложностью: поместите его на фор- 
му и размещайте затем на нем другие компоненты. Если очередной компонент 
выйдет за пределы рабочей области компонента Т5сго11Вох, по сторонам кон- 
тейнера возникнут полосы прокрутки (рис. 16.6). 

Однако если свойство Апко5сго11 компонента содержит значение Га1зе, 
полосы прокрутки не появятся, и компонент будет отсекать «лишние» части своих 
дочерних компонентов. Еще одним важным свойством компонента является Ацко- 
$12е: если это свойство имеет значение Тгие, размеры компонента будут автома- 
тически изменяться так, чтобы все части дочерних компонентов оставались в его 
рабочей зоне, даже если для этого придется увеличить размеры внешнего кон- 
тейнера (формы). С помощью свойств Ног25сго11Ваги Уег%$сго11Ваг про- 
граммист может управлять свойствами каждой из полос прокрутки в отдель- 
НОСТИ. 
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Рис. 16.6. Размещение компонентов на компоненте ТЗсгоЙВох 


ТСпескы${Вох — группа флажков 


Подобно тому, как компонент ТВаЯ1оСбгопр группирует переключатели, компо- 
нент ТСреск!.1 з&Вох группирует флажки, позволяя обратиться к любому из них 
по индексу. 

Чтобы вставить в компонент группу флажков, следует раскрыть редактор его 
свойства Тфемз и ввести одну или несколько текстовых строк — каждая строка 
будет соответствовать поясняющей надписи справа от флажка. 

Свойства компонента ТСпескКВох перечислены в табл. 16.11. 


Таблица 16.11. Свойства компонента ТСВескВох 


ргорегеу А11]омСгауеа: Разрешает/запрещает использовать третье 
Воо1еап; состояние флажка сьбгауеа (нс уверен) 


ргорегЕу Вогаег5$у]е: Определяет тип рамки, очерчивающей компонент: 
ТВогаег$®у]1е; Ь$Мопе — нет рамки; р$551па1е — рамка 
толщиной в 1 пиксел 


ргорегеу Сапуаз: ТСапуаз; Это свойство используется для программной 
прорисовки флажков 


ргорегеу Спескеа [Тпаех: Содержит для флажка с индексом Тпаех значение, 
Тпеедег]: Воо1еап; идентифицирующее выбор пользователя. Для 
состояний сЪОпспескеа и сьСгауеа свойство 
имеет значение Га15е 


ргорегеу Со1иппз: Тпеедег; | Определяет количество колонок флажков 


ргорегЕу Тпеедга1Не1айе: Если имеет значение Тгое, компонент 
Воо1еап; автоматически изменяет высоту так, чтобы в нем 
полностью отображались все флажки 


ргорегеу ТеепНе1опе: Если свойство 5$ у1е компонента имеет значение 
Тп$есег; 1$Омпег)ОгамЕ1 хе, значение ТеетмНе1аН+ 
определяет высоту каждого флажка компонента. 
При других значениях 5+ у1е это свойство 
игнорируется 
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Свойство 


ргорег&у ГТфтепТпаех: 
Тпседег; 


Содержит индекс флажка, состояние которого 
изменилось (иидексация флажков начинается 
с нуля) 


ргорег®у Теетз: Т56г1п9$; Содержит подписи флажков компонента 


ргорегЕу Мо1%15е1есь: Если содержит значение Тгое, пользователь может 
Воо1еап; устанавливать несколько флажков 


ргорегЕу 5е1Соипе: Содержит количество установленных флажков, 
Тпседег; если свойство Ми115е1ес® содержит значение 
Тгое 


ргорегеу 5е1ескеа [Тпаех: Содержит значение Тгое, если установлен флажок 
Тпеедег]: Воо1еап; с индексом Тпаех 


ргорегеу богееа: Воо1еап; Сортирует по алфавиту подписи к флажкам 


ргорег®Еу Зтате [Тпаех: 
Тпеедег]: ТСрескВохбкаке; 


Содержит состояние флажка с индексом Тпдех: 
соОпсрескеа -— не установлен; соСпескеа — 
установлен; сьСсгауеа — не уверен 


Суре Т1Г1$5%еВохбеу1е = 
(1 55Еапаага, 
1Б0мпегОгамЕ`1хеа, 
150мпегргамУаг1аЬ1е); 
ргорег®еу 56у1е: 
ТЬ15ЕВох5еу1е; 


Определяет способ прорисовки флажков: 
15 апдага — флажки прорисовывает \/Л/т4о\5; 
1РО\пегОгамЁР1хеа — компонент использует 
программный метод прорисовки флажков, каждый 
из которых имеет одинаковую высоту 
ТеемНезане; 12ОмпегргамУаг1аЪ1е — флажки 
прорисовываются программно и могут иметь 
разную высоту 


ргорегеу ТаБИ1аеп: Определяет ширину табуляционного пробела 
Тпсечаег; 

ргорегеу ТорГпаех: Содержит индекс самого первого отображаемого 
Тпседег; флажка 


Для компонента определено событие, которое наступает при изменении состо- 
яния любого флажка: 


ргорег®у ОпС11скСпеск: ТМое1ЕуЕуепе; 


ТэриНег — вешка разбивки 


Компонент Т5$р11Е{ег предназначен для ручного (с помощью мыши) управле- 
ния размерами контейнеров ТРапе1, ТбгопрВох и им подобных во время прого- 
на программы. Визуально он представляет собой небольшую вертикальную или 
горизонтальную полосу, располагающуюся между двумя соседними контейнера- 
ми или на «свободной» стороне одного их них. 

Непременным условием правильной работы компонента является выравнива- 
ние контейнера (контейнеров), размерами которого (которых) он управляет, вдоль 
одной из сторон окна или охватывающего контейнера. Для примера на рис. 16.7 
показаны две панели, разделенные компонентом Т5р11Е{ег. Для нижней панели 
выполняется условие А1 1чп=а]1 Во ом, верхняя панель в этом случае может иметь 
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выравнивание а1Воефом или а1С11еп+е. Между панелями помещен компонент 
Т5$р11Е (ег с выравниванием а1ВоЕфом. 


_ Рае 


Рис. 16.7. Пример использования компонента Т5рЩег 


Свойства компонента Т5р1 1+ {ег представлены в табл. 16.12. 


Таблица 16.12. Свойства компонента ТэрЩег 


Свойство тины 


ргорегеу Веуе1еа: Управляет трехмерным изображением компонента. Если 
Воо1еап; имеет значение Ра] зе, компонент виден как узкая 
полоска фона между разделясмыми им компонентами 


Масога1Митрег = Содержит минимальный размер любого из компонентов, 


1..Н1ар (Тпеедег); которых разделяет компонент Т5р]1 1% +ег. Если 

ргорег®у М1п5127е: выравнивание имеет зпачение а1ЪеЕф или а1ВК1аве — 

Мабсога]1Митрег; минимальная ширина компонента слева и справа от вешки 
разбивки, если а1Тор или а1ВоЕ ом — минимальная 
высота компонента выше или ниже от нее 


Замечу, что в отличие от других видимых компонентов, Т5р11Е ег не имеет 
свойства $помН1пе, поэтому он не может отображать оперативную подсказку в не- 
большом окне. Однако у него есть свойство Н1п\, содержимое которого (до воз- 
можного разделителя в виде вертикальной черты |) может отображать обработ- 
чик события Арр11са&1оп .ОпН1п (см. раздел «Поддержка справочной службы» 
в главе 14). 

Для компонента определено событие ОпМоуеа, которое вызывается при лю- 
бом перемещении компонента мышью. 


ТЭтансТех{Е — текстовая метка 


Компонент Т5а®1сТехе во всем подобен своему «двоюродному брату» ТТаБе1 
за исключением двух аспектов. Во-первых, он порожден от класса ТИ1пСопего1 
и, таким образом, имеет \М!ш4о\\5-окно. Это обстоятельство может быть необходи- 
мым условием правильного взаимодействия с внешним для Оер|! элементом 
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АспуеХ, с которым текстовая метка связана своим свойством ГосазСопего1. Во- 
вторых, в его свойстве Вогдег5&у1е добавлено значение зз5опкеп, которое 
создает иллюзию рельефности компонента: 


Буре Т5сак1сВогаег5®у1е = (зрЮ$Мопе, $Ю5$51па1е, зрзбипкКеп); 
ргорегеЕу Вог4ег5еу1е: Т5&ак1сВогаег<®у1е; 


Все остальные свойства и методы компонента совпадают со свойствами и мето- 
дами ТЬаре1. Отмечу, что компонент обладает внешней и внутренней рамками, 
так что его вид можно разнообразить. 


ТСоттго!Ваг — контейнер для 
панели инструментов 


Компонент ТСопЕго1Ваг служит удобным контейнером для размещения пане- 
лей инструментов ТТоо1Ваг (см. раздел «ТТоо|Ваг и ТТоо|ВиЙоп — панель ин- 
струментов и кнопки для нее» в главе 17). Он активно использует технологию 
«причаливания» (Огав&ПосК) для управления положением панелей. На рис. 16.8 
показан компонент ТСопёго1Ваг с двумя помещенными на него панелями 
ТТоо1Ваг. 


Рис. 16.8. Пример использования компонента ТСомто!Ваг 


Если вы захотите повторить пример, проделайте следующее. 


1. Создайте новое приложение с пустой формой и поместите на нее компонент 
ТСопего1Ваг. 


2. Установите в его свойство А11ап значение а1Тор, в Адко$12е — Тгие, 
в ОгааК1па — АКроск. Оставьте в свойстве РргадМоае значение апМапца1. 


3. Поместите на свободное место формы два компонента ТТтадеЪ1з* (вкладка 
М п32 палитры компонентов) и наполните каждый из них двумя-тремя изобра- 
жениями. Чтобы наполнить компонент ТТмаде1 + изображениями, открой- 
те редактор изображений, дважды щелкнув на компоненте мышью или выбрав 
в его контекстном меню (щелчок правой кнопкой) команду 1таде!1$+ Ед\ог. 


4. В появившемся окне редактора щелкните на кнопке Ад4 и выберите любой ВМР- 
файл в каталоге [тадез\ВиКоп$. Файлы в этом каталоге имеют по два изображе- 
ния, в то время как компонент ТТмаде1.1 з& способен хранить только одиночные 
изображения одинакового размера. Поэтому редактор предложит вам разделить 
два изображения — согласитесь с ним (кнопка ОК). Щелкните на правом изоб- 
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ражении в окне редактора (оно предназначено для представления кнопки в не- 
доступном состоянии) и щелкните на кнопке Бе|ее, чтобы удалить его. 


5. Повторите предыдущий шаг для загрузки нескольких изображений (рис. 16.9) 
и затем закройте окно редактора. 


. ри ‚Заесеч |паде И 
ки _ Пемрыенс Сок 


2 о | г. ты Сапсе! _ 
_ И Союг. и 
^абе 


Рис. 16.9. Окно редактора |тадец$1 


6. Поместите на компонент Сопего1Ваг1 компонент ТТоо1Ваг (вкладка \п32). 


7. Установите в свойство Ацео51 2е компонента Тоо1Ваг1 значение Тгче, в свой- 
ство Ттадез — значение 1тадет 131 и поместите в него столько кнопок, сколь- 
ко изображений вы подготовили в Ттаде!.1з+1. Для вставки кнопки щелкни- 
те на компоненте Тоо1Ваг1 правой кнопкой мыши и выберите в контекстном 
меню команду М№е\м ВиКоп. 


8. Поместите на свободное место формы еще один компонент ТТоо1Ваг. Он ав- 
томатически прижмется к нижнему краю компонента СопЕго1Ваг1. Измени- 
те в его свойстве А] 1ап значение а1Тор на а1Мопе и мышью перетащите ком- 
понент несколько вниз — на этапе прогона программы этот компонент будет 
«причаливать» к компоненту СопЕго1Ваг1. Свяжите компонент ТТоо1Ваг 
с компонентом ТмадеГ 132 (свойство Тмадез) и создайте в нем кнопки (см. 
предыдущий шаг). 


9. Для обоих компонентов поместите в свойство ОгааК1па значение акроск, 
в ОгадМоае — апАлеома*1с ив Ац$о512е — Тгие. 


10. Запустите программу и перетащите нижнюю панель инструментов на компо- 
нент СопЕго1Ва!1. 


Свойства компонента ТСопего1Ваг представлены в табл. 16.13. 


Таблица 16.13. Свойства компонента ТСотто!Ваг 


Свойство Описание 


ргорег®у Разрешает/запрещает компонентам ТТоо1Ваг покидать границы 
Апфоргад: компонента ТСопЕго1Ваг 
Воо1]еап; 
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Свойство [Описание 


ргорег*у Содержит изображение, которое, периодически повторяясь, 
Р1сецге: создает фон компонента 
ТР1своге; 


Задаст высоту одного ряда панелей инструментов. Значение по 
умолчанию 25 в точности соответствует высоте одной панели, 
и в этом случае между рядами пет зазора 


ргорег*у 
Вом512е: 
ТВом512е; 


Если содержит Тгие, «причаливаемая» панель будет 
выравниваться по высоте ряда 


ргорег%у 
Вомбпар: 
Воо1еап; 


Следующий метод устанавливает все дочерние компоненты на их окончатель- 
ные позиции после «причаливания» или «отчаливания» очередной панели инст- 
рументов: 

ргосеацге 5Е1скСопего]1$; у1к&ща1; 

Этот метод нужно перекрыть, если стандартное размещение панелей по каким- 
либо причинам вас не устраивает. 


ТАррИсаНнопЕуептт$ — обработчик 
сообщений МИпаом/$ 


В отличие от остальных компонентов вкладки АЧЧ\опа( компонент ТАрр11са- 
с1опЕуепез не имеет видимого эквивалента в работающей программе. Его ос- 
новное и единственное назначение — служить приемником многочисленных со- 
общений, которые \/ш4о\/з посылает работающей программе. 

Лишь очень немногие программы нуждаются в специальной (отличной от уста- 
новленной по умолчанию) обработке сообщений — примером могут служить про- 
граммы, эмулирующие клавиатуру РОЗ или фильтрующие ввод пользователя 
(в учебных целях, например). 

Следующая простая программа познакомит вас с примером использования ком- 
понента. В ней фильтруется ввод программы в компонент ТЕЯ1 + так, чтобы запре- 
тить появление в нем любых цифр. 


1. На пустую форму поместите компоненты ТЕЯ1* и ТАрр11саЕ1опЕхуепез. 


2. Напишите следующий обработчик события ОпМеззаде компонента ТАрр11- 
са 1опЕуепЕз: 


ргосеааге ТГогп]1.Арр11саб1опЕуеп&$1Меззасде (уаг Мза: 
сачМ$Сс; ухаг Напа1еЯ: Воо1еап); 


Бед1п 
Напа1еа := Еа161.Косизеа апа (Мзч.Меззаде=ит_Спаг) 
апа (Мза.мРагап>=48) апа (Мза.мРагам<=57) 
еп; 


Если теперь запустить программу, ввод цифр в компонент Еа1 +1 будет блоки- 
рован. В нашей простой программе есть единственный компонент, способный по- 
лучать фокус ввода, поэтому проверка свойстваЕа1*1.Еосизеа в операторе при- 
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сваивания является излишней. Я ввел ее только для того, чтобы продемонстриро- 
вать, как программа может определить получателя клавиатурного ввода. 

Любая форма может иметь сколько угодно компонентов ТАрр1 1са*1опЕхепез. 
Одно и то же сообщение поступаст последовательно в каждый из них до тех пор, 
пока это сообщение не будет обработано или пока оно не поступит всем. Порядок 
получения сообщений обратен порядку размещения компонентов на форме: вна- 
чале сообщение получит последний размещенный на форме компонент, затем пред- 
последний и т. д. Этот порядок можно изменить с помощью метода Асе1уае. 
Запретить получение остальным компонентам уже обработанного сообщения мож- 
но с помощью метода Сапсе101 зраеск. Если в проекте имеется несколько форм, 
расположенные на них компоненты ТАрр11са1опЕуеп®&з начинают получать 
сообщения только после того, как соответствующая форма становится активной. 
Работа всех компонентов ТАрр11са&1опЕуепез будет блокирована, если в объ- 
екте Арр11са&1оп определен обработчик события ОпМеззасве. 

В инспекторе объектов представлены только два свойства компонента: Мате 
и Тач. 

Методы компонента ТАрр11сак1опЕуепез перечислены в табл. 16.14. Его 
события не представляют для программиста особого интереса. 


Таблица 16.14. Методы компонента ТАрИсайопЕме {$ 


Делает компонент первым получателем сообщений 


Метод 


ргосеацге АсЕ1уахе; 


Запрещаст получение текущего сообщения остальным 
компонентам 


ргосеаиге 
Сапсе1015зра®сПп; 


ТУачеЧн1ЕаКог — специализированный 
редактор списков 


Компонент ТУа1ле1.1 3&ЕЯ1 ог предназначен для редактирования списков, строки 
которых состоят из пар Имя=Значение. Такие списки широко используются в ре- 
естре \тао\$ и файлах инициализации. Наконец, начиная с версии 5, Реры по 
умолчанию в таком формате хранит файлы описания форм с расширением О0ЕМ. 
Если на пустую форму поместить компонент ТУа1пеЪ15Еа1 $ ог, диалоговый 
ресурс ТОрепр1а1оч и кнопку ТВае бол, то после загрузки в редактор файла 
Зоигсе\СВар_4\Ехатр(е\Ехатр(е.Ёт получим экран, показанный на рис. 16.10. 
Обработчик щелчка на кнопке имеет такой вид: 


ргоседиге ТГогпи1.В16В$п1С11сКк (бепаег: ТОБ)ес®); 
Бед2п 
1Е Орепр1а]1о91.Ехесоее %ЪВеп 
Уа]оет1$ЕЕа16о0ог1.56х1па$ .ГоааАЕгопЕ1 1е (Ореп01а1о091.Е11еМаме) 
епа; 


Непосредственным предком компонента ТУа1це1т15ЕЯ1Фог является класс 
ТСазфошОгамСк1а, поэтому многие его свойства, методы и события совпадают 
с описанными выше в этой главе свойствами, методами и событиями компонента 
Т5Ег1пасЕ1 а. 
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| Рот Мате 
| Роме Зе 


Рис. 16.10. Демонстрация компонента 1Т\УацеН Ея Ког 


Специфичные свойства компонента ТУа1щет1,15ЕЯ1еок перечислены в 
табл. 16.15. 


Таблица 16.15. Некоторые свойства компонента ТУашмеЦц {Ед йог 


Свойство 


ргорехг®у Се11$[АСо1, Открывает доступ к содержимому ячейки, лежащей на 
АВом: Тпседег]: пересечении столбца АСо1 со строкой АВом (нумерация 
ЗЕгарпа; столбцов и строк начинается с нуля) 


ргоре’геу Со1СоопЕ: Содержит количество столбцов 
Тпседекг; 


Буре ТО15р1ауОрЕ1оп = Свойство может включать следующие значения: 
(аоСо1итпТ1Е1е$, аоСо1итпТ1®1е5 — первая строка содержит заголовки 
оАцЕоСо1Везз?е, столбцов, определенные свойством Т1Е1еСарЕ1оп, 
ЧоКеуСо1Е1хеа) ; и не прокручивается; ЧоАцЕоСо1Кез12е — предписы- 
Тр15р]1ауОрЕ1опз$ = вает автоматически изменять ширину столбцов при 
зеЕ оЕ ТО15р1ауОр®1оп; | изменении размеров компонента; аоКеуСо1Е1хеа — 
ргорег®у если указано, ширина первого столбца, содержащего 
2015р1ауОре1оп$: имена, не мсияется при изменении размеров 
Тр1зр1ауОр®1оп$; 


ргорегеу ТеепРгорз Сложнос свойство, управляющее различными аспектами 
[сопзЕ КеуОгТпаех: отображения значений (см. ниже) 
Уаг1ап®]: ТТеепРгор; 


продолжение 
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Таблица 16.15 (продолжение) 


Свойство 


суре ТКеуОрЕ1оп = Управляет возможным изменением списка: кеуЕЯ1 — 
(кеуЕа1е, КеудАаа, пользователь может изменять имя параметра (в первом 
Кеуре1ехе, Кеу0Оп1аце); столбце); кеуАаа — пользователь может добавлять 
ТКеуОре1лоп$ = 5ее оЕЁ новую пару имя-значение нажатием клавиши тей 
Тр: зр1ауОрЕ1оп; (требует включения КеуЕа1{); Кеуре1еке — 
ргорег®у КеуОре1опз: пользователь может удалить выделенную пару 
ТКеуОре1оп3$; нажатием клавиши ее; кКеу0п1аче — названия 
вводимых пользователем имен должны быть 
уникальными 


ргорехеу Кеуз [Тпаех: Открывает доступ к названиям значений по их 
Тпседег]: 56гапда; индексам 


Содержит количество строк 
Содержит строки списка 
Содержит заголовки столбцов 


ргорег®у Уа1ое$ [соп$® Открывает доступ к значениям по их индексам 
Кеу: ЗЕг1лпа): Зег1па; 


Свойство ТеепРгорз класса ТТеетРгор имеет собственные свойства (табл. 16.16). 


Таблица 16.16. Свойства, относящиеся к свойству ЦцетРгорз$ класса Т\етРгор 


Свойство 


ргорег®у Еа1«Мазк: 
ЗЕгапа; 


Содержит маску для формирования значения. 
Правила создания маски описаны в разделе 
«ТМазКЕЧК — поле с маской ввода» этой главы 


фуре ТЕЗТЕ$еу1е = 
(ез51тр1е, е$Е111р5$1$, 
езР1скКГ1$6); 

ргорех&у Еа1е5еу1е: 
ТЕЧ 5еу1е; 


Определяет правила редактирования значения 
(см. ниже) 


ргорегеу МахЬепаеВ: Определяет максимальную длину (в символах) 


Трееаег; значения. Если 0, нет ограничений на длину 
ргорегеу Р1скгГ15е: Содержит раскрывающийся список возможных 
Т5Ег1па$; значений 

ргорегЕу КеааОп1у: Разрешает/запрещает редактирование значения 
Воо1еап; 


Значения свойства ЕЯ1 Е 5ху1е: 


# езб1тр1е — значение редактируется прямо в строке как в обычном одностроч- 
ном текстовом поле; 


е5Е]1 11р$15$ — в строку вставляется кнопка для вызова диалогового окна ре- 
дактора значения (возбуждается событие ОпЕа1 Ви опС11сК); 
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" езР1сКк|1з% — встроку вставляется кнопка для раскрытия списка возможных 
значений (возбуждается событие ОпбеЕР1ск115$%). 


Свойство Р1скт13+ не предназначено для программного доступа. Чтобы со- 
здать раскрывающийся список возможных значений, нужно свойству ТЕепРгорз. 
Еа1Е56у1е присвоить значение езР1сКкЪ1 3% и написать обработчик события 
ОпсеЕР1скЬ1 5%. Пусть, например, первая отображаемая в компоненте строка 
должна иметь раскрывающийся список. Тогда необходим такой код: 


ргосеаиге ТЕГогпи1.ГогиАс®1уафе (бепаехг: ТОБЗес®); 
Бед1п 

\Уа1иеЪ1$Еа1еог1.ТеетРгорз [1] .Е91Е56у1е := езР1сКкГ15$(; 
епа; 


ргосеаиге ТГогп1.У\Уа]11еЬ1$6ЕЯ91Еог1СеЕР1сКк11 5% (бепаег: 
ТОБ)]есе; соп$® КеуМапе: $%х1па; \Уа1оез: Т56г1паз$); 
Бед1п 
// Содержимое списка доступно через параметр Уа]1иез: 
\Уа]пез.Ааа ('1'); 


\Уа1цез.Ааа ('2'); 

Уа11ез$.Ааа('3'); 

У\Уа]пе$.Ааа ('4'); 
епа; 


Методы компонента ТУа1ае1зЕЕа1 ког перечислены в табл. 16.17. 


Таблица 16.17. Методы компонента Т\УацеЦц$ЕЯКог 


ргосеаиге Пе]1ефеБом (АВом: Удаляет из списка строку с индексом АБом. 
Тпфъедег); оуегг1ае; Свойство Кеудр&1опз должно содержать флаг 
Кеуре1еке 


Еипсе1оп РГ1паВоим (соп$е Ищет в списке строку с именем КеуМаме 

КеуМапе: $%&х1п9; уаг и возвращаст в параметре Вом индекс найденной 

Вом: Тпеедег): Воо1еап; строки. Возвращает значение Тгце в случае успеха 
поиска 


Еипсе1оп Тпзег®ЕВом (соп$® Вставляет в список строку вида КеуМаме=Уа]те. 

КеуМаме, Уа1пе: Зег1пда; Если текущая строка пуста, вставляемая стока 

Аррепа: Воо1еап): занимает ее место, в противном случае она занимает 

Тпседег; место перед текущей (если Аррепа=Еа1зе) или за 
ней (если Аррепа=Тгие). Возвращает индекс 
вставленной строки. Свойство Кеудр&1оп$ 
должно содержать флаг КеуАаа 


ргосеаиге КеЁгезй; Перерисовывает компонент 


ЕипсЕ1оп Отменяет все изменсния текущей строки 
ВезсогеСаггеп® Во\м: и возвращает значение Тхие в случае успеха 
Воо1еап; 


Методы Се11Вес+,МоцзеТоСе11 иМочзеСоогА компонента ТУа] ле 15ЕЕа1ог 
аналогичны одноименным методам компонента Т5Ег1пасгк1а. 
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ТЕабеан — однострочное поле с меткой 


Компонент ТТафе1Еа1+ представляет собой удобную комбинацию однострочно- 
го текстового поля с меткой. Надпись в метке указывается в свойстве Еч1Таре1. 
Следующее свойство определяет положение метки относительно текстового поля: 


Суре ТГаБе1Ро$1Е1оп = (]1рАБоуе, 1рВе1ом, 1рЬеЕе, 1рВ198е); 

ргорек®еу Габе1Роз1е1оп: ТГаре1Ро$1е1оп; 

Расстояние от метки до текстового поля (в пикселах) определяется свойством 
Таре1брас1па: 


ргорегЕу ГабБе1брас1па: Тпфедег; 


ТСо!огВох — список выбора цвета 


Компонент ТСо1огВох представляет собой комбинированный список, пунктами 
которого являются цвета, то есть предназначен для отображения и выбора цвета. 
В отличие от компонентов ТСо1огСг1А (вкладка 5атр(е$) и ТСо]1огО1а1оча (вклад- 
ка 01а(04$), состав отображаемых им цветов может меняться. 

Многие свойства, методы и события компонента совпадают с одноименными 
свойствами, методами и событиями его ближайшего «родственника» — компонен- 
та ТСопБоВох. 

Специфичные свойства компонента ТСо1огкВох перечислены в табл. 16.18. 


Таблица 16.18. Некоторые свойства компонента ТСоогВох 


Свойство [Описание 


ргорег®еу Со1огМапез [Тпаех: Возвращает имя цвета по его индексу в списке 
Тпседчег]: Зёгарда; 


ргорег®у Со1ог$ [Тпаех: Содержит список цветов 
Тпседег]: ТСо1ог; 


Содержит цвет, заданный по умолчанию. 
Свойство 5 у1е должно включать флаги 
сЬбуземСо1от$ и сЬ1пс1ааереЁач1* 


ргорегеу ПеЕац1ЕСо]1огСо1ог: 
ТСо1ог; 


Определяет пункт без цвета. Свойство 5% у1е 
должно включать флаги събуз6емСо1ох5 
и соТпс1ааеМопе 


ргорегу 5е1есфеа: ТСо]1ог; Определяет текущий выбранный цвет 


Определяет отображаемые компонентом цвета: 


ргорегеу МопеСо1огСо1ог: 
ТСо1ог; 


фуре ТСо1огВох5%у1ез$ = 


(сБ5сапаахаСо1охг$, со5сапаагаСо1ог$ — список содержит 
срЕхфсепаеЯСо1ог$, 16 основных цветов; съЕхбепаеЧСо1ог$ — 
собузветСо1ог$, список содержит дополнительные цвета, 
сЬТпс1ааеМопе, определенные в модуле Сгадр1с$; 
сь1пс1аАере{ац]1*, сьбузеетСо1от$ — в списке отображаются 
сЬСазбомсСо] ог, цвета с1Мопеусгееп, с15КуВ]1ще, с1Сгеам 
сЬРгее к уМамез); и с1МеЯаСгау; с 1пс1ааеМ№опе — список 
ТСо]1огВох5®у1е = содержит пункт с1Мопе; сЬТпс1а4ереЁаа1+ — 


зеЕё оЕ ТСо1огВох5Еу1ез; список содержит пункт с1РеЁао1*; 


ТСВай — диаграмма 349 


Свойство 


ргорегеу 56у1е: сЬСизЕомСо1окг — первый пункт списка 


ТСо1огВох5®у1е; открывает стандартное диалоговое окно 
ТСо1ог01а1049; соРге** уМатез$ — имена 
цветов отображаются без префикса с1 


ТСпат — диаграмма 


Компонент ТСваг* предназначен для графического представления числовых дан- 
ных. На рис. 16.11 показан пример использования компонента. 


8-9 10 41 12 13 14 15° 


Рис. 16.11. Пример использования компонента ТСВай 


Компонент содержит большое количество специфичных свойств, событий и ме- 
тодов — их детальное рассмотрение потребовало бы значительного объема книги 
и здесь не приводится. 

Общая схема его использования выглядит следующим образом. 

Вначале компонент помещается на форму. После щелчка на нем правой кноп- 
кой мыши вызывается контекстное меню компонента, которое в числе прочих со- 
держит команду Е Ч" Спа" — с помощью этой команды вызывается многостранич- 
ное окно редактора компонента. Вкладка 5епе$ этого окна открывает доступ к так 
называемым сериям — объектам класса ТСрагЕ5ег1ез, которые, собственно, и бу- 
дут отображать наборы чисел в графическом виде. Чтобы отобразить данные, нуж- 
но создать как минимум одну серию — для этого следует в окне редактора щелк- 
нуть на кнопке Ад4 и выбрать подходящий тип диаграммы (рис. 16.12). 
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Рис. 16.12. Возможные виды диаграмм для компонента ТСпац 


После закрытия окна редактора компонент будет содержать диаграмму, реаль- 
ный вид которой зависит от фактических данных, генерируемых работающей про- 
граммой и добавляемых к серии с помощью метода Ааах, Ааау или АЗаху объекта 
ТСраге5ег1ез (получить доступ к нужной серии можно с помощью индексиро- 
ванного свойства 5ег1ез11 $ — первая созданная серия имеет индекс 0, вторая 1 
ит. д.). Например, график, показанный на рис. 16.11, создал следующий обработ- 
чик события ОпАс+ 1 таке формы: 


ргоседиге ТГоги1.РГогпАсе1уафе (бепаег: ТОБ)ес®); 
уаг 

к: Тпсеаег; 
Бед1п 

Бог К := 0 ®о 20 а 
СГах%1.бег1е$11$6[0].Аааху (К, з1п (К*р1/10),'',с1Веа); 
епа; 


За более полной информацией о компоненте обратитесь к встроенной справоч- 
ной службе Пер. 


ТАсНопМападег — менеджер действий 


Вместе стремя другими компонентами вкладки АЯ опа( — ТАсе1опМа1пМепоВах, 
ТАСЕ1опТоо]1Ваг и ТСазвошО1а — компонент ТАсф1опМапасдзег позволяет со- 
здавать настраиваемый пользовательский интерфейс. Таким интерфейсом обла- 
дает, например, среда Реры: вы можете добавить/удалить любую кнопку панели 
инструментов, запретить/разрешить выбор кнопок и команд меню ит. п. 
Компонент ТАС 1опМападег централизует однотипные действия, производи- 
мые схожими в функциональном отношении элементами интерфейса. Каждое та- 
кое действие компонент сохраняет в дисковом файле, что позволяет программе 


Сары ео о мя тети 
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«запоминать» последние настройки, сделанные пользователем. Таким образом, 
компонент значительно расширяет функциональность компонента ТАс&1оп115% 
(см. раздел «ТАсИоп[.15ё — список действий» в главе 15) и, по существу, делает его 
ненужным. 

_ Компонент оперирует категориями однотипных действий (Е 91%, Е11е, Еогща* 
ит. п.) и может размещать категории в контейнере ТАсЕ1опМа1пМепоаВаг (ввиде 
команд меню }, а входящие в них действия — в контейнере ТАс+1опТоо1Ваг (в виде 
кнопок панели инструментов). В Ое|рН! предусмотрены 12 стандартных катего- 
рий, многие действия которых заранее определены. Например, в категорию Е11е 
входит предопределенное действие ТЕ1 1еЕх1&. Выбор в меню команды или щел- 
чок на кнопке панели инструментов, инициирующей это действие, приводит к за- 
вершению работы программы. 

Познакомимся с методикой использования компонента на следующем приме- 
ре (бопгсе\Свар 16 \АсЕ1опМападег\АсЕМепремо.арг). 


1. Поместите на пустую форму компоненты ТАсЕ1опМападег, ТАСк1опМа1п- 
МепоВаг, ТАС®1опТоо1Ваг и ТСаз$от12ер01а. По умолчанию контейнеры 
ТАсе1опМа1пМепоВаг и ТАСЕ1опТоо]1Вахг займут верхнюю часть формы, 
положение двух других компонентов не имеет значения. 


2. Дважды щелкните на компоненте или вызовите его контекстное меню и выбе- 


рите команду Си5отт2е — на экране появится окно редактора компонента. Пе- 
рейдите на вкладку АсНоп$ (рис. 16.13). 


|. Тообые ‚Аефот | Орнопз. 


: В т своп) Ц 


| :. То га асфолз о ом аррисанол тру ад ап9 Фор Нот оне 
р ‚Салвроцев ог АсНоп$ ото а ап еззито АснопВаг. _ 


| свою семе бери | | 


Рис. 16.13. Редактор компонента ТАсйопМападег 


3. Щелкните в списке Асйоп$ правой кнопкой мыши и выберите в контекстном 
меню команду Мем/ ЗФапдаг4 АсНоп или просто нажмите клавиши (#1 +]п$ — на 
экране появится дополнительное окно с перечнем всех определенных в О@ры 
классов для стандартных действий (рис. 16.14). 
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_ Сасе! | 
Рис. 16.14. Окно со списком стандартных действий 


4. С помощью полосы прокрутки выберите в списке все классы, связанные с кате- 
горией Е11е (для выбора нескольких классов одновременно щелкайте на каж- 
дом, удерживая нажатой клавищу С{1) и закройте окно щелчком на кнопке ОК. 


2. «Схватите» мышью категорию Е11е всписке Саферогиез (см. рис. 16.13) и пере- 
тащите ее на компонент ТАСсЕ1опМа1пМеповВахг. Из списка Асйоп перетащите 
на компонент ТАСсЕ1опТоо1Ваг элемент Ех1 $. 


6. Поместите в свойство/событие АсЕ1опМападег компонента ТСазеом1 2е019 
ссылку на компонент АсЕ1опМападекг1. 


7. Для формы напишите следующий обработчик события ОпрЬ1С11ск: 


ргосеаиге ТЕГоги1.ЕГЕогирр1С11ск (бепаег: ТОБ)ес®); 
Бед1п 

Со5Еом12ер0141.5пом 
епа; 


Если вы запустите программу, то увидите пустое окно с меню [Не и кнопкой 
Ех на панели инструментов, причем команды меню (кроме недоступной команды 
Кип) и кнопка на панели инструментов будут выполнять ожидаемые от них дей- 
ствия. Двойной щелчок на форме активизирует уже знакомое нам (см. рис. 16.13) 
окно редактора АсЕ1опМападег1, и вы сможете изменять состав команд меню 
и кнопок панели инструментов. 


Глава 17 
Компоненты вкладки \Лп32 


Компоненты вкладки \/п32 предназначены для разработки программ с усложнен- 
ным интерфейсом — предоставляемые ими элементы управления в традиционных 
программах обычно не требуются. 


ТТабСоп{то! — набор вкладок 


Компонент ТТаБСопего1 представляет собой контейнер с вкладками. Свойство 
Таз определяет названия и количество вкладок. Событие ОпСвапде возникает 
при выборе новой вкладки и позволяет управлять содержимым окна компонента. 
Для примера на рис. 17.1 показано использование компонента для управления ка- 
лендарем (с помощью компонента ТТабСопего1 созданы вкладки с названиями 
месяцев). 


Год: 


Рис. 17.1. Управление календарем с помощью компонента ТТабСомщго! 
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Свойства компонента ТТаЪСопЕго1 представлены в табл. 17.1. 


Таблица 17.1. Свойства компонента ТТаБСоп\го! 


Свойство Описание 


ргорегеу 015зр1ауКесс: Определяет рабочую зону компонента, 
ТВесе; предназначенную для размещения других 

компонентов. Клиентская часть компонента 
содержит зону вкладок и рабочую зону 


Если содержит значение Тгое, название вкладки 
автоматически выделяется цветом, когда на ней 
находится указатель мыши 


ргорег®у НоЕТгаск: 
Воо1еап; 


ргорег®у Мои1е1[1пе: 
Воо1еап; 


Разрешает располагать вкладки в несколько рядов. 
Если содержит значение Га1ъе, и вкладки не 

умещаются в границах компонента, в зону вкладок 
автоматически вставляются кнопки прокрутки 


Разрешает/запрещает перемещение неактивных 
рядов вкладок на противоположную сторону 

компонента. Учитывается, если количество рядов 
больше 2 


ргорегеу 5сго11Орроз1*е: 
Воо1еап; 


Определяет высоту каждой вкладки в пикселах. Если 
содержит 0, высота вкладок выбирается 
автоматически в зависимости от выбранного шрифта 


ргорегеу ТарНе1апе: 
5ма111п*; 


ргорегЕу ТарТпаех: Определяет индекс выбранной вкладки или 
Тпеедег; содержит -1, если пи одна из вкладок не выбрана. 
Индексация пачинается с 0 


ТТаюРо$1&1оп= (&рТор, Определяет положение зоны вкладок относительно 
ЕрВоЕ ом); рабочей зоны компонента (ЕрТор — вверху, 
ргорехеу ТабРоз1е1оп: ЕрВое вом — внизу) 
ТТабРо$1%1о0оп; 


ргорегеу ТаБз: Т$Ег1паз; | Определяет надписи на вкладках и их количество. 
Чтобы добавить или удалить вкладку, пужно 
добавить ее надпись в список ТаЪз или удалить 
надпись из списка 


Определяет ширину каждой вкладки в пикселах. 
Если содержит 0, ширина каждой вкладки 
выбирается индивидуально, в зависимости от длины 
се надписи 


ргорегеу Тар\1аев: 


Помимо события ОпСВапае, возникающего после перехода к новой вкладке, 
для компонента определено также событие ОпСпапа1 па, которое возникает перед 
сменой вкладки: 


фуре ТТабСВапа1паЕуепЕ = ргоседиге (бепаег: ТОр)есе; 
уаг А11омСВапде: Воо1еап) о©оЁ 
оБ)есе; 
ргорегеу ОпСпапа1па: ТТарСпапа1паЕуепе; 
Обработчик события может запретить выбор вкладки, вернув в параметре 
А] 1омСПапсе значение Га] 5е. 
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ТРадеСопно! — набор страниц с вкладками 


Компонент ТРадчеСопего1 в отличие от компонента ТТарСопего1 может содер- 
жать несколько перекрывающих друг друга страниц (панелей) класса ТТарЗВеек. 
Каждая страница выбирается щелчком на связанной с ней вкладке и может содер- 
жать свой набор помещенных на нее компонентов. 

Чтобы на этапе конструирования добавить новую страницу или выбрать ранее 
вставленную, щелкните на компоненте правой кнопкой мыши и выберите в кон- 
текстном меню команду № м Раде (Новая страница), №ех{ Раде (Следующая страни- 
ца) или Ргемои$ Раде (Предыдущая страница). Смена страниц идет циклически, то 
есть после показа последней отображается первая и наоборот. 

Помимо свойств Но&Тгаск, Мо1+11Т,1пе, $сго11Орроз1е, ТабНе1ап+*, ТаБ- 
Роз11о0п и ТаБМ1аА%Ю, которые аналогичны одноименным свойствам компо- 
нента ТТабСопего1, компонент ТРадзеСопе ко] имеет специфические свойства, 
перечисленные в табл. 17.2. 


Таблица 17.2. Свойства компонента ТРадеСощго! 


Свойство [Описание 


ргорег®у Содержит ссылку на активную страницу. Установка нового 
Асе1уеРаде: значения Асе1уеРаде размещает соответствующую 
ТТарзреее; страницу поверх остальных. Для выбора новой страницы 
следует использовать методы 5е1ес&Мех® Раде 
и ЕзпаМехфРаде 


ргорег®Еу Содержит количество страниц (только для чтения) 
РадеСоцп®: 
Трёедег; 


ргорегеу Радез Возвращает ссылку на страницу по ее индексу (только для 
[Тпаех: Тпфбедег]: чтения) 
ТТарЗвее*; 


Методы компонента ТРадеСопего1 перечислены в табл. 17.3. 


Таблица 17.3. Методы компонента ТРадеСогиго! 


Еипсе1оп Е1паМехеРаде Ищет следующую страницу: СагРаде — текущая 

(СигРаде: ТТар5пеет; страница; бсоГогмага — содержит значение Тгое, 

СоРогмака, если поиск идет от первой страницы к последней; 

СПпескКТаЬ\У1 $15]е: СпесКТаБУ1 $151е — содержит значение Тгое, если 

Воо1еап): ТТарбтеек; из поиска исключаются страницы с признаком 
Таь\У1з161е=Га1 зе. Возвращает ссылку на 
найденную страницу. Если страница СогРасде не 
принадлежит компоненту, возвращает ссылку на 
первую или последнюю страницу в зависимости от 
параметра соГогмага 


ргосеаоге 5е1ес&МехеРаде | Делает активной другую страницу: если 
(Согогиага: Воо1еап}; Согогмага=Тгие, активизируется следующая 
страпица, в противном случае — предыдущая 
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ТИтаде $1 — хранилище изображений 


Компонент класса ТТтаде!т1з% представляет собой контейнер для хранения мно- 
жества рисунков одинакового размера. Он может быть полезен при программном 
создании набора кнопок для панели инструментов, секций управляющего заголов- 
ка, анимационных эффектов и вообще там, где требуется индексированный до- 
ступ к изображениям. 

Компонент не имеет собственной канвы и поэтому не может самостоятельно 
отображать хранимые в нем изображения, которые могут быть растрами (ВМР) или 
значками (100). Его метод Охам получает канву от другого компонента и рисует 
изображение в клиентской области этого компонента. В компоненте есть множество 
специальных свойств и методов, упрощающих обслуживание набора изображений. 
Для получения дополнительной информации обратитесь к встроенной справоч- 
ной службе. Пример использования компонента имеется в разделе «ТСопго!Ваг — 
контейнер для панели инструментов» главы 16. 


ТАСВЕСЧКН — поле формата ВТЕ 


Компонент ТВ1свЕа1 © представляет собой многострочное редактируемое тексто- 
вое поле, работающее с форматом КТЕ (К1сВ Техё Еогтаё — расширенный тексто- 
вый формат). Текст формата ВКТЕ хранит дополнительную служебную информа- 
цию, управляющую свойствами каждого абзаца и сменой шрифта по ходу текста. 

На рис. 17.2 показан пример использования компонента. Полный текст про- 
граммы, с помощью которой создан рисунок, приводится в проекте $оигсе\ 
СПар_17\КспЕа{бето\ЕсрЕад)ето.арг. 


Демонстрация 


возможностей компонента 


ТЕСПЕЧЗСИ 


Рис. 17.2. Окно демонстрационной программы НспЕ9Оето 


Значительный объем кода программы и достаточно сложный ее интерфейс не 
позволяют вставить в книгу листинг программы и описание процесса конструиро- 
вания формы — смотрите проект, снабженный подробными комментариями. От- 
мечу несколько любопытных деталей. Прежде всего обратите внимание на значки, 
определяющие границы абзаца. Они реализованы с помощью меток ТТаъе1, ис- 
пользующих шрифт \/т4!15$. Набор символов этого шрифта представляет собой 
множество разного рода значков, заменяющих стандартное начертание того или 
иного символа. В частности, кириллические символы «йЙ» и «к» заменяются соот- 
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ветственно значками № и Х. Чтобы перемещение мышью этих значков на новое 
место приводило к нужному изменению той или иной границы, необходимо поло- 
жение метки записать в свойство ХХХТпаеп* (Е1гзЕТпаепф, БеЕ&Тпаеп®, Влав®- 
Тп4еп+ — см. ниже) основного или выделенного текста. Обратите внимание: при 
установке границы компонент учитывает значение соответствующего свойства с ко- 
эффициентом 4/3. Поэтому истинное положение метки перед установкой в свой- 
ство умножается на 0,75. 

Компонент использует вспомогательные объекты класса ТТехЕАЕЕг1роеез 
для хранения атрибутов шрифта. Эти атрибуты распространяются на весь текст 
через свойство компонента Ре АЕ г1рифез или на выделенную часть текста — 
через его свойство $е1 АЕ г1Бокез. Помимо обычных шрифтовых свойств Сваг- 
Зее, Со1ог, Незан+, Маме, Р1ЕсП, $12е и 5% у1е (см. класс ТГКопё) объект 
ТТехе АЕ г1рисез имеет также свойства Соп$1 5 сепеАЕг1рифези Ргосессеч. 
Первое доступно только для чтения и содержит набор текстовых характеристик, 
общих как для всего текста, так и для его выделенной части. Свойство Реосесфеа 
защищает весь текст или его части от редактирования. Попытка изменить текст, 
имеющий атрибут Ргосес+еа, вызывает обработчик события ОпРгокес&Стападе, 
который может разрешить или запретить изменения. По умолчанию изменения 
запрещены. 

Для каждого текстового абзаца создается объект класса ТРагаАсг1ра*ез, 
в котором сохраняются атрибуты абзаца. Эти атрибуты доступны через свойства 
класса ТРагаАк г 1 асе, перечисленные в табл. 17.4. 


Таблица 17.4. Свойства класса ТРагаА\ и Щез$ 


Свойство [Описание 


ргорегеу А11аптепь: Определяет горизонтальное выравнивание текста 
ТА] 1апмепе; абзаца относительно границ компонента 


ргорегеу Е1гэЕТпаепе: Определяет отступ текста первой строки абзаца 
ЪопаТпе; в пикселах от левого края рабочей зоны компонента 


ргорегЕу ГеЕсТпаепь: Определяет отступ остальных строк текста абзаца 
ТопаТпЕ; в пикселах от границы, устанавливаемой свойством 
Е1узЕТпаепе 


ТМитрег1па$©у1е = Определяет, падо ли вставлять слева от абзаца 
(п5М№опе, п5Ви11е6); маркеры списка. Если содержит значение пзВу11е%, 
ргорегу МопЬег1па: маркеры списка вставляются 

ТМ№Мипбег1пабеу1е; 


ргорегеу К1апеТпаепс: Определяет отступ текста абзаца в пиксслах от 
ТопаТпе; правого края компонеита 


ргорег®еу Тар [Тпаех: Для табулостопа с индексом Тп4ех содержит его 
ВуЕе]: ГопаТпе; позицию в пикселах от левого края компонента 


ргорегЕу ТабСоопе: Определяст количество табулостопов в строке абзаца 
1пседег; 


ПРИМЕЧАНИЕ По поводу зпачений свойств ХХХТпаепе см. выше пояснение к демон- 
страционному примеру. 
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В табл. 17.5 представлены свойства компонента ТВ1СНЕЯ1 +. 


Таблица 17.5. Свойства компонента ТВ сНЕай 


Свойство бпивани 


ргорег%у Определяет шрифтовые атрибуты всего текста 
РеЕАбЕг1рокез: 
ТТехсАЕЕг1риеез; 


ргорег%у 
Н1Аае$сго]1]Вагз: 
Воо1еап; 


Определяет, будут ли автоматически появляться полосы 
прокрутки, если текст отсекастся границами компонента. 
Игнорируется, если свойство $сго11Вагз$ содержит 

значение $5$5Мопе 


Определяет, будет ли убираться выделение текста, если 
компонент потеряет фокус ввода 


ргорег®у 
Н1Аебе1есе1оп: 
Воо1еап; 


Содержит набор строк текста. С помощью его методов 
ТоааЕгомЕ11е И бауеТоГР11е компонент может читать 
текст из файла или записывать в него текст 


ргорег®у Г1пез: 
Т56г1п95$; 


ргорегеу РадеВесе: Определяет размеры страницы при печати на принтере 


ТВКесс; 


Содержит атрибуты текущего абзаца, то есть абзаца 
с выделением или с текстовым курсором. Программа не 
может изменить свойство Рагадгарп, но может 

изменить свойства связанного с ним абзаца 


ргорег®еу Рагадгарп: 
ТРагаА Е г1рокез; 


Запрещает/разрешает записывать в файл или читать из 
него служебную информацию формата ВТЕ (Тгое — 
запрещает) 


ргорекеу Р1азпТехе: 
Воо1еап; 


ргорег®у Определяет шрифтовые атрибуты выделенного текста 
бе1Аееузрасез: 
ТТехЕА Е у1ракез; 


Задает длину в символах выделенной части текста 


ргорегеу 5е1Гепо®п: 
Трседег; 


Определяет номер первого символа выделепной части 
текста от начала текста (нумерация символов начинается 
С 0). Если нет выделения, определяет символ, перед 
которым располагается текстовый курсор 


ргорегЕу 5е15еаге: 
Тпбедег; 


Содержит выделенный текст. Установка нового 
значения 5е1Тех& заменяет выделенный текст новым, 
аесли нет выделения — вставляет его в позицию курсора 


ргорег®у 5е1Техе: 
ЗЕгара; 


Свойство Тех компонента, похоже, не имеет ограничений — во всяком слу- 
чае, мне удалось разместить в нем 800 000 байт (проект СВар_17\РКспЕЧ{Тез{\ 
КОТез{.4рг). Замечу, что метод Т11пез .Ада выполняется в нем намного медленнее, 
чем в компоненте ТМемо, так что ждать окончания размещения в компоненте 
50 000 строк по 16 байт каждая мне пришлось около 20 минут (1700 МГц, 
256 Мбайт, \/т4о\з ХР). 
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Методы компонента ТВ1свЕЯ1 < перечислены в табл. 17.6. 


Таблица 17.6. Методы компонента Т—ЁЕ:спЕдй 


Метод [Описание 
ргосефиге С1еаг; 


ТбеагспТуре = (зЕМпо1еМога, Ищет в тексте строку Зеассь 5% г 
$ЕМа&сйСазе); Тб5еахсвТурез = зе | и возвращает индекс первого ее символа 
оЁЕ ТбеагсНТуре; при удачном поиске: ЗЕагЕРоз$ — начало 
Еипсё1оп Е1паТехф (сопз® поиска: тепаей — длина строки, Ор*10п$ 
Зеагсп5 Ех: З6к1п9; Збаг®Роз, указывает, будет ли поиск идти по целым 
ТепаЕр: Тпеедег; ОрЕ1опз: словам и надо ли учитывать регистр букв 


ТбеагсПпТурез) : Тпфедег; 


Еипсё1оп Сбесбе1Тех®ВиЕ (ВаЕЕег: Копирует не более ВыЕ$12е символов 

РСраг; ВцЁЕ512е: Тпъедег): выделенного текста в буфер ВоЕЕег 

Тпседег; и возвращает количество скопированпых 
СИМВОЛОВ 


ргосеаиге Рг1п{(сопз®е Саре1оп: Форматирует текст по границам листа 

5Е:1п9); бумаги и печатает его на принтере, 
заданном по умолчанию. Параметр 
Сар®1оп определяет заголовок печати 


События компонента ТВ1спЕа1 {< представлены в табл. 17.7. 


Таблица 17.7. События компонента Т—ЁеПЕдн 


Событие 


ТВ1срвЕЯ1ЕРгофесеСрапае = Возникает при попытке изменить текст, 

ргосеаоге (бепаег: ТОБлес%; имеющий атрибут Ргохесъеа: 

СбагеРоз, ЕпАРоз: Тпфеаег; уаг ОсахЕ Роз, ЕпАаРо$ — соответственно 

А] 1о\иСрапде;: Воо1еап)} ©оЁЕ оЪ]зес®; начальная и конечная позиции 

ргорегеу ОпРгокес®Спапде: изменяемого текста. В параметре 

ТВ1СВЕЧ1ЕРгокес&Спапае; А] 1омСвапде обработчик возвращает 
значение Тгое, если можно изменять 
текст 


ТВ1спЕа1ЕВКез12геЕуеп® = ргосеаиге Событие связано с перерисовкой текста 

(Зепаег: ТОБ)есе; Весе: ТВес®) оЕЁ из-за изменения размеров шрифта. 

ор]ес®е; ргорег®еу ОпКез12екеаоезе: Параметр Вес& содержит 

ТК1срЕа1 Е Кез12еЕуепе; прямоугольник, который будет 
перерисован 


ТВ1срЕЧ165ауеС11рроага = Возникает в момент удаления 
ргоседоге (беп4ег: ТОБ)есе; компонента и извещает его о том, что 
№атОБ)]есе$, МимСПаг$: Тпеедег; в буфере обмена осталась помещенная 
уаг ЗауеС11рроаг@: Воо1еап) оЁ компонентом информация. Если 
оБ)ес*; обработчик вернет значение Га15ъе 
ргорегеу ОпбауеС11рроага: в параметре $ауеС11рьоага, буфер 
ТВ1СсПЕЯ1Е5ауеС11рЬоаг@; обмена будет очищен 


ргорек®еу Опбе1есЕ1опСпапае: Возникает при изменении выделенного 
Т№оЕ1ЕуЕуепе; текста 
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ТГгаскКВаг — ползунок 


Компонент класса ТТгасКВаг предназначен для плавного изменения числовой 
величины. Он во многом схож с элементом управления Т5сго11Вахг (см. раздел 
«Т5сгоЙВаг — полоса прокрутки» в главе 15) и отличается от него, в основном, 
оформлением. 

Свойства компонента ТТхаскКВаг представлены в табл. 17.8. 


Таблица 17.8. Свойства компонента ТТгасКВаг 


Свойство Гопивание 


ргорегеу Егеадоепсу: Определяет частоту нанесения меток: 1 — каждое 
Тпеедег; значение диапазона изменения имеет метку; 2 — 
каждое 2-е значение имеет метку ит. д. 


ргорег®у 1пе517е: Определяет минимальное смещение ползунка при 


Трседзег; нажатии клавиш перемещения курсора или 
перетаскивании мышью 
ргорег®у Мах: Тпеедекг; Определяет максимальное значение диапазона 


изменения 


ргорег%еу М1п: Тпеедег; Определяет минимальное значение диапазона 
изменения 


ргорегЕу Ог1лепкак1оп: Определяет ориентацию компонента: 
ТТгаскВагОг1епфа%1оп; ЕгНог12оп®а1 — горизонтальная; ЕгУег®1са1 — 
вертикальная 


ргорегеу Раче$12е: Тпфедег; | Определяет смещение ползунка при нажатии 
| клавиш Раде Ур, Раде Вомп или при щелчке мышью 
на концах шкалы | 


ргорегеу Роз161оп: Тпкедег; | Определяет текущее положение ползунка 
ргорегЕу 5е1Епа: Тпфедег; Задает конечную позицию выделения 
ргорегеу 5е15$аг®: Тпеедег; | Задает начальную позицию выделения 


ТТ1сКМакгк = ($пВокбомВ1айе, | Определяет способ нанесения меток: 
спТорьЬеЕЕ, ЕмВо®В); Е пВоомВ1а1п{ — внизу или справа; 
ргорег®еу Т1сКМагКкКз: с пТорЪеЕ* — вверху или слева; епВое ом — по 
ТТ1сКМагКк; обеим сторонам 


ТТ1сК56у1е = (6$Мопе, Определяет стиль нанесепия меток: + $Мопе — нет 

Е5Айсео, ©$Мапиа1); меток; ЕзАссо — метки наносятся с частотой 

ргорег®еу Т1скоку1е: Егеаиепсе; &5Мапоа1 — напосятся начальная 

ТТ ск$еу1е; и конечная метки, остальные наносит программа 
с помощью метода 5е Т1ск 


С помощью следующего метода метка устанавливается в позицию, определяе- 
мую значением Уа1 ще: 
ргосеаиге ЗееТ1аск(Уа1ае: Тпфедег); 


ТРгодге$$Ваг — индикатор процесса 


Компонент ТРходгез5Ваг предназначен для отображения хода выполнения дли- 
тельного по времени процесса. Он имеет много общего с компонентами Т5го11Ваг 


ТУрбомт — счетчик 361 


И ТТгаскКВахг, но в отличие от них у него нет регулятора, то есть с его помощью 
можно только отображать числовую величину, но пользователь не может ее изме- 
НЯТЬ. 

Втабл. 17.9 представлены свойства, а в табл. 17.10 — методы компонента ТРго- 
агез$Вак. 


Таблица 17.9. Свойства компонента ТРгодгезВаг 


Свойство писание 
ргорегеу Мах: Тпеедег; | Определяет максимальное значение диапазона 
изменения свойства Ро$110п 
ргорегеу М1п: Тпеедег; | Определяет минимальное значение диапазона изменения 
свойства Ро$1е1о0п 
ргорегЕу Ро$1Е1оп: Содержит текущее значение отображаемой величины 
Трпсесдег; 


ргорег®у 5%ер: Шаг наращивания свойства Ро51%1оп методом 5+ерте 
Тпеедег; 


Таблица 17.10. Методы компонента ТРгодгез$Ваг 


ргосеацге 5%ерВу (Ое1*а: Наращивает значение свойства Ро51%1 оп на 
Тпеедег); величину Ре1фа 


ргосеааге З%ерт*; Наращивает значение свойства Роз} 1оп на 
величину, определяемую свойством 5сер 


ТОрбомт — счетчик 


Компонент ТОрромп предназначен для пошагового регулирования числовой ве- 
личины. Он имеет пару кнопок, с помощью которых величина наращивается или 
уменьшается. Обычно компонент ТОрро\мп связан с компонентом класса ТЕЯ1 Е 
(текстовым полем), который отображает регулируемую величину и при необходи- 
мости обеспечивает возможность ее непосредственного редактирования. Связан- 
ный компонент называется компаньоном. 

Свойства компонента ТОрромп перечислены в табл. 17.11. 


Таблица 17.11. Свойства компонента ТУрОомт 


Свойство [Описание 


ТОРА] 1апВаЕ$оп = Определяет положение счетчика относительно 
(иаЪеЕс, чав191е); компаньона: цафеЕ* — счетчик располагается слева от 
ргорегеу А11апВоае оп: | него; оав1ап*& — справа от него 

ТОРА] 19пВоевоп; 


ргорегеу АггочКеуз: Разрешает/запрещает интерпретировать нажатие клавиш 
Воо]1еап; Ти} как щелчки, соответственно па направленной вверх 
и направленной вниз кнопках счетчика. Игнорирустся, 
если компонент не связан свойством Аззос1аее 
с компаньоном 


продолжение :# 
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Таблица 17.11 (продолжение) 


Свойство [Описание 


ргорегеу Аззос1аее: Определяет связанный компонент (компаньон). Кнопки 
ТИ1пСопего1; автоматически располагаются с пужной стороны 
компаньона и выравнивают свою высоту по его высоте 


ргорег®у Шпсгепепь: Определяет шаг наращивания/уменьшения регулируемой 
5$ма11Тпе; величины 


ргорег®у Мах: Определяет максимальное значение диапазона изменения 
5та]11Тпе; регулируемой величины 


ргорегеу М!пт: Определяет минимальное значение диапазона изменения 
5та11Тпе; регулируемой величины 


ТОрОг1епфа®1оп = Определяет ориентацию компонента: адНог12оп$а1 — 
(иЧНог12опфа1, по горизонтали; чаУегЕ1са1 — по вертикали 
иАУег®1са1); 

ргорегеу Ог1лепеае1оп: 

ТОРОг1епфа®1оп; 


ргорег®у Роз1Е1оп: Содержит текущее значение регулируемой величины 
5ма11Тпе; 


ргорегеу Тпоизапаз: Если содержит значение Тгоце, при отображении числовой 
Воо1еап; величины в компаньоне в текст вставляются разделители 
тысяч 


ргорегеу Игар: Запрещает/разрешает выход значения Ро51 1 оп из 
Воо1еап; диапазона Мах...М1п (Тгие — заирещает) 


Для компонента определены два события. Первое событие: 


фуре ТОПОСПапа1паЕуеп®е = ргосеаиге (бепаег: ТОБЗесе; 
уаг А11о\СПапдае: Воо1еап) оЕ оЪдесЕ; 
ргорегеу ОпСпапа1па: ТООСрапа1пЕуепе; 


Это событие возникает при любом изменении регулируемой величины. Обра- 
ботчик события в параметре А11омСпапде сообщает, может ли величина изме- 
ниться. Второе событие: 


фуре ТООВ&пТуре = (6&М№ехе, РёРге\у); 
Суре ТООС11скЕуепе = ргосеааге (бепаег: ТОБ)ес\; 

Ва оп: ТООВфпТуре); 
ргорегву ОпС11ск: ТУОС11скКЕуепе; 


Это событие возникает при щелчке на кнопках элемента. Параметр Ва оп 
определяет нажатую кнопку: БЕРгеу — вниз или влево; рЕМех{ — вверх или вправо. 


ТАпипта*фе — анимация 


Компонент ТАп1тафе представляет собой проигрыватель видеоклипов формата 
АУТ (Аид1о У4ео Ицегеауе4 — чередование аудио и видео). Компонент воспроиз- 
водит визуальную часть файла АУ[ и игнорирует его звуковое сопровождение. Он 
способен показывать лишь несжатое изображение или изображение, сжатое по 
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методу КГЕ (Вип-епё Епсо 4118). Изображение воспроизводится в отдельном 
потоке команд, что освобождает ресурсы программы для выполнения необходи- 
мой работы на фоне воспроизведения клипа. 

В проекте СВар_17\ТАтта{е\АптаеОето.арг вы сможете просмотреть несколь- 
ко коротких АУ]-файлов (рис. 17.3). В листинге 17.1 показан обработчик события 
ОпС1 1ск, с помощью которого выбирается и воспроизводится нужный файл. 


Рис. 17.3. Демонстрация компонента ТАмтае 


Листинг 17.1. Обработчики события ОпСИСК кнопки! 


ргосеаиге ТГоги1.В1ЕВп1С11сК (бепаег: ТОБ]ес®); 
уаг 
5: 56г1па; 
Бед1п 
СеЕр1г (0,5); 
ОрепП01а1091.1п1%1а101г := 5; 
1Е Орепр1а]1091.Ехесиабе еВеп 
// Указываем файл с клипом 
Ап1тахе1.Е11еМате := ОрепО1а1о0о91.Е11еМате; 
Ап1тафе1.Асе1уе := Тгое; // Запускаем клип 


Свойства компонента ТАп1тафе представлены в табл. 17.12. 


Таблица 17.12. Свойства компонента ТАпта{е 


Свойство | Описание 


ргорегеЕу Ас®1уе: Воо1еап; Разрешает/запрещает демонстрацию клипа. 
Во время демонстрации содержит значение 


Тгае 


ргорегеу Апко512е: Воо1еап; Если содержит значение Тгоие, компонент 
автоматически устанавливает свои размеры 
так, чтобы полностью вместить 
изображение кадра 
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Таблица 17.12 (продолжение } 


Свойство 


ргорегеЕу Сепкег: Воо1еап; 


ТСомтопАУТ = (а\у1Мопе, 
а\1РГ1пАРо1Аег, а\у1Е1паЕ11]е, 
а\1Е1паСотра$ег, ау1СоруЕ11ез, 
а\1СоруЕ11е, а\у1Весус1еЕ11е, 
а\71Е тре уВКесус]1е, ау10е1ефеЁг11е); 
ргорегЕу СоппопАУТ: ТСомтопдА\УТ; 


Центрирует изображение кадра в границах 
компонента по горизонтали и по вертикали 


Задает один из стандартных видеоклипов, 
входящих в библиотеку $НЕ32.011 
(см. рис. 17.4) 


ргорег®еу Е11еМапе: ТЕ11еМапе; Связывает компонент с АУ]-файлом 


ргорег®у ЕгапеСооп®: Тпфедег; 


Содержит количество кадров, показапных 
с начала демонстрации клипа 


ргорегЕу ЕгамеНе1апе: Тпфедег; Высота в пикселах одного кадра клипа 
ргорегеу Егапей1Аер: Тпфедег; Ширина кадра 


ргорегЕу Ореп: Воо1еап; 


ргорегеу Керек1%1опз: Тпеедег; 


ргорегЕу КезНапа1е: ТНапа1е; 


ргорегеу КезНапа1е: ТНапа1е; 


ргорегЕу КезМаме: З%Е1пд; 


ргорегеу З+кагеЕгаме: Зтма111Тпе; 


ргорекЕу скорЕгаме: 5та11Тпе; 


ргорегеу Т1тегз: Воо1еап; 


ргорег®у Тгапзрагеп*: Воо1еап; 


Содержит значение Тгие, если компонент 
связан с АУ]-клипом и готов к работе 


Определяет количество повторений клипа. 
Если 0, клип повторяется до тех пор, пока 
свойство Асе1уе содержит значение Тгце 


Определяет дескриптор ресурспого файла, 
содержащего АУ]-клип 


Определяет идентификатор ресурса 
с клипом в ресурсном файле 


Определяет имя ресурса с клипом 
в ресурсном файле 


Содержит номер начального кадра 
демонстрации (нумерация кадров 
начинается с 1) 


Содержит помер конечного кадра 
демонстрации (нумерация кадров 
начинается с 1) 


Разрешает/запрещает синхронизацию по 
таймеру. Если содержит значение Тгое, 
демонстрация синхронизируется сигналами 
таймера. Если содержит значение Га1 зе, 
для демонстрации используется 
независимый поток команд 


Если содержит значение Тгое, фон клипа 
не накладывается на фон компонента 


С помощью свойства СопмопАУТ можно заставить компонент показывать один 
Из стандартных видеоклипов, представленных на рис. 17.4. 
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., 


‚эмВесудеНе 


Рис. 17.4. Стандартные видеоклипы, определяемые свойством СоттопАМ| 


Методы компонента ТАп1тафе перечислены в табл. 17.13. 


Таблица 17.13. Методы компонента ТАпта{е 


ргосеаиге Р1ау(ЕгомЕгапе, Демонстрирует СоцпЕ раз подряд фрагмент 
Тоггаме: Мога; Соцпе: клипа, начиная с кадра ЕгомЕгапме по ТоЕгапме 
Тпседег); включительно (нумерация кадров начинастся с 1) 


ргосеаиге ВКезеф®; Восстанавливает исходное состояние компонента. 


Свойство Ореп вновь становится равным 
значению Тгце, но свойство АсЕ1уе=Га]1 зе 


ргосе4аге бееК (Егапе: Пропускает (не показывает) кадр с номером 
$та111Тпе); Егапе (нумерация кадров начинается с 1) 


ргоседиге 5+ор; Прекращает показ клипа 


События компонента ТАп1тафе перечислены в табл. 17.14. 


Таблица 17.14. События компонента ТАптае 


бобы [пива о 


ргорегЕу ОпС1озе: Возникает при установке значения Га15е в свойство 
ТМ№оЕ1ЕуЕхепе; Ореп. Например, когда компонент демонстрирует 
несколько видеоклипов подряд 
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Таблица 17.14 (продолжение) 


Возникает в момент начала демонстрации 


ргорег®Еу Опбкор: Возникает в момент прекращения демонстрации 
ТМ№ос1ЕуЕуепе; 


ТОатеТ!теР!сКег — ввод 
и отображение даты/времени 


Компонент предназначен для ввода и/или отображения даты и времени. На 
рис. 17.2 показаны различные варианты использования компонента. 


Рис. 17.5. Примеры использования компонента ТОаеТитеР!скег 


При показе даты в режиме РазеМмоде=атСопроВох календарь можно не рас- 
крывать и установить дату вручную в верхнем окне. Это удобно, если нужно уста- 
новить сразу и день, и месяц, и год. На раскрытом календаре изменить месяц можно 
с помощью небольших кнопок в верхней части компонента. Календарь закрывает- 
ся после выбора даты или при щелчке на раскрывающей кнопке. Установив в свой- 
ство К1па значение аЕКТ1ме, можно заставить компонент отображать время. Это 
время в момент установки компонента на форму соответствует системному време- 
ни, И в дальнейшем его можно изменить, задав новое значение свойству Т1 ме. 

Свойства компонента ТРафеТ1меР1скКег перечислены в табл. 17.15. 


Таблица 17.15. Свойства компонента Т)а{еТ!итеР!сКег 


Свойство 
ТОТСа1А119пмеп® = Определяет положение раскрывающегося календаря: 


(ЧЕафеЕЕ, Абав1апе); ЧбаЪеЕ* — слева от компонента; аб аВ1ап* — справа от 
ргорегеу Са1А11апмеп®: | компонента. Учитывается только для К1па=АЕКРафе 
ТРТСа1А119птепе*; и РакеМоае=атСопроВох 
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Свойство сп | 


ргорегеу Са1Со1огз: С календарем связан соивание класса ТРабеТ1теСо1ог$, 
ТРасеТ1меСо1ог$; свойства которого определяют цвета календаря 


ргорекгеу Спескеа: Если выполняются условия Стескед=Тгие 

Воо1еап; и 5ВомСВескКВох=Ткие, флажок рядом с полем даты 
(времени) будет показан и установлен. Наличие флажка 
или его отсутствие разрешает или запрещает ручной ввод 
даты или времени 


ргорегеу Рафе: Трафе; | Содержит введенную дату 


ТРТрафегогма® = Определяет формат показа даты: 4Е$поге — 17.09.99; 
(АЕЗЛоге, АЁЕГопа); ЧЕЬопа — 8 Сентября 1999 г. 

ргорег®у ПРафеГогмаф: 

ТРТрафеГогмаф; 


ТОТрРафеМоае = Определяет способ выбора даты: атСомьоВох — 
(атСопЬоВох, с помощью раскрывающегося календаря; датОрромп — 
атоОрромп); с помощью встроенного компонента ТОрромп 
ргорег®еу ПРасеМоае: 

ТОТРафеМмоае; 


ТРасеТт1меК1па = Определяет содержимое компонента: 4 КРаее — дата; 
(Ч4ЕКРафе, аАеКкТ1ме); АеКТ1ме — время 

ргорегеу К1па: 

ТРасеТзмеК1па; 


ргорегеу Махра{е: Определяет максимальную дату, которую может выбрать 
ТраЕе; или ввести пользователь 


ргорехеу М1пПаее: Определяет минимальную дату, которую может выбрать 
Тра*хе; или ввести пользователь 


ргорегеу РагзеТпрос: Если содержит значение Тгоае, возникает событие 
Воо1еап; Оп 5егТпра® при каждом вводе пользователя 
в текстовое поле 


ргорег*%у Если содержит значение Тгое, рядом с полем даты 

ЗромСНескКЬох: (времени) вставляется флажок, с помощью которого 

Воо]1еап; пользователь может запретить ручное изменение даты 
(времени) 


ргорег®еу Т1те: ТТ1пе; | Содержит введенное пользователем время 


События компонента ТРрасеТ1теР1скКег представлены в табл. 17.16. 


Таблица 17.16. События компонента ТОзж{еТ!теР!сКег 


бобытие вание 


ргорегЕу ОпСпапае: ТМо&1ЕуЕуепе; | Возникает при любом изменении 
содержимого компонента 


ргорег®еу ОпС1озеЧр: Возникает при закрытии календаря 
ТМоЕ1ЕуЕуепте; 


ргорег®у Опргорромп: Возникает при открытии календаря 
Т№оЕ1ЕуЕуепе; 
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Таблица 17.16 (продолжение) 


Событие 


РТРагзеТпри&Еуепе = ргосеаиге Возникает при ручном вводе в текстовое 
(Зепаег: ТОБ]есе; соп$® поле, если РагзеТпри& =Тгце. 
Ч5ег5Ег1па: $11049; уаг Озег5 Е г1па — введенная пользователем 


РафеАпаТ1те: ТРафеТ1те; уагк строка; РасеАпаТ1те — значения свойств 
А1]омСпапде: Воо1еап) оЁ Рафеи Т1ме. В параметре А1 1омСпапде 
ор)ес*; обработчик разрешает или запрещает 
ргорег®у ОпОзегТприе: изменепие даты или времени 
ТРоТРагзеТпраеЕхепе; 


ТМопИСаепааг — календарь 


Компонент предназначен для выбора или отображения даты. Он очень похож на 
календарь, который появляется в компоненте ТРасеТ1меР1скКег (при значении 
апСопроВох в свойстве РакеМоде), но в отличие от последнего может отобра- 
жать одновременно несколько смежных месяцев — в зависимости от своих разме- 
ров. 

Свойства компонента ТМопЕНСа1епааг представлены в табл. 17.17. 


Таблица 17.17. Свойства компонента ТМопСаепадаг 


С компонентом связан объект класса 
ТМоп&ВСа1Со1огз (см. ниже) 


Определяет выбранную дату 


Определяет конечную дату диапазона 
выбранных дат 


Суре ТСа1Рау0О0ЕМеек = (аомМопаау, Определяет первый депь недели 
ЧомТчезЯау, АомМеадпезаау, 

АомТВигзАаау, АомЕг1аау, 

Чомбаеигаау, ЯАомбипаау, 

ЧомЬоса1ереЁац1*); 

ргорег®еу Е1гзерауОЕЩеек: 

ТСа1РауоЕМеек; 


ргорегеу Махрафе: Траее; Содержит максимальную дату, месяц 
которой еще будет доступен для 
отображения в компонеите. Если 
свойство содержит пустое значение, 
отображается любой следующий месяц 


ргорегеу Махбе1ес&Капае: Тпеедег; Содержит максимальное количество дат 
в выбранном диапазоне 


ргорег®еу М1праке: Траке; Содержит минимальтую дату, месяц 
которой еще будет доступен для 
отображения в компоненте. Если 
свойство содержит пустое значение, 
отображается любой предыдущий месяц 
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Свойство [Описаие 


ргорегеу Мо1{15е1есе: Воо1еап; Разрешает/запрещает возможность 
выделения диапазона дат 


ргорег®еу ЗпомТоЧау: Воо1еап; Разрешает/запрещает показ текущей 


даты (по показаниям системных часов) 
ргорегЕу 5помТоЯауС1гс1е: 
Воо1еап; 


внизу календаря 
ргорегЕу МееКМитрегз$: Воо1еап; 


Разрешает/запрещает обводить кружком 
текущую дату 


Разрешает/запрещает показ порядковых 
номеров педель от начала года в левой 
колонке 


Свойства объекта класса ТМоп{№Са1Со1огз: 


*# ВасКСо1ог — цвет фона, разделяющего смежные месяцы; 


" МопЕВВасКСо1ог — цвет фона дат; 


.’ ТехеСо1Тог — цвет дат; 


" Т161еВаскКСо1ог — цвет фона заголовка месяца: 


"” Т161еТех%Со]1ог — цвет текста заголовка; 


”” Тга111п9Тех®Со1ог — цвет текста ведущих и ведомых дат. 


ТГее\Мем/ — иерархическое дерево 


Компонент ТТгее\У1ем служит для показа ветвящихся иерархических структур, 
таких как дерево наследования объектов или файловая структура диска. Он со- 
держит связанные узлы, каждый из которых может содержать значок, текст и про- 
извольный объект. Любой узел может иметь собственный список дочерних узлов, 
которые можно раскрывать или закрывать щелчком мыши на значке узла (рис. 17.6, 
проект СВар_17\ТТтее\Лем/\ТгееЛем/Оето.арг). 
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Рис. 17.6. Пример использования компонента ТТгееМе\и 
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Для наполнения списка на этапе разработки программы нужно щелкнуть на 
компоненте правой кнопкой мыши и выбрать в контекстном меню команду Цет$ 
ЕаКог, либо щелкнуть на нем дважды, либо, наконец, щелкнуть на кнопке с много- 
точием в строке свойства Ткетз — во всех случаях на экране появится окно редак- 
тора компонента (рис. 17.7). 
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Рис. 17.7. Редактор компонента 


Чтобы начать заполнение дерева, щелкните на кнопке № ет и введите свя- 
занный с узлом текст в поле Тех. В поле [таде Тпдех раздела Цет Ргоре А е$ вводит- 
ся индекс связанного с узлом значка, в поле 5в(е {ед [пдех — индекс значка для 
выбранного узла. Для ввода дочернего узла любого уровня сначала нужно выде- 
лить (щелчком) в поле Кетз узел, который должен стать родительским, и лишь 
затем щелкнуть на кнопке №м 5и6 ет. 

Для заполнения дерева в режиме прогона программы широко используется цен- 
тральное свойство компонента — ТЕетмз типа ТТгееМоаез, открывающее индек- 
сированный доступ ко всем узлам списка. Каждый узел описывается классом 
ТТгееМоде, имеющим собственные методы и свойства. В частности, его свойство 
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Рис. 17.8. Создание дочерних узлов на этапе прогона программы 
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Теем содержит список всех дочерних узлов данного узла; с помощью многочис- 
ленных методов свойства ТТгее\У1е\м . Теемз к этому списку можно добавить но- 
вый дочерний узел, а с помощью метода ТТгееМоде .МоуеТо — переместить узел 
в любую позицию иерархического дерева. 

Процесс создания дочерних узлов на этапе прогона программы иллюстрирует 
рис. 17.8. 

Показанную на рисунке конструкцию создал следующий обработчик события 
ОпСгеафе формы (проект СВар_17\ТТее\Лем/\ОупаттсТее.арг): 


ргосе4иге ТЕГоги1.ЕГогмСгеафе (бЗепаег: ТОр)ес®); 
уаг 
к: Тпседег; 
Ьед1п 
м1ЕП Тгее\1ем1 ао 
Бедап 
// Добавляем корневой узел 
Теем$.Ааа (МТЬ, 'Корень'); 
// Добавляем 10 дочерних узлов 
Бог К := 1 Фо 10 а 
Т$етз .Аааср11а (Теемз [к-1)], ТпЕТобех (К)); 
// Раскрываем все узлы 
Ра11Ехрапа 
епа 
епа; 


Свойства компонента ТТгее\1ем представлены в табл. 17.18. 


Таблица 17.18. Свойства компонента ТТгее\Ле\ 


Свойство 


ТВогаег5®у1е = Определяет стиль рамки, охватывающей компонент: 
Б5Мопе. .6$51п91е; ЬзМопе -— нет рамки; 5$51п491е — рамка толщиной 
ргорегЕу Вогдег5%у1е: в 1 пиксел 

ТВогаег5®у]1е; 


ргорекеу ПгорТагдех: Определяет узел, который может служить приемником 
ТТгееМоае; для операций перетаскивания (Огаё&Огор) 


ркорегеу Н1Чебе1ес®1оп: | Указывает, будет ли убираться выделение узлов, когда 
Воо1еап; компонент теряет фокус ввода 


ргорекеу Тпадез: Содержит набор изображений, которые будут 
ТТтадер1з*4; использоваться при прорисовке узлов 

ргорегеу Тпаепе: Определяет отступ в пикселах от левого угла узла для 
Тпеедег; всех его дочерних узлов 


ргорегеу Теепмз: Открывает доступ к любому узлу по его индексу. 
ТТгееМоаез; Индексация начинается с нуля и соответствует 
просмотру всех узлов полностью развернутого дерева 


ргорегеу КеааОп1у: Запрещает/разрешает редактирование надписей в узлах 
Воо1еап; 
продолжение 1:9 
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Таблица 17.18 (продолжение) 


Содержит список всех выбранных узлов или МТГ, если 
таких нет 


ргорегеу ЗВомВаеопз: Разрешает/запрещает показ стандартных кнопок 

Воо1еап; раскрытия дочерних узлов. По умолчанию содержит 
значение Тгие. Если содержит значение Га] зе, узел 
разворачивается двойным щелчком мыши 


ргорегеу Зпом1пез: Разрешает/запрещает показ линий 
Воо]1еап; 


ргорек®еу ЗПпомБоое: Разрешает/запрещает показ линий, идущих от самого 
Воо]1еап; | верхнего уровня иерархии. Игнорируется, если 
СЛомЬ1пез=Га]зе 


Т5огЕТуре = ($5&М№ пе, Определяет способ сортировки узлов: зЕМопе — нет 
$ЕРафа, $5%Техф, сортировки; (Рафа — сортировка по данным; 
зЕВоев); зЕТехе — сортировка по тексту надписей; $ЕВоЕВ — 
ргорег®у ЗогЕТуре: сортировка по тексту и по данным (см. также описание 
ТбогеТуре; события ОпСопраге ниже) 


Методы компонента ТТгее\У1ем перечислены в табл. 17.19. 


Таблица 17.19. Методы компонента ТТгееМем 


Метод [Описание 


Еапсе1оп А1рпабоге: Сортирует узлы по тексту и возвращает значение 
Воо]еап; Тгие, если сортировка прошла успешно 


ТТУСомраге = ЁЕипс&1оп Определяет нестандартную сортировку 
(1]Рагам1, 1Рагамд, с помощью функции 5огЕРгос. Эта функция 
1Рагатмбог®е: Гопа1Тп®): должна рассматривать параметры 1Рагам1 
Типседег $54са11; ЕЕапсе1оп и 1Рагапт2 как объекты ТТгееМоде и возвращает 
Са5бомбог® (ЗогЕРГОС: отрицательное число, если 1Рагат1<1Рагап2; 
ТТУСопраге; Рафа: ГопаТп+): | ноль, если 1Рагапе1=1Рагаш2; положительное 
Воо1еап; число, если 1Рагам1>1Рагам2 


ргосеацгке ЕГо11Со11ар5е; Прячет все узлы, кроме узлов самого верхнего 
уровня иерархии 


Ргосеаиге Го11Ехрапа; Показывает все узлы дерева иерархии 


Еипсе1оп СееМоаедА+ (Хх, \: Возвращает узел, располагающийся в указанной 
Тпседег): ТТгееМоае; точке, или МТГ, если точка не принадлежит ни 
одному узлу 


Еипсе1оп Т$5Еа1е1п4: Возвращает значение Тгце, ссли пользователь 
Воо]1еап; редактирует какой-либо узел 

ргосеаиге ГоааЕгопЕ11е Загружает иерархичсское дерево из файла 
(сопзЕ Г11еМаме: $6г1па); 


ргосед4иаге ЗауеТоЕг11е (сопзе | Сохраняет иерархическое дерево в файле 
Г11еМаме: $%г1п9); 


ргосеацге ЗбауеТо5Егеам Сохраняет иерархическое дерево в потоке данных 
(ЗЕгеащм: ТбЕгеам); 
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События компонента ТТгее\У1еч перечислены в табл. 17.20. 


Таблица 17.20. События компонента ТТгееМем 


ТТУСВапдеЯЕуеп® = ргосеаиге 
(Зепаег: ТОБл]есе; М№ае: 
ТТхее№оае) оЕЁ оБЗес*; 
ргорегеу ОпСвапсде: 
ТТУСВапаеЯЕуеп®; 


ТТУСВапач1паЕуепЕ = ргосеаиге 
(Зепаег: ТОБ]ес®; М№ае: 
ТТгееМ№оае; уаг А1]омСрапсде: 
Воо]1еап) оЁ оЪЗес*; 

ргорегЕу ОпСрапа1па: 
ТТУСВапа1паЕуепс; 


ТТУЕхрапаеаЕхуепЕ = ргосеацге 
(Зепаег: ТОБ]есЕ; М№ае: 
ТТгееМоае) оЁ оБзес*; 
ргорег®еу ОпСо11арзеа: 
ТТУЕхрапаеаЕуепте; 


ТТУСо11арз1пчЕуепе = ргкосеамге 
(Зепаег: ТОБзесе; Моае: 
ТТгее\№оае; уаг А1]омСо11арзе: 
Воо1еап) оЁ оЪЗес*; 

ргорегеу ОпСо11арз1па: 
ТТУСо11арз1паЕуепЕ; 


ТТУСопрагеЕуепе = ргосе4иге 


(Зепаег: ТОБ]есе; М№ае1, М№ае2: 


ТТгееМоае; Рафа: Тпфедег; чак 
Сотраге: Тпфедег) оЁ оБЗес*; 
ргорегеу ОпСопраге: 
ТТУСомрагеЕхуеп®; 


ТТУЕхрапаеаЕуепе = ргосеацге 
(Зепаег: ТОБ)есе; М№ае: 
ТТгееМ№оае) оЕ оБЗес*; 
ргорегеу ОпПе1еЕ1оп: 
ТТУЕхрапаеаЕхепе; 


ТТУЕЧЯ1 сеЧ4Еуеп® = ргосеапге 
(Зепаег: ТОБ)есе; Моае: 
ТТгееМ№оае; чаг 3: $%г1п9д) 

оЕ оБ]ес®; ргорег®у ОпЕа1ееа: 
ТТУЕа1 $ еаЕуепе; 


ТТУЕхрапаеаЕуепе = ргосеадогке 
(Зепаег: ТОБзесе; М№ае: 
ТТгее№оае) оЕЁЕ оБЗес*; 
ргорегеЕу ОпЕхрапаеа: 
ТТУЕхрапаеаЕхуепе; 


Возникает при смепе состояния выбора 
у одного из узлов. Моае — узел, который 
изменил состояние 


Возникает перед сменой состояния выбора 
у одного из узлов. Моде — новый 
выбирасмый узел. Обработчик в параметре 
А1 ] омСВапае разрешает или запрещает 
возможность выделения (выбора) узла 


Возникает при свертывании ветви 
дочерних узлов узла Моде 


Возникает перед свертыванием ветви 
дочерних узлов узла Моде. В параметре 
А110о\Со1 1арзе обработчик разрешает 
или запрещает свертывание 


Возникает при сравнении двух узлов 
Моде! и М№оде2. В параметре Сотраге 
обработчик должен вериуть отрицательное 
число, если Моде1 <Моде2, ноль, если 
№Моае1=Моае2, положительное число, если 
№оае1>Моае2 


Возникает при удалении узла М№оае из 
иерархического дерева 


Возникает при завершении 
редактирования надписи в узле Моае: 
5$ — новая надпись 


Возникает при развертывании ветви 
дочерних узлов узла №оае 
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Таблица 17.20. События компонента ТТгееМе\ми 


ТТУЕхрапа1паЕуепЕ = ргосеаоге 
(Зепаег: ТОБЗесе; Моае: 
ТТгееМоае; ухаг А11омЕхрапз1оп: 
Воо1еап) оЕ оЪ)ес®; 

ргорегеу ОпЕхрапА1па: 
ТТУЕхрапЯ1паЕуепте; 


Возникает перед развертыванисм ветви 
дочериих узлов узла Моде. В параметре 
А1 1омЕхрапз1оп обработчик разрешает 
или запрещает развертывание 


ТТУЕхрапаеаЕуепЕ = ргосеаиге 
(Зепаег: ТОБ]есе; Моде: 
ТТгеем№оае) оЕЁ оБ}]ес*; 
ргорегЕу ОпбсееТтадеТпаех: 
ТТУЕхрапаеаЕуепе; 


Возникает при необходимости получения 
индекса изображения для прорисовки узла 
Моае в обычном состояции 


ТУЕхрапаеЯЕуепЕ = ргосеаиге 
(Зепаег: ТОБ)есе; Моае: 
ТТгееМ№оае) оЕ оь]есЕ; 
ргорегеу Опбее5е1есееаТплаех: 
ТТУЕхрапаеЯЧЕхепе; 


Возникает при необходимости получения 
индекса изображения для прорисовки узла 
М№оае в выбранном состоянии 


При программном заполнении дерева следует пользоваться свойством ТТгее- 


\У1еи.Теемз класса ТТгееМоаез. Свойства и методы этого класса представлены 
в табл. 17.21 и 17.22. 


Таблица 17.21. Свойства класса ТТгееМоде$ 


Свойство Описание | 


ргорегву СоппЕ: Тпфеаег; Количество узлов, входящих 
в Тбемз 


ргорекг&у Тееп[Тпаех: Тпеедег]: Открывает индексированиый 
ТТгееМоае; 4еЁаз1*; доступ к узлам 


ргорегеу Омпег: ТСаозботТгее\У1ем; Содержит ссылку на родительское 
дерево 


Таблица 17.22. Методы класса ТТгееМодез$ _ 


Еопсе1оп Ааа (М№оае: ТТгее№ае; Добавляет узел в конец того дерева, 

соп5е 5: 5З6г1па): ТТгееМ№оае; в котором зарегистрирован узел Моае. 
Если М№оде=мТЬ, добавлястся корневой узел 
для всего компонента 


Еапсезоп Аааср11а (М№оае: Добавляет узел в конец ветви Тем 
ТТгееМ№оае; сопзе 5: 56Е1п9): дочерних узлов узла М№оае 
ТТгееМ№оае; 


Еипсе1оп АЗаср11аЕ1г$% (Моде: Добавляст узел в начало ветви Теем 
ТТгееМоае; сопз® 5: 56г1п9д): дочерних узлов узла Моае 
ТТгееМоае; 


Еопсе1оп АааСП11а906)ес® (Моае: Добавляет узел и данные в конец ветви 
ТТгееМоде; сопзе 5: Зегапа; Те ем дочерних узлов узла Моде. На данные 


РЕГ: Ро1пеег): ТТгееМ№оае; 


ЕапсЕ1оп АаасСв11Аа06]есеЕ1г$е 
(Моае: ТТгееМоае; сопзё 5: 
ЗЕг1па; Рег: Ро1зпеег): 
ТТгееМ№оае; 


Еопс&1оп АааЕ1г3е (М№оае: 
ТТгее\№оае; сопз® 5: 56х1пад): 
ТТгее\№ае; 


Еапсе1оп АаЧОБ]ес® (М№оае: 
ТТгееМ№оае; сопз® 5: 56г1пд; 
РЕг: Ро1пфкег): ТТгееМ№оае; 


Еапсе1оп АааЧОБ]есеЕ1г$е (М№оае: 


ТТгееМоае; сопзе 5: 5%г1пда; 
Рег: Ро1зпфег): ТТгее№оае; 


ргосеацге Азз1ап(5боигсе: 
ТРегз15сепе); 


ргосеаиге Ведз1пОрадаее; 


ргосеаиге С1еаг; 


ргосеаиге Пе1есе (Моае: 
ТТгееМ№оае); 
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ссылается указатель Рфк. Связанная 
с данными область памяти не освобождается 
автоматически при удалении дерева 


Добавляет узел и данные в начало ветви 
Теем дочерних узлов узла Моде. На данные 
ссылается указатель Рег. Связанная 

с данными область памяти не освобождается 
автоматически при удалении дерева 


Добавляет узел в начало той ветви, 
в которой зарегистрирован узел Моде 


Добавляет узел и данные в конец той же 
ветви, в которой зарегистрирован узел Моде. 
На данные ссылается указатель Рек. 
Связанная с данными область памяти не 
освобождается автоматически при удалении 
дерева 


Добавляет узел и данные в начало той же 
ветви, в которой зарегистрирован узел Моде. 
На данные ссылается указатель Рек. 
Связанная с данными область памяти не 
освобождается автоматически при удалении 
дерева 


Связывает дерево текущего компонента 
с деревом компонента 5оцгсе 


Блокирует обновление экрана до тех пор, 
пока не будет выполнен метод ЕпаОрдахке. 
Используется при одновременной вставке 
нескольких элементов дерева для 
предотвращения мерцания экрана 


Очищает дерево от всех узлов и дочерних 
узлов компонента 


Удаляет узел Моде 


ргосеаиге Епа0рда*е; Отменяет действие метода Вез1п0Одаъе 


Бапсе1оп СееЕ1гз%«Моае: 
ТТгееМм№оае; 


Еапс®1оп СееМоде (Теепта: 
НТгееТ+кещ): ТТгееМоае; 


Еапсе1оп Гпзег® (Моде: ТТтгееМ№оае; 


сопзе 5: 56х1п9): ТТгееМоае; 


Ечпсе1оп ТпзегЕОБЗесе (№оае: 
ТТгееМ№оае; сопз® 5: ЗЕгапа; 
Рег: Ро1пеег): ТТгееМ№оае; 


Возвращает самый первый узел в дереве 
Тфемз [0) 


Возвращает узел по его идентификатору 
ТфепТа 


Вставляет узел непосредственно перед 
узлом Моае 


Вставляет узел и данные непосредственно 
перед узлом №оае 
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Как уже отмечалось, каждый узел класса ТТгееМоае имеет свой набор свойств 
(табл. 17.23) и методов (табл. 17.24). 


Таблица 17.23. Свойства ТТгееМоче 


Свойство Гопивание 


ргорегЕу АБзо1иаееТраех: Возвращает абсолютный индекс узла (с учетом всех 
Тпеедек; дочерних узлов) 


ргорегЕу Соипе: Тпеедег; Содержит количество дочерних узлов в ветви Тем 
ргорегеу Сое: Воо1еап; Вырезает узел и помещает его в буфер обмена 
ргорегеу Пафа: Ро1п%ег; Указывает на связанные с узлом данные 


ргорег®еу Пе1ек1па: Содержит значение Ткгце, если для узла вызван 
Воо]1еап; метод Безе гоу 

ргорек®у ПгорТагдее: Содержит значение Ткце, если узел может служить 
Воо1еап; приемником операции перетаскивания (Огаё&Огор) 
ргорегеу Ехрапаеа: Содержит значение Тгце, если узел развернут 
Воо1еап; 

ргорег®у Госизеа: Содержит значение Тгое, если узел свернут 
Воо1еап; 


ргорегеу НазСр11агеп: Содержит значение Тгуе, если узел имест дочерние 

Воо]еап; узлы 

ргорегеЕу ТпадеТпаех: Содержит индекс связанного с узлом значка 

ТТмадеТпаех; 

ргорег®у Тпаех: Гопа1пе; | Содержит индекс узла в списке дочерних узлов его 
родительского узла 

ргорег®у 1$\У1$101е: Содержит значение Тгие, если узел виден 

Воо1еап; 


ргорегеу Тееп[1паех: Открывает индексированный доступ ко всем 
Тпхедег]: ТТгее№оае; дочерним узлам 


ргорегеу Геепта: Содержит уникальный \/т40о\5-дескриптор узла 
НТгее!Т еп; 


ргорегеу Геуе1: Тпеедег; | Содержит иерархический уровепь узла 


ргорегеу Оуег1ауТпаех: 
1п$едег; 


Содержит индекс оверлейного значка. Оверлейный 
значок вычерчивается поверх осповного, чтобы, 
например, указать, что узел стал недоступен 


ргорегЕу Омпег: Содержит ссылку на владельца данного узла 
ТТгееМм№оаез; 

ргорегЕу Рагеп(: Содержит ссылку на родительский узел 

ТТгееМ№оае; 

ргорегеу 5бе1ескеа: Содержит значение Тгце, если узел выделен цветом 
Воо]1еап; 

ргорегеу 5е1ескеЧТпаех: Содержит номер значка для выделенного узла 
Тпбеаег; 
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Свойство [писание 
ргорегеу Тех®: з%г1па; Содержит текст узла 


ргорег®у Тгее\У1ем: Содержит ссылку на компонент ТгееУ1 ем, 
ТСозбомТгееУ1еи; к которому принадлежит узел 
Таблица 17.24. Методы класса ТТгееМоае 


ООО ЗОО 


ЕипсЕ1оп А1ррабоге: Воо1еап; Сортирует узлы по алфавиту свойства Техе 
и возвращает значение Тгое в случае успеха 


ргосеаиге Аз51ап (5боигсе: Связывает список дочерних узлов 
ТРег51$5$6епе); оуеггзае; с источником 5опгсе 


ргоседаге Со1]арзе (Кесигзе: Закрывает все узлы (Кесочгсе=Тгое) или 
Воо]1еап); только развернутые (Везопгсе=Га1зе) 


фуре ТТУСопраге = апс&1оп Реализует нестандартную сортировку узлов 
(]Рагап1, 1Рагхам2, 1Рагамбоге: 
.опа1пе): Тпбедег $&@аса11; 


ЕапсЕ1оп Сизботбог® (богЕРгос: 
ТТУСомраге; Пафа: Гопа1п®): 
Воо]еап; 


ргоседиге Пе1е{е; Удаляет текущий узел 
ргоседиге ОБе1ефеСп11агеп; Удаляет дочерние узлы 


Еапсе1оп 015р1ауВесЕ (Тех Оп1у: 
Воо1еап) : ТВесё; 


Еапсе1оп Еа1ЕТехе: Воо1еап; 


ргоседиге ЕпаЕа1{ (Сапсе]1 Заканчивает редактирование текста 


Возвращает очерчивающий прямоугольник 
узла. Если Тех Оп1у=Ткие, возвращает 
очерчивающий прямоугольник текста 


Переводит текст узла в режим 
редактирования 


Воо1еап); и сохраняет его изменения, если 
Сапсе]1=Га]1 зе 


ргосеааге Ехрапа (Кесигзе: Развертывает узел (и его дочерние узлы, 
Воо]1еап); если Весигсе=Тгие) 


Возвращает ссылку на первый дочерний 
узел или МТЬ, если нет дочерних узлов 


Еарселоп СееЕ1г$еСр114: 
ТТгееМ№оае; 
ЕапсЕ1оп СееГазЕСЬ11а: 
ТТгееМ№оае; 


Возвращает ссылку на последний дочерний 
узел или МТЪ, если нет дочерних узлов 


ЕипсЕ1оп СекМехе: ТТгееМоае; Возвращает ссылку на очередной дочерний 
узел 


ЕипсЕ1оп СеЕМмехеСр11а (Уа11е: Возвращает ссылку на дочерний узел, 


ТТгееМоае) : ТТгееМ№оае; следующий за узлом \а1че (или МТЪ, если 
такового нет) 


Еопсе1оп СеЕмехе5111п9: Возвращает ссылку на очередной узел в том 
ТТгееМ№оае; же дереве — 


продолжение #7 
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Таблица 17.24 (продолжение) 


Еипсе1оп СееМехе\1$11е: Возвращает ссылку на очередной видимый 
ТТгееМоае; узел (для которого развериуты все дочерние 
узлы) 


Еипсе1оп СесРгеу: ТТгееМоае; Возвращает ссылку на предыдущий узел 
в том же дереве исзависимо от его видимости 


Еапсе1оп СесРгеуСН11А (Уа1ще: Возвращает ссылку на предыдущий по 
ТТгееМоае) : ТТгееМ№оае; отношению к узлу Уа1ие дочерний узел 


Возвращает ссылку на предыдущий узел 
того же уровня 


Возвращает ссылку на видимый узел того 
же уровия 


Еопс&1оп НазАзРагепк (\Уа1ие: Возвращает значение Тгое, ссли Уа1ще — 
ТТгееМоае) : Воо1еап; родительский узел 


Еапселоп ТпаехоОЕ (Уа1ще: Возвращает идентификатор узла Уа1пе 
ТТгееМ\оае)} : Тпееаек; 


ргоседиге МаКке\15$161е; Если родительский узел видимый, делает 
видимыми все дочерние узлы 


фуре ТМодеА аспМо@е = (паАаа, Перемещаст текущий узел в позицию 

падАааяЕ1х$е, падаась11а, относительно узла рез 1па®1оп 

падаасв11аАЕР1у5е, паТпзеге); в зависимости от параметра Моае: паАда — 

ргосеаиге МоуеТо (Рез®1пае1оп: добавляет в конец списка узлов того же 

ТТкееМоае; Моае: уровня; паАааЕ1г5$& — делает первым 

ТМоаеА с аспМоае); в ветви узлов того же уровия; 
паАааясв11а — добавляет в конец списка 
дочерних узлов; падАЯаСсв11аЕ1:$е — 
делает первым в списке дочерних узлов; 
па1Тп5ег® — вставляет непосредственно 
перед узлом 


ТЕ$ЗИЛем/ — иерархический список 


Компонент ТЬ1 з&У1ем предназначен для отображения и выбора нескольких эле- 
ментов. Каждый элемент может содержать значок и текст и подобно компоненту 
ТТгее\У1ем иметь ветвь связанных с ним вложенных (дочерних) элементов. В от- 
личие от компонентов ТТгее\У1еим в ТТ.1 $&\У1е\м допускается не более одного уровня 
вложенности элементов. Компонент ТТЪ1з&\У1ем показывает свои элементы в од- 
ной или нескольких колонках, с крупными или мелкими значками (рис. 17.9, сле- 
ва). Рядом с элементами могут присутствовать флажки (рис. 17.9, справа), упро- 
щающие множественный выбор элементов. 

Компонент может наполняться как на этапе конструирования, так и на этапе 
прогона программы. 

Выполните следующую последовательность шагов, которая продемонстрирует 
вам основные особенности использования компонента (проект СБар_17\Т $ \Лем/\ 
И$ИЛем/Оето.арг). 
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2 Колонка 1 
|паде] |паде2 ЛЕ $ 'тадеб 
С. |. |2 % паое1 
&: Е РИ И 8 | С таде2 


падеб |падеб | | С итаое4 
. ЗВ С. тадеб 

| Ш |падеб 

| Ок таде7 


ЗЕ: , ^ 


Г Показывать СнескВох В _ | | | — М Показывать СпесКВох 


Режим работы; — | о ТЕ Режим работы; 


у$Исоп т И 1 у$Верой "| 


Рис. 17.9. Пример использования компонента ТИ$ Лем в режиме у$|соп (слева) и в режиме 
у5Нероц с показом флажков (справа) 


1. Напустую форму поместите компоненты ТЬ1$&У1ем, ТТтадеГ1 $%, ТСопроВох 
и ТСрескКВсх. 


2. Компонент Тмадет1з%1 будет служить контейнером для нескольких значков, 
отображаемых компонентом 1з%У\У1ем. Для наполнения контейнера дважды 
щелкните не нем мышью или щелкните на нем правой кнопкой мыши и выбе- 
рите в контекстном меню команду [таде!1 5+ Ед от. 


3. В появившемся окне редактора изображений щелкните на кнопке Ад4 и выбе- 
рите файл [тадесоп$\СВеттса(. 


4. Повторите предыдущий шаг для выбора нескольких значков. Обратите внима- 
ние, что каждому помещаемому в компонент Ттадет,1$%1 значку редактор при- 
сваивает уникальный индекс. 


5. Напишите обработчики событий, представленные в листинге 17.2. 


Листинг 17.2. Обработчики событий списка 


ргосеаиге ТГогп1.ГогиСгеате (бЗепаег: ТОр)ес®); 
уаг 

К: Тобедег; 

т15еТтеем: ТЬ15еТеем; 


Бед1п 

м1ЕБ 1156\/1ем1 ао 

Бед1п 
// Указываем источник изображений: 
Зпа11Тмачез$ := Ттадер15$%1; 
ТагаеТтадез$ := Тмадет1$%1; 
// Наполняем Г1$Е\У1еи1 значками и текстом: 
Бог К := О Фо Тпадет1$Е1.Соапе — 1 ао 
Беда п 


// Добавляем элемент и получаем ссылку на него 
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.15&Т6еем := Теетз.Ааа; 

// Указываем индекс связанного изображения 

156 Теем.ТтадеТпаех := К; 

// Вставляем надпись Ттадем 

Т15ЕТеем.СарЕ1оп := 'Шпаде' + ТпЕТобеЕк (К); 
епа; 


// Наполняем список СотроВох1 доступными стилями 
// ТлзЕУ1еи 
СотроВох]1 .Теет$ .Аааою есь ('\у5Тсоп', ТОБЗес® (у$Тсоп)); 
СотроВох1 .Теетм$ .Аааор есь ('\у$511$6', ТОБзесе (\$11$%)); 
СопроВох1 .ТЕем$з .Ааао6-есе® ('у$5Верог®', 
ТОр]есЕ (у5Верог®)); 
СопроВох1.Теетм$ .Аааор] есь ('у55та11Тсоп', 
ТОБ]есф (у55ма11Тсоп)); 
// Показываем первый стиль в СотЬо Вох 
СопроВох1 .ТеепТпаех := 0; 
// Создаем колонку для режима. узКерогЕ: 
Со1атп5.Ааа; 


Со1итп$ [0] .СарЕ1оп := "Колонка 1'; 
Со1итп$ [0] .ИзаЕр := 80; 
епа; 
епа; 
ргосеаиге ТГоги1.СотроВох1СПападе (бепаег: ТОБЗес®); 
Бед1п 
м1 СопроВох1 @4о 
15$6\У1ем1.\/1еи5Еу1е := ТУ1еибеу1е (Т6ет$.ОБ)есез$ 


[ТеЕептТпаех]); 
епа; 


ргосеаиге ТЕГоги1.СпескВох1С11сК (бепаег: ТОБлес®); 
Бед1п 

.1$Е\/1ем1.СВескКВохез := СрескКВох1.СпескКеа 
епа; 


Некоторые важные свойства компонента ТТ,1 $ У1ем представлены в табл. 17.25. 


Таблица 17.25. Свойства компонента ТУ$\ем 


Свойство опивани 


ргорег®у А11осВу: Используется перед вставкой большого количества 

Тпеедег; элементов: для экономии времени и памяти перед 
добавлением элементов установите в это свойство их 
количество 


ргорегеу Спескрохез: Разрешает/запрещает показ флажков рядом 
Воо1еап; с элементами 

ргорегеу Со1итп [Тпаех: Открывает доступ к колонкам элементов по их 
Трпеедег]: ТЬ1$6Со1атп; индексам 


Свойство 


ргорегеу Со1итпС11ск: 
Воо1еап; 


ргорегЕу Со1аппз: 
ТЬ156Со1атп$; 


ргорег®у Сг1АГ1тез: 
Воо1еап; 


ргорегеу Н1Аебе1ес®1оп: 


Воо1еап; 


ргорегеу НоЕТгаск: 
Воо1еап; 


ргорег®еу ТсопОрЕ1опз: 
ТТсопОр®1оп$; 


ргорег®у Теемсз: 
ТЬ15ЕТеетмз; 


ргорегЕу Гагде{1тадез: 
ТГлаае11$&; 


ргорегеу Мо1(15е1есе: 
Воо1еап; 


ргорегеу КеадОп1у: 
Воо1еап; 


ргорег®у 
бВомСо1иппНеааегсз: 
Воо]1еап; 


ргорегеу 5бпа11Ттадез: 
ТТпадеГ1$%; 


ТбогЕТуре = ($%&М№опе, 
5ЕРафба, $%Техф, 
$ЕВоеп); 

ргорегЕу ЗогЕТуре: 
ТбогЕТуре; 


ргорег®у зсасеТтадез: 
ТТмадет1$%; 


ТУ1ем5Еу1е = (\у$Тсоп, 
Уу55та1]1Тсоп, \%$Ь1$6, 
У5Верог®); 

ргорегЕу \У1емску1е: 
ТУ1ем5еу1е; 
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Разрешает/запрещает генерацию события 
ОпСо1итпС11СсК 


Содержит объекты-колонки. Используйте это 
свойство для удаления или добавления колонок, 

а также для изменения их свойств. Колонки видны 
только в режиме У1ем5 к у1е=узВерог*. И наоборот: 
элементы в этом режиме видны, только если 
определена хотя бы одна колонка 


Разрешает/запрещает показ линий в режиме 
\У1ем5су1е=узВерог® 


Запрещает/разрешает сохранять элементы 
выделенными при потере компонентом фокуса ввода 


Разрешает/запрещает подсветку элементов, на 
которых проходит указатель мыши 


С помощью объекта класса ТТсопОр+1опз задаются 
дополнительные условия отображения (см. ниже) 


Содержит список всех элементов 


Указывает источник крупных значков 


Разрешает/запрещает множественный выбор 
Запрещает/разрешает редактирование надписей 


Разрешает/запрещает показ заголовков колонок 
в режиме У1ем5 $ у1е=узВерог®е 


Определяет источник мелких значков 


Определяет способ сортировки элементов 


Определяет источник значков для выбранных 
элементов 


Определяет стиль показа элементов: у$Тсоп — 
крупные значки; у55ма11Тсоп — мелкие значки; 
у$Ь1$Е — список значков; узВерогЕ — таблица 
значков 
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ВНИМАНИЕ — Чтобы компонент работал в режиме узВерогх, необходимо создать хотя 
бы одну колонку. На этапе конструирования программы колонки созда- 
ются и изменяются с помощью редактора колонок, окно которого откры- 
вается после щелчка на компоненте правой кпопкой мыши и выборе в кон- 
текстном меню команды Со[итп ЕдКог. Пример программного создания 
колонки был показан в листинге 17.2. 


Класс ТТсопОр 1оп определяет дополнительные условия отображения узлов; 
свойства этого класса представлены в табл. 17.26. 


Таблица 17.26. Свойства класса Т!сопОрйоп 


Свойство 


фуре ТТсопАггапдемепе Определяет способ расположения изображений: 

= (1аТор, 1аЪеЕЁф); 1аТор — слева направо (вверху колонки); 1аЪфеЕе — 
ргорегЕу Аггапдетепе: сверху вниз слева от ряда колонок 
ТТсопАггапаецщеп&; 


ргорегеу АйцбоАггапсде: Если содержит значение Тгие, элементы будут 
Воо1еап; автоматически располагаться правильными рядами 
при изменении их количества 


ргорегЕу ИгарТехь: Если содержит значение Тгое, текст элемента 
Воо1еап; может переноситься по словам на несколько строк, 
если он выходит за границы значка 


При программном заполнении компонента центральную роль играет свойство 
Теемз класса Т1.15ЕТеемз (табл. 17.27). 


Таблица 17.27. Свойства класса ТИ$Шетз 


Свойство Описаие 


ргорегеу Сосп®: Тпеедег; Содержит количество элементов 
в списке Теем 


ргорегеу Тееп[Тпаех: Тпфедег]: Открывает индексный доступ 
ТЬ15етеем; к элементам списка 


Методы класса ТЬ1 зе Теемз представлены в табл. 17.28. 


Таблица 17.28. Методы класса ТИ$Иет$ 


Добавляет очередной элемент к списку 


ргосеаиге Азз1ап (Зойгсе: Связывает список компонента со списком компонента 
ТРегз1$6епе); очеггзае; боцгсе 


ргоседиге Вед1п0Орааее; Блокирует обновление экрана до тех пор, пока не будет 
выполнен метод Епа0Ордаее. Используется при 
одновременной вставке нескольких элементов списка 
для предотвращения мерцания экрана 


ТНеадегСотго! — управляющий заголовок 383 


Метод [Описание 
реоседике С1еах; 


ргоседаге Пе1ефе (1п4ех: | Удаляет элемент списка с индексом Тлаех 
Треедег); 


ргосеацге Епа0Орада\те; Отменяст действие | Отменяст действие Вед 1пораме | 


ЕапсЕоп ТпаехОЕ (Уа1пще: | Возвращает индекс узла Уа1ие 
ТЬ15ЕТсем): Тиседег; 


Еапсе1оп Тпзекг® (Тпаех: Вставляст новый элемент после элемента, заданного 
Тп$едег): ТЬ15ЕТеем; индексом Тпаех 


ргосеаиге 5ееСоцпе Устанавливает новое количество элементов списка 
(Уа1ие: Тпфечдег); 


ТНеадегСотго! — управляющий заголовок 


Компонент ТНеадегСоп+го1 представляет собой многоколончатый заголовок с ре- 
гулируемыми размерами колонок (секций). Каждая колонка (секция) заголовка 
может содержать текст и/или графику. Компонент способен обрабатывать собы- 
тие ОпВез$1 ге, которое возникает при каждом изменении размеров любой секции. 
В ходе обработки этого события программа обычно соответствующим образом из- 
меняет линейные размеры столбцов таблицы или подобной структуры, с которой 
связан компонент. 

В программе, окно которой показано на рис. 17.10 (проект СПар_17\НеадегСоп*го[\ 
НеаЧ9Соп*.арг), компонент ТНеадегСопего] используется для управления поло- 
жением и линейными размерами трех других компонентов. 


| Секция №1 ] Секция М=2 
У ТАУ т’ 


НР-ННАНАНААННАНЯ еле елок мик кре ем 


. | Мего] ._ _—  Вицоп1 | 


. ег орлу миеиеоимиаволй 


Рис. 17.10. Пример использования компонента ТНеадегСог\го! для управления 
положением и размерами других компонентов 


Для реализации программы выполните следующую последовательность шагов. 


1. Поместите на пустую форму компоненты ТНеадегСоп+го1, ТЕЯ1 +, ТМемо 
И ТВаббоп. По умолчанию должно выполняться условие НеадегСоп+го11. 
А11ап = а1Тор — убедитесь в этом и установите свойство А11ап, если это не 
так. Положение и размеры других компонентов не имеют значения. 


2. Создайте обработчики событий ОпСгеа*е для формы Гогт1, а также ОпВез1те 
и ОпбесЕ1опВез12е для компонента НеадегСоп+го11 (листинг 17.3). 
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Листинг 17.3. Обработчики событий для формы и для заголовка 


соп5е 
Ре]1+а = 10; // Зазор между границами заголовка 
// и компонентами 
ргосеаике ТЕГогп1.ЕогтСгеафе (Зепаег: ТОр]ес®); 
уаг 
Нбесе1оп: ТНеааегбесе1оп; 
К: Тиседег; 


Бедлп 
// Создаем три секции заголовка: 
м1ЕВ НеааегСопЕго11 ао Бог К := 0 ®о 2 9@ао 
Бедлп 
Н5есе1оп := бесе1оп$.Ааа; 
Нбес®1оп.ТехЕ := 'Секция №' + ТпЕТобЕг (К); 
Нбесе1оп.ИзаЕей := РГогм1.Итаер азх 3; 
Нб5есЕ1опт .Ма1пИзаЕв := 3 * Бе1фба; 
епа; 
епа; 


ргосеаиге ТГогп1.НеааегСоп®го11Вез12е (5епаег: ТОБ)ес®); 
// Устанавливает положение и размеры компонентов 


Бед1п 
им1ЕВ Неа4егСопего11 @ао 
Бед1п 
Еа11.ТеЕф := ПБе1%а; 
Еа101.Тор := НеааегСопего]11.Нелапе + 1; 
Еа1е1.И1аЕр := бесЕ1оп$.Т6емз [0] .\М1аЕн -— 2 * Пе1фа; 
Мепо1.ЪеЕЕ := ЗесЕ1оп$.Теем$ [1] ..еЕЕ + Ое]1жа; 
Мепто1.Тор := НеааегСоп®го11.Нелаве + 1; 
Мемо1.М1аеп := бесЕ1оп$. Т6емз$ [1] .М1аЕн - 2 * Пе1фа; 
Ва Еоп1.ГеЕ®е := бесе1оп$.Т+етз [2] .1еЕЕ + Пе]1фа; 
Виееоп1.Тор := НеааегСоп®го11.Незайе + 1; 
ВаЕбоп1.И1аАЕн := бесЕ1оп$.Теем$ [2] .Мзаей -— 2 * Пе1жа; 
епа 
епа; 


ргосеаиге ТЕГогм1.НеааегСоп®го11бесЕ1опВез12те ( 
НеааегСоп®&го1: ТНеааегСоп®го1; ЗесЕ1оп: ТНеааег$есе1оп); 
Бед1п 
Неа4аегСопего11Вез12е (5е1Е) 
епа; 


Не забудьте определить в области видимости обработчиков КогмСгеафе 
и НеааегСоп+го11Вез1те глобальную константу Бе1 ка. 
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Для заголовка создается объект класса ТНеадег5 ес 1опз, определяющий сек- 
ции заголовка. Следующее свойство этого объекта открывает доступ к индексиро- 
ванным объектам-секциям класса ТНеадег$есе1 оп: 


ргорехЕу ГТтемз [Тпаех: 


Тпседег]: ТНеааегбесе1оп; 


Свойства класса ТНеадег5ес®1оп перечислены в табл. 17.29. 


Таблица 17.29. Свойства класса ТНеадег5есйоп 


Свойство 


ргорег®у А11аппепе: 
ТА] 1апмепе; 


ргорег®у А11омС11СсК: 
Воо1еап; 


ргорегеу ГеЁЕс: Тпседег; 


ргорег®у Махи1аеп: 
Тпсечег; 
ргорег®еу Мтпи1аеп: 
Тпфседегт; 


ргорег®еу Клоп: Тпфедег; 


ТНеааег5 ес 1оп5$у1е = 
(РзТехЕ, В$5Омпегр)хгам); 
ргорег®еу 5%у1е: 
ТНеааег$ ес 1оп5$у1е; 


Определяст выравнивание текста: 

саЬеё Ла 1Еу — выравнивание влево; 
саСепеег — текст центрирован по горизонтали; 
фав1апеа$61Еу — выравнивапие вправо 


Разрешает/запрещает генерацию события 
Оп5ес®&1опС11сКкК при щелчке па секции 


Определяет положение левой границы секции 
относительно границ компонента (в пикселах) 


Определяет максимальную пгирину секции 
в пикселах 


Определяет минимальную ширину секции 
в пикселах 


Определяет положение правой границы сскции 
относительно границ компонента (в пиксслах) 


Определяет способ формирования секции: 

В зТех® — секция содержит только текст 

и изображастся автоматически; В5ОмпегОгкам — 
секция прорисовывается программой 


Ргорегеу И1АЕГ: Тптедег; Содержит текущую ширину секции в пикселах 


Следующий метод добавляет очередную секцию заголовка: 


ЕапсЕ1оп ТНеа4егбесе1оп$.Ааа: ТНеааегЗес®1оп; 


Некоторые свойства класса ТНеадег$ ес 1оп представлены в табл. 17.30. 


Таблица 17.30. Свойства класса ТНеадегЗесйоп 


Свойство 


ргорегеу А11омС11ск: 
Воо1еап; 


ргорегеу 1015р1ауМапме: 
ЗЕкг1па; 

ргорегЕу ГпадеТпаех: 
ТТмадеТпаех; 


Если содержит значение Тгие, разрешает 
щелкнуть на секции заголовка, как па кнопке. 
В этом случае управление передается 
обработчику события Опб$ес&1опС11сК 


Имя заголовка секции 


Определяет индекс изображения из хранилища 
Ттааез, которое будет появляться следом за 
текстом заголовка 


продолжение 7 
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Таблица 17.30 (продолжение) 


Свойство Гопивание 


ргорегЕу МахИ1АЕН: Тпеедег; | Определяет максимальную и минимальную 
ргорегЕу М1п\1аев: Тпеедег; | ширину секции 


фуре ТНеадег5еск1оп5®у1е = Определяет тип секции: п5Техе — секция 
(15$Техе, В$Омпегр)гам); содержит только текст; п5Омпег)гам — секция 
ргорег%Еу 5%у1е: нуждается в программной прорисовке 
ТНеааег5ес& 1оп5 $ у1е; 


ргорегеу Техе: $%г1пд; Содержит текст секции 


Свойства компонента ТНеааегСоп+го1 представлены в табл. 17.31. 


Таблица 17.31. Свойства компонента ТНеадегСотто! 


Свойство 


ргорегеу Сапуаз: ТСапуаз; С помощью этого свойства можно изображать 
графику в секциях заголовка 


ргорегеу Но+Тгаск: Разрешает/запрещает цветовое выделение секции, 
Воо1еап; на которой располагается указатель мыши 


ргорегеу 5ес(1опз: Содержит секции заголовка 
ТНеаЧ4ег5ес®1оп$; 


События компонента ТНеадегСопЕго1 перечислены в табл. 17.32. 


Таблица 17.32. События компонента ТНеадегСоп!о! 


Событие 


ТРгамбесе1опЕуепе = ргосеацге Возникает при необходимости 

(Неа4егСоп®го1: ТНеааегСоп*го]1; прорисовать секцию, для которой 

Зесе1оп: ТНеааег$есе1оп; сопзе КВесё: | установлен стиль В$Омпег)гам: 

ТВесе; РгеззеЯ: Воо1еап) о оБдес*; ЗесЕ1оп — объект-секция; Вес® — 

ргорегЕу Опргамбесе1оп: прямоугольник прорисовки; 

ТР2гаибесе1опЕхепе; Ргеззеа — признак нажатой кнопки 
МЫШИ 


ргорегеу ОпКез12е: ТМ№о&1ЕуЕуепе; Возникает при изменении размеров 
компонента 


Т5есе1опМ№ое1ЕуЕуепе = ргосеаиге Возникает при щелчке мышью на 
(Неа@аегСопего]: ТНеаЧегСоп®го1; секции Зесетоп 

Зес&1оп: ТНеааег5ес®1оп) оЕЁ оБЗес*; 

ргорегеу ОпбесЕ1опС11скК: 

ТбесЕ1опМ№ое1ЕуЕуепе; 


Тбесе1опМ№оЕ1ЕуЕуеп® = ргосеацге Возникает при изменении размеров 
(НеааегСопего1: ТНеааегСоп®го1; секции Зес®1оп 

ЗесЕ1оп: ТНеааег5$есе1оп) оЁ оБзес®; 

ргорехеу Опбесе1опВе$12е: 

Т$есЕ1опМ№о$1ЕуЕуепе; 
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Событие 


Тбесе1опТгаск$афее = (&$5ТгаскКВеа1п, Возникаст при изменении размеров 
Е3ТгаскКМоуе, &5ТгасКЕпа); секции и позволяет обработать три 
Тбесе1опТкаскЕуепе = ргосеаиге ВОЗМОЖНЫХ СОСТОЯНИЯ: 
(НеааегСоп$го]1: ТНеааегСоп®го1; $ 5ТгасКкВед1п — начало 


бесЕ1оп: ТНеаЧег5бес®1оп; И1аев: перемещения границы; 

Тпеедег; Зфбаее: Тбесе1опТгаск$факе) Е $ТгасКМохуе — идет перемещение 
оЕ оь3ес*; границы; &$ТгасКкКЕпа — окончание 
ргорегеу Опбесе1опТгаск: перемещения границы 
Тбесс1опТгаскКЕхепе; 


ТЭтатиз$Ваг — строка состояния 


Компонент Т5ЕафазВакг предназначен для создания строки состояния, которая 
обычно располагается в нижней части основной формы. Компонент может иметь 
несколько панелей (секций), а также кнопку изменения размеров окна, в которое 
он помещен (рис. 17.11). 


Рис. 17.11. Пример компонента с тремя панелями и кнопкой изменения размеров окна 


Показанный на рисунке компонент Т5{асиазВахг с тремя панелями и кнопкой 
изменения размеров окна создан следующим обработчиком события ОпСгеаъе 
формы Еогм1 (предварительно на пустую форму поместите компонент Т5афа$- 
Ваг): 

ргосеаиге ТГогп1.ЕКогтСгеафе (беп4ег: ТОр)ес®); 

уаг 

Рапе1: Т5фаео$Рапе1; 
К: Тпседег; 


Бед1п 
м1ЕВ ЗсасазВаг1 ао Ёог К := 0 0 2 90 
Бедап 
Рапе] := Рапе1$.Ааа; 
Рапе].ТехЕ := КГогпма*% ('Панель №%а', [К]); 
Рапе1.М1аеп := Еогп]1.Млаер азх 3 
епа; 
епа; 


С компонентом связывается объект класса ТЗ аб азРапе] з, который опреде- 
ляет панели компонента. Каждая панель относится к классу ТбеасазРапе!] и имеет 
свойства, перечисленные в табл. 17.33. 
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Таблица 17.33. Свойства класса ТЗа\1иРапе! 


Свойство 


Определяет выравнивание текста относительно границ 
панели; са `еЕеЛаз®1Еу — выравнивается влево; 

саСепфег — цеитрируется по горизонтали; 
сак19ВеЛа$61Еу — выравнивается вправо 


ргорегеу А!11аптепе: 
ТА] 1аптепе; 


Определяст стиль рамки панели: рЬМопе — нет рамки; 
рЬГгомегеа — вдавлениая рамка; рЬКа1зеа — 
выпуклая рамка 


ргорегеу Веуе1: 
Тббаеа$Рапе]1Веуе]; 


Определяет способ формирования изображения 
панели: рзТехЕ — панель содержит только текст 

и прорисовывается автоматически; рзОмпег)гам — 
панель прорисовывастся программой 


ргорег®у Техе: $%к1па; | Определяет текст надписи в панели 


ргорегеу М1а%п: Определяет ширину панели в пикселах 
Трсеаег; 


Свойства компонента Т5аказВаг перечислены в табл. 17.34. 


ргорегеу 5%у1е: 
ТзЕабсизРапе15$у1е; 


Таблица 17.34. Свойства компонента ТЗаи$Ваг 


Свойство 


ргорег®у Саптаз: Канва для прорисовки панелей 
ТСаптуаз; 


ргорег®Еу Рапе]1з: Содержит объекты-панели. Свойство 
Т5еаео$Рапе]1с; ТбЕаеи$Рапе]1$. Теемз$ [ТпЧ4ех: Тпеедег]: 
ТэзЕаса$Рапе]1 
открывает доступ к панели по се индексу 


ргорег®еу Запрещает/ разрешает создание нескольких панелей. Если 
51тр1еРапе1: содержит значение Тгце, компопент имеет единственную 
Воо1еап; панель 


ргорег®у Содержит текст панели для $1тр]1еРапе1=Ткое 
51тр1еТехе: $5%х11п9; 


ргорег®у $517еСг1р: Разрешает/запрещает вставку кнопки изменения размеров 
Воо1еап; окна. Игнорируется, если А119п<>а1Во& ом 


События компонента Т5+аказВахг представлены в табл. 17.35. 


Таблица 17.35. События компонента ТЗ{аш$Ваг 


Событие 


ТРгамРапе1ЕуепЕ = ргосеааге Возникает при необходимости 
(ЗсабизВахг: ТзЕафа$Ваг; Рапе]: прорисовки панели Рапе1, если ее 
Т5< акчзРапе1; сопз®е Весе: ТВесь) свойство 56 у1е определено как 

оЕ оБ]ес®; р$зОмпегОгам: Вес® — прямоугольник 
ргорег®у ОпПгамРапе\1: прорисовки 

ТОгамРапе1Еуеп*; 


РгорегЕу ОпКез1те: ТМое1ЕуЕуеп(; Возникает при изменении размеров 
компонента 
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ТТоо!Ваг и ТТооВиКоп — панель 
инструментов и кнопки для нее 


Компонент ТТоо1Ваг представляет собой специальный контейнер для создания 
панелей инструментов. Главная отличительная черта компонента ТТоо1Ваг — его 
способность гибкого управления дочерними элементами, которые он может груп- 
пировать, выравнивать по размерам, располагать в несколько рядов. Компонент 
может манипулировать любыми вставленными в него дочерними элементами, но 
все его возможности в полной мере проявляются только со специально для него 
разработанным компонентом ТТоо1 Ва оп (кнопка панели инструментов). Этот 
компонент похож на кнопку ТбрееаВа оп, но не ищите его в палитре компонен- 
тов, — его там нет. Поскольку он разработан специально для компонента ТТоо1Ваг, 
вставить его в панель инструментов можно только после щелчка правой кнопкой 
мыши на компоненте ТТоо1Ваг и выборе в контекстном меню команды № е\ ВиКоп 
(Новая кнопка) или М№ем! Зерагафог (Новый разделитель) — разделители предназна- 
чены для функционального выделения на панели инструментов групп элементов 
и представляют собой разновидности кнопок ТТоо1ВоЕ ® оп. Компонент ТТоо1- 
ВиЕколп не имеет свойства, предназначенного для хранения изображения, однако 
компонент ТТоо1Ваг позволяет извлечь нужное изображение из контейнера 
ТТтаде!т 15% и поместить это изображение на кнопку. 

Методику использования компонентов ТТоо1Ваг и ТТоо1 Во оп рассмотрим 
на примере программы, окно которой показано на рис. 17.12. 


Рис. 17.12. Пример панелей ТТоо!Ваг с кнопками ТТооВиЦцоп 


1. Поместите на пустую форму компонент ТТмадет1 $, щелкните на нем правой 
кнопкой мыши и выберите команду [таде!1${ ЕЧог. 


2. Для заполнения контейнера ТмадеЪ1 з&1 подойдут любые небольшие по раз- 
меру изображения. К сожалению, растры из каталога [тадез\Виоп$ рассчита- 
ны на использование в кнопках Т5брееЯВиЕ в оп и содержат по два изображе- 
ния каждый — обычное и для недоступной кнопки. Кнопки ТТоо1ВаЕ оп также 
могут иметь два или три изображения, но эти изображения необходимо разме- 
щать в разных контейнерах ТТмадет.1 з&, поэтому использование заготовок из 
каталога [таде5\Виоп5 в кнопках ТТоо1ВаЕ оп приведет к появлению на них 
двух изображений одновременно'. Чтобы этого не произошло, загрузите зна- 
чок из каталога [тадез\[соп$, щелкнув на кнопке АДА в окне редактора и выбрав 
в этом каталоге файл СПеттса(. 


Точнее, при вставке ДВОЙНОГО изображения редактор компонента спросит у вас, надо ли его разде- 


лять на два отдельных изображения. 
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3. Повторите предыдущий шаг для файлов СН1р, Соп$&гис, Еа\н, Нпапсе, НапасВек, 
Утррупд, 5Куйпе и ТесНп(ду, после чего закройте редактор компонента Ттаде!1 5+. 


4. Поместите на форму компонент ТТоо1Ваг, в окне инспектора объектов разы- 
щите свойство Ттадез, раскройте список в правой колонке свойства Ттадез 
и выберите пункт ТмадеЪ1 +1. Таким образом мы указали компоненту на ис- 
точник изображений и можем теперь вставлять в него кнопки. 


5. Щелкните на компоненте Тоо1Ваг1 правой кнопкой мыши и выберите коман- 
ду № ем ВиКоп. 


6. Вставьте еще две кнопки, после чего вставьте разделитель командой № \ 5ерага{ог. 


7. Разместите на компоненте Тоо1Ваг1 остальные кнопки и разделители (см. 
рис. 17.12). 


8. Если хотите, чтобы кнопки имели модный «плоский» вид, установите в СВОЙ- 
ство Е1а* компонента Тоо]1Ваг1 значение Тгое. 


Свойство Ви опз компонента ТТоо1Ваг позволяет обращаться к каждому 
дочернему компоненту как к объекту класса ТТоо1Вае оп, свойства которого 
представлены в табл. 17.36. 


Таблица 17.36. Свойства класса ТТооВиНоп 


Свойство 


ргорегеу А11омА110р: 
Воо1еап; 


Если содержит значение Тгое, синхронизирует свое 
состояние с состоянием других кнопок в той же 
группе: в любой момент может быть нажата только 
одна кнопка группы. Игнорируется, если 
СгопреЯ=Га15е 


ргорегеу Саре1оп: 5&к1па; | Содержит связанный с кнопкой текст, который будет 
показан, если свойство $помСаре1оп$ компонента 


ТТоо1Ваг имеет значецие Тгое 


ргорег®у Поип: Воо1еап; Определяет состояние кнопки: если содержит 
значение Тгце, кнопка утоплена 

ргорегеу ПгораомпМепа: Связывает с нажатой кнопкой контекстное меню 

ТРорирМепц; 

ргорег®у сгопреа: Разрешает/запрещает учитывать свойство 

Воо1еап; А]1]1омА110р 


ргорегеу ГпадеТпаех: 
Торбедег; 


Определяет индекс связанного с кнопкой 
изображения 


Запрещает/разрешает выбор кнопки 


Определяет стиль кнопки: ЕЮ зВае оп — обычная 


ргорегеу ГТпаесеги1паее: 
Воо1еап; 


ТТоо]1Вабоп5$у1е = 


(ЕБзВиебоп, Ер$Среск, кнопка; Ер$Свеск — фиксируемая кнопка (остается 
ЕБзрРгорромп, в нажатом положении, для се освобождения нужно 
{р5берагаког, щелкнуть на ней еще раз); 5 зРгорромп — кнопка 


Е5$021\у1аег); 
ргорег®у 5+у1е: 
ТТоо1Вая6 *оп5ву]е; 


с символом раскрывающегося списка; 
Е зберагаког — разделитель (на месте этой кнопки 
будет пустое место); Ъ$р21у14ег — разделитель 
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Свойство Описание 


(в работающей программе на месте этой кнопки будет 
вертикальная черта) 


ргорег®Еу ИМгар: Воо1еап; 


Если имеет значение Тгое, кнопка завершает 
текущий ряд кнопок. Игпорируется, если свойство 
ИгараЪ1е компонента ТТоо1Ваг имеет значение 
Тгиае 


Свойства компонента ТТоо1Ваг перечислены в табл. 17.37. 


Таблица 17.37. Свойства компонента ТТооВаг 


| Свойство п 


ргорегеу Ашкоб127е: 
Воо]1еап; 


ргорегеЕу ВоебопСоцпе: 


Треедег; 


ргорегеу 
ВобеопНе1ап®: 
Тп$едег; 


ргорег®у 
215аБ1еаТмааез: 
ТТмадет1$*; 


ргорег®у Е1ат: 
Воо1еап; 


ргорегеу Но*Ттадез: 


ТГладет1$*%; 


ргорег®у Гпадез: 
ТТмаде!1$%; 


ргорег®у Тпаепе: 
Тпседег; 


ргорег®у 115%: 
Воо1еап; 


ргорегеу КомСоспЕ: 
Тпбедег; 


ргорег®у 
ЗПомСар®1опз: 
Воо1еап; 


Если содержит значение Тгое, высота компонента будет 
автоматически согласовываться с высотой кнопок 


Содержит количество вставленных в панель инструментов 
дочерних компонентов (не только кнопок ТТоо1ВиЕ оп) 


Определяет высоту кнопок ТТоо]1 Ва оп 


Определяет контейнер для изображений недоступных 
19: (6) (6) 


Если содержит значение Тгие, панель и кнопки на ней 
прозрачны для фона и вокруг кнопки появлястся граница, 
только когда на ней располагается указатель мыши 


Определяет контейнер изображений для кнопок в момент, 
когда на кнопке располагается указатель мыши 


Определяет контейнер для изображений кнопок в обычном 
состоянии 


Определяет отступ в пикселах от левого края компонента 
для первого Дочернего элемента 


Если имеет значение Тгие, изображение выравнивается по 
левой границе кнопки, а текст — по правой, в противном 
случае текст выводится под изображением. Игнорируется, 
если зпомСар®1оп$=ГРа]15е 


Содержит количество рядов кнопок 


Разрешает/запрещает показ на кнопках текста 


ргорегеу Игарар1е: Запрещает/разрешает располагать кнопки в нескольких 
Воо1еап; рядах 


Для компонента определено событие ОпВез1 ге, возникающее при изменении 
размеров компонента. 
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ТСоо!Ваг и ТСооВапа — панель 
инструментов и полосы для нее 


Компонент ТСоо1Ваг предназначен для создания настраиваемых панелей инст- 
рументов. Для каждого размещаемого на компоненте ТСоо1Ваг элемента созда- 
ется объект класса ТСоо1Вапа (полоса), который может изменять свои размеры 
и положение в пределах границ компонента. 

Центральным свойством компонента является свойство Вап4$ — массив со- 
зданных в компоненте полос ТСоо1Вапа. Каждая полоса может иметь текст, зна- 
чок и произвольный элемент управления. В отличие от компонента ТТоо1Ваг или 
ТСопЕко1Ваг полоса в компоненте ТСоо1Ваг всегда содержит только один 
интерфейсный элемент, но ничто не мешает этому элементу быть элементом- 
контейнером для размещения нескольких компонентов. Размещенный на по- 
лосе компонент всегда стремится занять левый верхний угол полосы, при этом 
остальные размеры полосы изменяются так, чтобы полностью охватить эле- 
мент. 

Поясним сказанное несложным примером. 


1. Поместите на пустую форму компонент ТСоо1Ваг — он тотчас же займет вер- 
хнюю часть формы, так как по умолчанию его свойство А11дптеп® содержит 
значение а1Тор. 


2. Щелкните на компоненте левой кнопкой мыши и выберите в контекстном меню 
команду Вапа$ ЕЧ\ог (Редактор полос). | 


3. Окно редактора похоже на многие другие используемые в Ое|рН! окна редакто- 
ров: щелкните на кнопке, чтобы вставить в компонент новую полосу. 


4. Вокне инспектора объектов можете задать текст для полосы и связанный с ней 
значок свойствами соответственно Тех% и ТмадеТпаех (предварительно ком- 
понент в свойстве Ттадез должен уже содержать ссылку на связанный с ним 
контейнер ТТмадет 13%). Свойство В1 Мар используется для заполнения по- 
лосы чередующимся узором. Для простоты ограничьтесь текстом Полоса 1 
и закройте редактор полос. 


5. Поместите ниже полосы, но втот же контейнер Соо1Ваг1, любой элемент управ- 
ления, например, текстовое поле ТЕа1 *. Подобно полосе поле растянется вдоль 
верхнего края контейнера и рядом появится вешка перемещения для реализа- 
ции механизма перетаскивания (Ога&ОосК). 


6. Вновь раскройте редактор полос, выделите ранее установленную полосу и в ин- 
спекторе объектов раскройте список свойства Сопего1 — в нем окажется толь- 
ко что вставленный в форму компонент ТЕа1 . Щелкните на нем — ион «пере- 
прыгнет» на первую полосу, оставив ранее занимаемую им полосу ТСоо1Ваг 
пустой. Таким способом происходит связывание полосы ТСоо1Вахг с компо- 
нентом. 


Освободившуюся полосу можно связать с новым элементом управления (на- 
пример, СомроВох) ит. д. 
Окна работающей программы показаны на рис. 17.13. 
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Рис. 17.13. Вид компонента Со!Ваг при разных настройках 


Свойства компонента ТСоо1Вапа представлены в табл. 17.38. 


Таблица 17.38. Свойства компонента ТСоо|!Вапа 


Свойство Описание 


ргорегеу В1%тар: Определяет изображение, которое будет циклически 
ТВ1е пар; повторяться по всему пространству полосы 


ргорегеу Вгеак: Если содержит значение Тгое, полоса располагается 
Воо1еап; в новой строке, в противном случае — в той же строке, 
что и предыдущая полоса 


Ргорегеу СопЕго1: Связанный с полосой элемент управления 
ТИ1пСопего1; 


ргорег%у Запрещает/разрешает пернодическое повторение 
Е1хеаВаскагоцпа;: изображения В1 Е мар по всей поверхности полосы 
Воо1еап; 


ргорекеу Е1хеЯ$17те: Запрещает/ разрешает изменение размеров полосы 
Воо]1еап; 


ргорег®у Предписывает показывать полосу только 
Ног12опфа1Оп]1у: горизонтально 
Воо1еап; 


ргорег®у ГпадеТпаех: Содержит индекс связанного с полосой изображения 
Трсеаег; 


ргорегеу М1пНе1оане: Определяет минимальное значение высоты полосы при 
Тпфедег; изменении се размеров 


ргорегеу М1пИ1аеп: Определяет минимальное значение ширины полосы 
Трфеаег; при изменении ее размеров 


ргорег®у РагепеВ1%тар: Разрешает/запрещает использовать значение свойства 
Воо1еап; В1Е тар компонента-владельца ТСоо]1Ваг вместо 
собственного свойства В1 Е тар 


ргорег®у Техе: З%х1па; | Содержит текст полосы 
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Свойства компонента ТСоо1Ваг перечислены в табл. 17.39. 


Таблица 17.39. Свойства компонента ТСооВаг 


Свойство Описание 


ргорегеу Ацко$12е: Если содержит значенис Тгие, высота компонента будет 
Воо1еап; автоматически согласовываться с высотой полос 


ргорегеу Вап4з: Содержит список всех полос. Свойство Теемз этого 
ТСоо1Вапа$; объекта открывает доступ к полосе по ее индексу 


ргорег®у В1Емтар: Определяет изображение, которое будут использовать все 
ТВ1емар; ПОЛОСЫ 


ргорегеу Е1хеЯОгаег: Запрещает/разрешает перемещение полос 

Воо1еап; 

ргорегеу Е1хеНе1апе: | Запрещает/разрешает изменение размера полос 
Воо1еап; 

ргорегеу Тпадез: Указывает контейнер для изображений, связанных 
ТГпаде1 13%; с каждой полосой 

ргорегеу 5помТехе: Если содержит значение Тгое, на полосе отображается 
Воо1еап; связанный с ней текст 


ргорехеу \Уег+1са!1: Если содержит значение Тгое, полосы располагаются 
Воо1еап; вдоль вертикальной границы компонента 


События компонента ТСоо1Ваг перечислены в табл. 17.40. 


Таблица 17.40. События компонента ТСооВаг 


ргорегеу ОпСпапде: Возникает при изменении свойств Вгеак, Тпаех 
ТМ№о1ЕуЕхепс; или Из аен у любой полосы 


ргорегеу ОпВез12е: Возникает при изменении размеров компонента 
ТМ№МоЕ1ЕуЕБуепс; 


ТРаде$сгоПег — панель 
с кнопками прокрутки 


Компонент служит контейнером для размещения длинных узких компонентов на- 
подобие компонента ТТоо1Ваг. Его отличительная черта — наличие небольших 
стрелок прокрутки по сторонам контейнера в случае, если ширина (высота) дочер- 
него окна превышает соответствующий размер компонента. Чтобы увидеть ком- 
понент в действии, перейдите на вкладку \!п32 палитры компонентов ОерЫ — 
сам компонент ТРаде5сго11ех на этой вкладке обычно не виден, и, чтобы полу- 
чить к нему доступ, следует щелкнуть на кнопке с небольшой стрелкой в правой 
части страницы. 

По назначению компонент весьма напоминает уже рассмотренный компонент 
Т$сго1 1Вох (см. раздел «ТЗсгоЙВох — панель с полосами прокрутки» в главе 16) 
и отличается от него двумя обстоятельствами: компонент не содержит полос про- 
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крутки, а прокрутка осуществляется так, чтобы полностью показать ранее невиди- 
мый дочерний компонент. 
Свойства компонента ТРаде$сго]1 1ег представлены в табл. 17.41. 


Таблица 17.41. Свойства компонента ТРадеЗсгойег 


Свойство 


ргорегеу АпЕо5сго11: Воо1еап; Разрешает/запрещает автоматическую 
прокрутку при остановке указателя мыши 
на кнопке прокрутки 


ргорегеу Виебопб12е: Тпбедег; Определяст размер в пикселах кнопок 
прокрутки: для горизонтальной 
ориентации — ширину, для вертикальной — 
высоту 


ргорегеЕу Сопего]: ТИ1пСопего1; Содержит ссылку на прокручиваемое окно 


ргорегеу Пгадч5сго1]1: Воо]1еап; Указывает, будет ли компонент приемником 
в операциях перетаскивания (Ога#& Огор). 
Если содержит значение Тгие, компонент 


будет прокручивать дочернее окно при 
перемещении на нем указателя мыши 
с «грузом» 


ргорегеу Мага1п: Тпфедег; Указываст расстояние в пикселах от 
границы компонента до соответствующей 
стороны дочернего окна 


Буре ТРаде$сго11егОг1епеае1оп = Определяет ориентацию компонента: 
(зоНог12оп6а1, зо\Уег%1са1); $оНог12опва]1 — по горизонтали; 
ргорегеу Ог1епфае1оп: 5о\Уег*1са1 — по вертикали 
ТРадезско11егОг1епфа*1оп; 


ргорегеу Ро$1%1оп: Тпеедег; Определяст текущее положение 
прокручиваемого окна относительно границ 
компонента 


ТСотБоВохЕх — комбинированный список 
с расширенными возможностями 


Компонент ТСотроВохЕх впервые введен в версии 6. По сравнению с рассмот- 
ренным компонентом ТСопьоВох (см. раздел «ТСотБоВох — комбинированный 
список» в главе 15), он позволяет снабжать пункты (элементы) списка небольши- 
ми изображениями, а также регулирует отступ каждого элемента от левого края 
списка. Пример компонента показан на рис. 17.14 (проект СВар_17\СотБоВохЕх\ 
СотБоЕх.Чрг). 
1. Поместите на пустую форму компоненты ТСомроВохЕх и ТТмадет1 3+. В свой- 
ство ТСопроВохЕх .Тмадез$ поместите ссылку на Ттадер1$%1 — этот компо- 
нент будет хранилищем изображений для СомьоВохЕх1. 


2. Наполните компонент Ттаде! 1:1 несколькими изображениями, как это опи- 
сано, например, в разделе «ТТ.15Уле\м — иерархический список». 
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: Первый 
% Второй 
5 Третий 
Е Четвертый 


Рис. 17.14. Демонстрация компонента ТСотБбоВохЕх 


Чтобы повторить пример, проделайте следующие шаги. 


3. Вокне инспектора объектов щелкните на кнопке с многоточием в строке сложно- 
го свойства СопоВохЕх1 . ТеетзЕх, чтобы раскрыть редактор этого свойства. 


4. Добавьте с помощью редактора столько строк в список, сколько изображений 
хранится в компоненте Ттадет 131 (если, разумеется, в каждую строку вы 
хотите поместить собственное изображение). Для каждой строки в окне ин- 
спектора объектов задайте текст (свойство СарЕ1 оп), индекс изображения 
(ТтадеТпаех), смещение от левого края (Тпаеп\) и индекс изображения для 
выбранной строки ($е1ес&ТмадеТпаех). Отрицательное или нулевое значе- 
ние Тпаеп+ означает отсутствие отступа, любое положительное число опреде- 
ляет отступ в пикселах горизонтального размера изображений. Если значение 
свойств $е1ескТтадеТпаех и ТтадеТпаех не совпадают, выбранная строка 
получит не то изображение, которое было в раскрытом списке в момент выбо- 
ра. Это же изображение она получит в момент повторного раскрытия списка, 
но при выборе другой строки вернет начальное изображение. 


Следует заметить, что функциональность компонент не полностью соответству- 
ет функциональности компонента ТСомроВох, так как в нем отсутствуют некото- 
рые возможности компонента ТСопроВох (например, программная прорисовка 
строк). Большая часть свойств, методов и событий компонентов ТСопроВохЕх 
и ТСопбоВох совпадают. Специфические свойства описаны в табл. 17.42. 


Таблица 17.42. Свойства компонента ТСотБоВохЕх 


Свойство Описаие 


ргорегеу Тпадез: Содержит ссылку на объект-хранилище 
ТСизботТтадет1з%; изображений 

ргорегеу ТеемзЕх: Содержит ссылку на объект класса 
ТСопроЕхТеемсз; ТСопроЕхТ&ет$ 


Объект класса ТСомьоЕхТеемз содержит всю необходимую информацию 
о списке в целом. Свойства этого класса представлены в табл. 17.43. 


Таблица 17.43. Свойства класса ТСотБоЕхКетз$ 


Свойство описание 


ргорегеу Сазебеп$161\е: Определяст, будут ли учитываться регистр букв при 
Воо]1еап; сортировке строк 


ргорегЕу Соипе: Тпеедег; | Содержит количество строк в списке 
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Свойство Гопивание 


ргорегеу Сотрот+емтз [сопз* | Открывает индексированный доступ к объектам 
Тпаех: Тпседег]: класса ТСопроЕхТфем, в которых хранится 
ТСомроЕхТеем; информация о каждом элементе списка 


Определяет способ сортировки элементов: зЕМопе — 
нет сортировки; зЕРафа — по значениям свойства 
Рафа; зЕТехе — по значениям свойства Саре1оп; 
5ЕВоЕр — объединеппая сортировка (по значениям 
обоих свойств). Свойства Рафа и Саре1оп 
представлены ниже в описании класса 
ТСопроЕхтТеем 


фуре Т115ЕТкемзбокЕеТуре = 
(5ЕМопе, $5ЕПафа, $з%Техе, 
5ЕВоеП); 

ргорег®у согЕТуре: 
ТбогЕТуре; 


Если для списка указан тип сортировки з&Техф, строки списка сортируются 
немедленно. Если указан тип з&Рафа или ВоВ, сортировка осуществляется 
в обработчике события ТСопроЕХТеетз .ОпСотраге. 

В объектах класса ТСомроЕхТ кем хранится вся информация о каждом элемен- 
те списка. Этот класс имеет собственные свойства (табл. 17.44). 


Таблица 17.44. Свойства класса ТСотБоЕхКцет 


Свойство _ Гопивание 
ргорег%&у Сар®1оп: $%г1пд; Текст элемента списка 


ргорег®у Пафа: Ро1п%ег; Указатель на связанный с элементом 
произвольный объект 


фуре Т!паадеТпаех = Фуре Индекс связанного с элементом изображения 
Тпсеаег; в раскрытом списке 

ргорегеу Гпаде!Тпаех: 
ТТмаае1Ттаех; 


ргорегЕу Тп4епе: Тпеедег; Смещение элемента от правого края листа! 


Определяет индекс маски, накладываемой на 
изображения ТтадеТпаех 
и 5е1ескеаТмадеТпаех 


ргорегеу Оуег1ауГтадеТпаех: 
ТТмадеТпаех; 


Индекс изображения ДЛЯ выбранного элемента 
списка 


ргорегеу 5е1есфсеаТтадеТптаех: 
ТГпадеТпваех; 


У класса ТСопроЕхТеетз есть собственные методы (табл. 17.45) и события, 
управляющие списком в целом. 


Таблица 17.45. Методы класса ТСотБоЕхЦетз$ 


[Метод [Оиане 


Еапсё1оп Ааа: ТСошроЕхГееп; Добавляет к списку 
новый элемент 


Еапсе1оп АЧаТеем(соп$® СарЕ1оп: 5ег1па; сопзе | Добавляет к списку новый 


ТпиачеТпаех, 5е1ескеаТмаадеТпаех, элемент и инициализи- 
продолжение 


"В документации сказано, что отступ определяется в пикселах экрана. На самом деле это не так — он 


приблизительно равен ширине изображений: 1 — отступ на одно изображение, 2 — на два ит. д. 
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Таблица 17.45 (продолжение) 


Метод Описание 


Оуег1ауТтадеТпаех, Тпаепе: ТпЕедег; Пафа: руст его свойства 
Ро1п%ег): ТСотроЕхТ*%еп; 


Бипс1оп Тпзег® (Тлаех: Тпбедег): Вставляет в указанную 
ТСопооЕхТ ем; позицию списка новый 
элемент 


фуре Т15еТЕетзСотраге = #апсЕ1оп (115%: 
ТЬ13ЕСопЕхго]1Теемз; Тпаех1, Тпаех2: Тпеедег): 
Тпфседекг; 

ргосеаиге Сизеомбог® (Сотраге: 
ТЬ156ТеетзСопраге); 


Сортирует элементы 
с помощью функции 
Сопраге 


ргоседаге 5ог(; Сортирует элементы 


с помощью обработчика 
события ОпСомраге 


Помимо перечисленных в табл. 17.45, в классе определены также типичные для 
любой коллекции методы: А$$1ап, С1еахк, Бе1е+е ит. д. 
Для класса определено единственное событие: 


фуре Т11$5ЕСоптрагеЕуепе = ЁЕапсЕ1оп (1136: Т115ЕСопЕго1Т%емз; 
$ет1, ТЕем2: Т1$6Сопего1Т%ет): Тпбедег оЁ оБЗес*; 
ргорегеу ОпСопраге: Т11$&СотрагеЕуеп+; 


Это событие возникает, если в качестве типа сортировки выбрано значение 
Рафа или зЕВоев. Обработчик должен проанализировать два элемента и вер- 
нуть —1, 0 или +1, если соответственно первый элемент меньше, равен или больше 
второго. 

Методы компонента ТСотроВохЕх представлены в табл. 17.46. 


Таблица 17.46. Методы компонента ТСотБоВохЕх 


ргосеацге Адатеем(Т+ет: Зееапа; Добавляст новый элемент 
АОБ)]есе: ТОБЗес®); и связанные с ним данные 


ргоседиге С1еаг; оуегг1ае; Очищает список 


рхгоседиге С1еаг5бе1есЕ1оп; омегг1ае; Проверяет, выделен ли какой-то 
элемент списка и, если так, снимает 
выделение (помещает —1 в свойство 
Теептпаех и очищает свойство Тех) 


рхгосеацхе Сорубе1есе1оп Проверяст, выделен ли какой-то 
(РезЕ1пае1оп: ТСозеопЬ1$еСопего1); элемент списка и, если так, копирует 
оуегх1ае; его в список рез 1па*1оп 


ргосеацге Пе1егебе1ескеа; очегг1ае; Проверяет, выделен ли какой-то 
элемент списка и, ссли так, удаляет 
его из списка 


Еапсеоп Госизе: Воо1еап; оуегг1ае; | Возвращает значение Тгое, если 
компонент имеет фокус ввода 


ТСотБоВохЕх — комбинированный список с расширенными возможностями 399 


Метод аи 


ргоседаке Моуебе1есе1оп (.ез&1па1оп: | Проверяет, выделен ли какой-то 
элемент списка и, если так, копирует 


его в список ВБез 1паЕтоп и затем 
удаляет 


ргосеацге 5е1ес{А11; оуегг1ае; Выдселяет весь текст выбранного 
элемсита. Чтобы выделить часть 
текста, используйте свойства 
Зе15Е ат и 5е1Гепа® п 


События компонента ТСотроВохЕх перечислены в табл. 17.47. 


Таблица 17.47. События компонента ТСотБоВохЕх 


Событие 


ргорегеу ОпВед1пЕЯ1е: Возникает, когда пользователь начинает изменять 
ТМ№о&1ЕуЕуепе; текст в поле списка 


ргорехеу ОпСтападе: Возникает при каждом изменении пользователем 
Т№о61ЕуЕхепе; (но не программой!) свойства Техе 


ргорехЕу ОпргорПомп: Возникает в момент раскрытия списка 
ТМ№оЕ1ЕуЕуепе; 


ргорегеу ОпЕпаЕЯ1*: Возникает, когда пользователь заканчивает 
Т№ ое 1 ЕуЕуепс; изменять текст в поле списка 


ргорехгеу Опбе1ес+: Возникает, когда пользователь выделяет элемент 
Т№ое1ЕуЕБуепе; списка 


Глава 18 


Компоненты вкладки 
Зузет 


В этой главе описаны не все компоненты, представленные на вкладке 5у%ет па- 
литры компонентов, в частности, не описаны компоненты ТРРЕС11еп%, ТООЕ- 
С11еп Ее Теем, ТОрЕ5егуег и ТОРЕ5егуегТ*ем. Эти компоненты рассчитаны на 
поддержку устаревшей технологии динамического обмена данными (Оупапис Оаба 
Ехсрапе, ООЕ) между программами, которая в современных программах полно- 
стью вытеснена технологией связывания и внедрения объектов (ОБ]есё Глитв 


апа Ете4 те, ОГЕ). 


ТТитег — таймер 


Компонент ТТ1мег (таймер) служит для отсчета интервалов реального времени. 
Его свойство Тпкегуа]1 определяет интервал времени в миллисекундах, который 
должен пройти от включения таймера до наступления события ОпТ1птег. Таймер 
включается при установке значения Тгие вего свойство Епаб1еа. Однажды вклю- 
ченный таймер все время будет возбуждать события ОпТ1 мег до тех пор, пока его 
свойство ЕпаЪ1еа не примет значения Га] зе. 

Следует учесть, что в силу специфики реализации стандартного аппаратного 
таймера [ВМ-совместимого компьютера минимальный реально достижимый ин- 
тервал отсчета времени в операционных системах М$-2О$, \/т4о\з$ 3.х и \/т- 
4о\5$ 95/98/МЕ не может быть меньше 55 миллисекунд (этот интервал называется 
тиком). Более того, любой интервал времени, отсчитываемый с помощью тайме- 
ра, в этих операционных системах всегда кратен 55 миллисекундам. Замечу, что 
для операционных систем \/1п4о\$ МТ Зегуег (УМогк$айоп), Мп о\$ 2000, УМт- 
4о\$ ХР длительность тика составляет 10 мс. Чтобы убедиться в этом, проделайте 
следующий эксперимент (проект СВар_18\Птег\Птег.арг), в котором подсчитыва- 
ется среднее время между двумя срабатываниями таймера. 


1. Начните новый проект стестовой формой и поместите на нее компонент ТТ1тек. 
2. Установите в свойство Епаф1еа таймера значение Га] зе. 
3. Напишите модуль главной формы, представленный в листинге 18.1. 
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Листинг 18.1. Модуль главной формы программы, иллюстрирующей работу 
таймера' 


112016 0п1Ё1; 
1п$егЕасе 


и5е$ 
Изпаом$, Меззадез$, 5у$0%115$, С1аз5$ез$, СгарВ1с$, СопЕго1$, 
Рогм$, 01а1о09$, 569СЕг15$, Воебоп$, ЕхеСЕг1$; 
Суре 
ТЕиЕхамр]1е = с1аз$$ (ТГогп) 
Рапе11: ТРапе]1; 
ЮБВип: ТВ1ЕВЕП; 
ЮрС1о5е: ТВ1ЕВфп; 
еЯТпроае: ТЕазе; 
16006риае: ТЬаре1; 
пиОсера®: ТМемо; 
Т1мег1: ТТ1лпег; 
ргосеаиге ЮБВопС11скК (бепаег: ТОБ)ес®); 
ргосеаиге Т1пег1Т1мег (беп4ег: ТОБ]ес®); 
ргосе4аиге ГогпАс®1уафе (бепаег: ТОБ]ес®); 


рглуаее 
{ Рглуаёе аес]агаЕтоп$ } 
ВедчТ1те: ТрРафеТ1те; // Начальное время цикла 
Соппеег: Тпфедег; // Счетчик цикла 

руь11с 
{ РиБ11с аес]агаЕлоп$ } 

епа; | 

уаг 


ЕиЕхатр]1е: ТЕпЕхапр1е; 
1пр1епепфа®1оп 
{$В *.РЕМ} 


ргосеаоге ТЕпЕхапр1е.ЮЬВопС11скК (5епаег: ТОБ)ес®); 
// Запускает таймер. еаТприЕ содержит период его 
// срабатывания. 
уаг 

Ре1ау: Мога; 
Бед1п 

// Проверяем задание интервала 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу ВЕ р:// 
мимм.рКег.сот/до\ип[оа4 — Примеч. ред. 
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1Е еаТприе.ТехЕ='' Беп Ех1С; 
Егу 

Ре1ау := 5ЕгТоТипф (еЧТприе.Техе); 
ехсере 


бПомМе$заче ('Ошибка в записи числа'); 
еЯТпрое.$5е1ес{А11; 
еаТпро*.5ееГосцз; 


Ех1е 
епа; 
Соцпеег := 0; // Сбрасываем счетчик 
Т1пег1.Тпеегуа1 := Ое1ау; // Устанавливаем интервал 
ВечТ1те := Т1пе; // Засекаем время 
Т1пег1.Епаб1еа := Тгое; // Пускаем таймер 
Зсгееп.Сигзог := сгНочЕС1а$$ 


епа; 


ргосеаиге ТЕпЕхапр1е.Т1мег1Т1техг (Зепаег: ТОБ)ес®); 
уаг 
В, м, 3, м5: Мога; // Переменные для декодирования 
// времени 


сопзе 

МахСоцпЕ = 55; // Количество срабатываний таймера 
Бед1п 

Соппеехг := Соцпбег + 1; // Наращиваем счетчик 
срабатываний 

4Е Соипкег=МахСоцп® %Веп // Конец цикла? 

Бед1п // - Да 

Т1мег1.Епар1е := Еа1зе; // Останавливаем таймер 


// Находим среднее время срабатывания: 

РесодеТ1те ( (Т1ме-ВезТ1ме) /МахСоцп®, В, м, 3, м3); 

ппОерие.1пез.Ааа ( // Выводим результат 
Гогма* ('Задано %5$ м5. Получено %а п$.', 
[еЯТпро*.Техе, п$])); 

еа1Тприе.Техе := ''; // Готовим следующий запуск 

еЯТпра® .ЗееГосаз; 

бсгееп.Сагзог :;= сгреЁаз1* 

епа; 
епа; 


ргоседиге ТЕпЕхапр1е.ГогпАсе1уафе (бепаег: ТОр)ес®); 
Бед1п 

еаТпрае .зееЕРоси$ 
епа; 


епа. 
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Необходимость нескольких (МахСоцп®) срабатываний для точного усредне- 
ния результата связана с тем, что системные часы обновляются каждые 55 мс (10 — 
для операционных систем на основе ядра МТ). Вид окна работающей программы 
показан на рис. 18.1. 


| Задано 1 п$. Получено 10 тз. 
| Задано 2 тз. Получено 10 т5. 
|Задано 11 тз. Получено 20 тз. 


| Задано 23 тз$. Получено 30 тз$. 


Рис. 18.1. Окно программы проверки таймера 


ТРаш{Вох — окно для рисования 


Назначение компонента ТРа1пЕВох — предоставить пользователю простое окно 
с канвой для рисования произвольных изображений. Канва содержится в свой- 
стве Сапуаз компонента, графические инструменты — в свойствах КопЕ, Реп 
и Веа5$, а собственно рисование осуществляется в обработчике события ОпРа1п*. 
Особенности использования этих инструментов описаны в разделе «Графический 
инструментарий» главы 13. Например, представленный ниже обработчик (проект 
Зоитсе\СВар_18\Ра1п{Вох\Ра1пОето.арг) создаст окно, показанное на рис. 18.2. 


Рис. 18.2. Пример использования компонента ТРам{Вох 
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ргоседиге ТГогп1.Ра1п®Вох1Ра1п® (Зепаег: ТОБЗес®); 


уаг | 
Хх, У: Топбедег; 
Бедап 
м1ЕВ Ра1зпЕВох1, Сапуаз ао 
Бед1п 
ВгазИ.Со1ог := с1Веа; 
Е111р5е(0, 0, Маер, Нелаве); 
Ропе.Мате := 'Аг1а1'; 
Ропе.512е := Нелапе азх 5; 
Ропе.56у1е := [Е$Во1А, Е$16а11с]; 
Ропе.Со1ог := С1\МВ1е; 
Х := (М1аЕв — техемтабк ('Ре1рЬ1')) а1у 2; 
У := (НезоарЕ — ТехеНезаре('0')) ау 2; 
ТехеОцф (Х, У, 'Бе1рЬ1') 
епа 
епа; 


ТМед!аР!ауег — медиаплейер 


Компонент ТМеЯ1аР1ауег представляет собой полнофункциональное мультиме- 
дийное устройство, способное, в частности, воспроизводить одновременно и изоб- 
ражение, и звук А\У]-файлов. Чтобы увидеть компонент в действии, выполните 
следующую последовательность действий (проект СВар_18\МефаРауег\МР.арг). 


1. Поместите на пустую форму две панели. Удалите содержимое их свойств Сар- 
фо1п. Для нижней панели установите А1 1ап=а1Вое ом, для верхней — А11ап= 
=а1С11епе. 


2. Верхняя панель будет экраном для отображения изображения. Установите для 
нее Мапе=рпр1зр1ау. 

3. Поместите на нижнюю панель компонент ТМеа1аР1ауег и введите в его свой- 
ство 21 зр]ауссылку на панель рпр1 зр1ау. Раскройте список свойства Е11еМаме 
ивыберите в нем файл с:\Ргодгат Е{ез\ВоПапа\Ое|рН17\Оетоз\Соо[5иР\5рее41$.а\й. 
Поместите в его свойство АцеоОреп значение Ткие. 


4. Напишите такой обработчик события ОпВез12е для формы: 


ргосеааге ТЕогп1.1015р1ауКез1те (бепаег: ТОБ]ес®); 
Беда п 
// Устанавливаем границы изображения 
МР.О01$р1ауВесе := 
Вес& (0,0, 0:5р1ау.Мтаен, 215р1ау.Незай®); 
епа; 
Если ваш компьютер оснащен звуковой картой, включите звуковые колонки 
и запустите программу. После щелчка мышью на кнопке |! | вы увидите велико- 


' Маршрут доступа с:\Ргодгат РЕ(ез\Во[апа\Бер7 указан для умалчиваемого расположения Пер}. 
Если система установлена в другую папку, этот маршрут нужно скорректировать. 
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Рис. 18.3. Демонстрация компонента ТМефаР!ауег 


лепный рекламный ролик «5рееа 15 ОерЫ». Причем вы можете изменять размеры 
окна программы и таким способом получить полноэкранное видео (рис. 18.3). 

Как видите, использование компонента предельно просто. Он автоматически 
распознает тип мультимедийного устройства по расширению файла и берет на себя 
управление этим устройством. Разумеется, в каждый момент времени компонент 
может управлять лишь одним устройством, однако опосредованно путем измене- 
ния содержимого свойства Е11еМаме или явно с помощью свойства Реу1сеТуре 
программа может менять устройство, связанное с компонентом. 

Каждая кнопка компонента имеет собственное имя, позволяющее программис- 
ту сделать какую-либо кнопку невидимой или недоступной. В табл. 18.1 приво- 
дятся имя и назначение каждой кнопки (под носителем информации подразумева- 
ются файлы и физические устройства, которые могут служить источником или 
приемником информации). 


Таблица 18.1. Назначение кнопок компонента ТМед!аР!ауег 


РЕР1ау Инициирует воспроизведсние носителя информации 


рЕРацизе Прерывает процссс записи или воспроизведения 
информации. Повторный щелчок на этой киопке 
возобновляет прерванный процесс 


продолжение = 
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Таблица 18.1 (продолжение) 


БЕЗЕор 


БЕМехе 


БЕ есе 


Останавливает запись или воспроизведение 


Позиционирует устройство на следующую дорожку 
или в конец носителя информации, если устройство не 
имсет дорожек 


Позиционирует устройство на предыдущую дорожку 
или в начало носителя информации, если устройство 
не имеет дорожек 


Позиционирует устройство на один блок кадров ближе 
к концу посителя информации. Количество кадров 
в блоке содержится в свойстве Егатез компонента 


Позиционирует устройство на один блок кадров ближе 
к началу носителя информации 


Начинает запись в носитель информации 


Освобождает устройство от носителя информации 


Свойства компонента ТМеЯ1аР1ауег представлены в табл. 18.2. 


Таблица 18.2. Свойства компонента ТМеЧаР!ауег 


Свойство 


ргорегеу АцсоЕпар1е: Воо1еап; Разрешает/запрещает автоматическое 


определение доступных и недоступных 
КНОПОК 


ргорехеу АпбоОреп: Воо1еап; Разрешает/запрещает автоматический старт 


записи/воспроизведения В момент создания 
формы, В которую вставлен компонент 


ргорегЕу АцеоКемлта: Воо1еап; Разрешает/запрещает автоматическую 


ТМРБеуСарз$ = (трСапбЗеер, 


прСапЕ)ес®, пшрСапР1ау, 


«Перемотку» носителя информации в момент 
начала записи или воспроизведения. 


Игнорируется, если устройство имеет 
дорожки или если установлены значения 
в свойства ЗЕ агЕРоз и ЕпаРроз$ 


Содержит параметры устройства, связанного 
с компонентом: прСап5%ер — может смешать 


прСапВесога, мрОзе$И1паомз); носитель на кадр вперед или назад 


‚ ТМРРеуСарз5е® = зе® оЕЁ 
ТМРРеуСарз$; 

ргорег®у Сарар111%1е5: 
ТМРРеуСарз$5ефе; 


(устройство типа Апитайоп, АУГ У ео, 
О1еца! У14ео, Оуегау или УСК); 
прСапЕ)еск — может автоматически 
удалять поситель из устройства; 
прСапР1ау — может воспроизводить 
информацию; прСапВесога — может 


Свойство 


ТМРВ&пТуре = (РЕР1ау, БЕРачзе, 
БЕбеор, РЕМехе, БЕРгеу, БеЗЖер, 
БЕВаск, БЕВесога, БЕЕлес®); 
ТВиееопЗее = зее оЕЁ 
ТМРВ&пТуре; 

ргорегеу Со1огеаВие®опз: 
ТВае$опзее; 


ргорегЕу Реу1сетр: Иога; 


ТМРОеу1сеТурез = (а Ацбобе1еск, 
АЕАУТУ1Аео, аАСРАса1о, а%РПАТ, 
9Е0191а1\У1Аео, аА%ЕМММохте, 
ЧЕОЕПег, ЯЕОуег1ау, Я&бсаппег, 
асбеацепсег, а%УСв, 
ЧЕ\У1АеоЯ1$с, ЯЕМауеАца1о); 
ргорегеу Реу1сеТуре: 
ТМРОе\у1сеТурез; 


ргорегеу 015$р1ау: ТИ1пСоп®го1; 


ргорег®еу 1015р1ауВес®: ТВесЕе; 


ргорегеу Епар1еаВаееопз: 
ТВаебоп5ее; 


ргорегеу ЕпаРоз: Гопа1Тпе; 


ргорегЕу Еггог: Гопа1пЕ; 


ргорег%Еу Е!11еМапе: $56119; 


ргорегеу ЕггогМеззаде: $5%х1п9д; 
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записывать информацию; прИзезИ1паом$ — 
может использовать окно для отображения 
процесса 


Кнопки, перечисленные в этом свойстве, 
будут использовать цвета, заданные по 
умолчанию (не перечисленные кнопки будут 
черно-белыми). По умолчанию множество 
Со1огеаВи $ оп$ содержит все киопки 


Содержит У/т4до\/з-идентификатор 
устройства, связанного с компонентом. 
Доступно только для чтения 


Содержит тип устройства. Если 
Реу1сеТуре=а Ач обе1ес\, тип 
определяется автоматически по расширению 
файла в свойстве Е11еМапме. В момент 
установки любого мультимедийного 
устройства в файл $УЗТЕМ.ТМ] заносятся 
расширения файлов, которые 
поддерживаются этим устройством 


Содержит ссылку па окно для устройств, 
которые могут его использовать в процессе 
записи/воспроизведения 


Содержит область окна, указанного 

в свойстве 21 $р1ау, которое устройство 
может использовать для отображения 
процесса записи/воспроизвседения. Для 
улучшения процесса отображения 
рекомендуется в свойстве 213р1ауВесе 
указывать размеры, заданные по умолчанию 
(координаты 0, 0 для правого нижнего угла) 


Содержит множество доступных кнопок 
(тип ТВаЕ$опбе* описан выше для свойства 
Со1огеаВи**опз$) 


Содержит положение носителя информации 
в момент прекращения записи или 
воспроизведения. Переустановка значения 
приводит к повторению записи или 
воспроизведения 


Содержит код ошибки. Доступно только для 
чтения 

Содержит сообщение об ошибке. Доступно 
только для чтения 


Содержит имя читаемого или записываемого 


айла 
ф продолжение 1% 
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Таблица 18.2 (продолжение) 


Свойство 


ргорегеу Егапмез: Гопа1ТпЕ; 


ргорегеу ГепдеП: ГопаТп(; 


ТМРМоаез = (прМосВеааду, 
пр5сорреЯ, прР1ау1пса, 
прКесога1па, тшрбеек1па, 
прРацзеа, прОреп); 
ргорег®еу Моае: ТМРМодез; 


ргорегеу Мо{1ЁЕу: Воо1еап; 


ТМР№ое1Еу\Уа1щез = 
(пубиссе$$Е1], пубоарегзеаеа, 
пуАБогЕеа, пуРа1]оаге); 
ргорегеу М№оЕ1Еу\Уа1ае: 
ТМР№о&1ЕуУа1цез; 


ргорегеу Роз1%1оп: ГопаТпе; 


ргорегеу 5Ппагеар1е: Воо]1]еап; 


ргорегеу эфаге: `ГопаТпё; 


ргорегву 5сагЕРоз$: Гопа1Тпе; 


ТМРТ1меГогма®$ = 
(ЕЕМ11]11зесопа$, ЕЕНМ$, 
<ЕРгапез, ЕЕЗМРТЕ24, 
сЕЗМРТЕЗО, ЕЕЗМРТЕЗООгор, 
сЕВубез$, +Ебапр1ез, ФЕТМЗЕ); 


СЕМЗЕ, 
СЕЗМРТЕ25, 
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Определяет количество кадров, 
пропускаемых при выполиении методов 
ЗЕер или Васк 


Содержит текущую длину носителя 
информации. Достуино только для чтения 


Показываст текущее состояние 
мультимедийного устройства: прМо&Веаау — 
не готово; пр5сорреЧ — остаповлено; 
прР1ау1па — воспроизводит ннформацию; 
прКесога1па — записывает ииформацию; 
проеек1па — перемещает поситель 
информации; прРацзеа — приостановлено; 
прОреп — открыто. Доступно только для 
чтения 


Содержит значение Тгое, если методы Васк, 
С1озе, Е] есе, Мех, Ореп, Рацзе, 
РалзеОп1у, Р1ау, Рге\у1015, 
ЗЕахЕКесога1па, Кезипе, Кем1 па, 5$ ер 
и 5$Еор будут генерировать событие 
ОпМос1Еу 


Содержит результат последней команды, 
генерирующей событие ОпМо% 1 Еу: 
пубиссе$$Е11 — выполиена успешно; 
пубирегзеадеа — заменена другой командой; 
пуАрогееа — досрочно прервана; 
пуРа11иаге — завершилась ошибкой. 
Доступно только для чтения 


Содержит текущую позицию носителя 
информации 


Разрешает/запрещает другим компонентам 
и программам использовать устройство, 
связанное с данным компонентом 


Содержит позицию от начала носителя, 

с которой начинается запись или 
воспроизведение. Определяется в момент 
открытия устройства и доступно только для 
чтения 


Содержит текущую позицию от начала 
носителя, с которой Начинается запись или 
воспроизведение 


Определяет формат представления данных 
в свойствах Зсак%Роз, Гепа, Ро$з11 оп, 
ЗЕах® и ЕпаРоз (см. пояснения пиже) 
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Свойство 


ргорег®у Т1пеГогпма®: 
ТМРТ1теРГогмаез; 


ргорегеу ТгаскГепаер [ТгаскМим: | Возвращает длину (в формате Т1меЕогма®) 
Тпееаег]: Гопа1Тпе; дорожки с индексом ТгаскКМам. Доступно 
только для чтения 


ргорег®у ТгаскКРоз1е1оп Возвращает стартовую позицию (в формате 
[ТгаскМим: Тпееадег]: Гопа1Тпе Т1меРгогма®) дорожки с индексом 
ТгаскКМим. Достунно только для чтения 


ргорегеу ТгасКк$: Гопа1Тпе; Содержит количество дорожек в открытом 
устройстве. Доступно только для чтения 


ргорег®у \15161еВаееопз: Содержит множество видимых кнопок (тип 
ТВиебопбет; ТВоесопбеф® описан выше для свойства 
Со1огеаВаЕ $ опз) 


ргорегЕу Ма1е: Воо1еап; Если содержит значение Ткое, управление 
| возвращается в программу только после 
завершения перехода устройства в другое 
состояние, связанное с методом Васк, С1о$е, 
Е] еск, Мех, Орегп, Рацзе, РацзеОп1у, 
Р1 ау, Ргеу104$, каг Весога1па, ВКезопе, 
Кеи1па, 56ер или 56 ор 


Если свойство АпкоЕпаЪ1е имеет значение Тгие, компонент автоматически 
по типу устройства или расширению файла и значению свойства Моае определя- 
ет, какие кнопки будут доступны пользователю. Если свойство АисоЕпаю1е име- 
ет значение Га1 зе, доступными будут только те кнопки, которые входят во мно- 
жество Епаю1еаВоае®опз$. Множество Епаф1еаВа&опз игнорируется, если 
свойство АабоЕпа61е имеет значение Тгое. 

Свойство АикоВем1па игнорируется, если устройство имеет дорожки или если 
процесс записи/воспроизведения вызван изменением значения в свойстве 
ЗЕагеРоз или ЕпарРо$. 

Положение носителя в свойствах ЗЕах®ЕРоз, ГепаеВ, Роз1Е1оп, Зсак® 
и ЕпаРоз в зависимости от значения свойства Т1лпеГогма* должно интерпрети- 
роваться следующим образом (отсчет ведется от начала носителя информации): 


# $ЕМ1111зесопаз — миллисекунды в диапазоне от 0 до 4 294 967 295; 


и СЕНМ$ — часы, минуты, секунды (занимают в порядке перечисления по одно- 
му байту начиная с младшего; старший байт БопаТпе не используется); 


” Е ЕМУЕ — минуты, секунды и кадры (занимают в порядке перечисления по од- 
ному байту начиная с младшего; старший байт опа Тир не используется); 


" сЕЕгамез — кадры в диапазоне от 0 до 4 294 967 295; 


= СЕЗМРТЕ24 — часы, минуты, секунды и количество блоков по 24 кадра в секун- 
ду (занимают в порядке перечисления по одному байту, начиная с младшего); 


“ СЕЗМРТЕ?25 — часы, минуты, секунды и количество блоков по 25 кадров в се- 
кунду; 


410 Глава 18. Компоненты вкладки Зузет 


* СЕЗМРТЕЗО — часы, минуты, секунды и количество блоков по 30 кадров в се- 

кунду; 

" ЕЕЗМРТЕЗООгор — часы, минуты, секунды и количество пропущенных блоков 
по 30 кадров в секунду; 


* СЕВувез — байты в диапазоне от 0 до 4 294 967 295. 


" сЕ5апр1ез — количество условных блоков информации в диапазоне от 0 до 
4 294 967 295; 


"" СЕТМ$Е — дорожки, минуты, секунды и кадры (занимают в порядке перечисле- 
ния по одному байту, начиная с младшего). 


Свойство Т1меГогта% в окне инспектора объектов недоступно и устанавлива- 
ется автоматически при открытии мультимедийного устройства методом Ореп. 
В связи с этим значения в свойства 56 ахЕРоз, Ро51Е1оп и ЕпаРоз могут уста- 
навливаться, а в свойствах ГепоеВ, ЗЕ аг%, ТкаскьепаеВ и ТкасКкРоз1&1оп ста- 
новятся действительными только после вызова метода Ореп. 

Методы компонента ТМед1аР1ауег перечислены в табл. 18.3. 


Таблица 18.3. Методы компонента ТМечаР!ауег 


ргосеаиге АцеоВаесопбек (Вет: Реализуст доступпость/недоступность 
ТМРВепТуре); аупам1с; кнопок компонента при устаповке 
в свойство АцсоЕпаЪ1е значения Тгое 


ргосе4диге Васк; Перемещает текущую позицию в носителе 
информации назад на количество кадров, 
содержащихся в свойстве Егаме$ 


ргоседаге С11сК (Ва коп: По умолчанию вызывает обработчик 
ТМРВепТуре; уаг ПоПеЁаз1%: события ОпС11ск. Метод должен 
Воо1еап); Чупам1с; перскрываться в потомках 


ргхосе4аге С1озе; Закрывает связанное с компонентом 
устройство 


ргосеаиге ПомоЕ1Еу; аупамас; По умолчанию вызывает обработчик 


события ОпМо% 1 Еу. Метод должен 


перекрываться в потомках 


ргосеаиге Е]ест; Выгружаст носитель информации из 
устройства 


ргосеаике МММо+к1Еу (уаг Меззаде: Реализует отклик на сообщение \/!п4о\$ 
ТМеззаде); меззаде ММ МСТМОТТЕУ; ММ МСТМОТТЕУ. По умолчанию вызывает 
метод РоМ№ое1Еу 


ргоседиге Мех; Перемещает текущую позицию носителя 
на начало следующей дорожки, а если 
устройство не имест дорожек — в конец 
носителя 


ргосеацке М№ое1Е1сае1оп Извещает компонент АСотропепе о том, 
(АСотропеп®*: ТСотропеп%; что завершилась операция Орега*1оп 
Орега*1оп: ТОрега*1оп)}; очеггкаае; 
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Метод [Описание 
ргосеаиге Ореп; Открывает мультимедийное устройство 


ргоседоге Рацизе; Приостанавливает процесс 
воспроизведения или записи информации. 
Если устройство уже было 
приостановлено, восстанавливает 
процесс, вызывая метод Везиме 


ргосеацге РацзеОп1у; Приостанавливает процесс 
воспроизведения или записи информации. 
Если устройство уже было 
приостановлено, ничего не делает 


ргоседиге Р1ау; Начинает воспроизведение с позиции 
ЗЕаг%Роз, аесли это свойство не 
установлено — с текущей позиции 
Ро$110п 


ргосеааге Ро5еС11ск (ВиЕбоп: Реализует отклик на событие 
ТМРВепТуре); Ааупамлс; ОпРоз*С11ск. По умолчанию вызывает 
соответствующий обработчик события 


ргоседиге Ргеу1о03; Перемещаст текущую позицию носителя 
на начало предыдущей дорожки, а если 
устройство не имест дорожек — в начало 
посителя 


ргосеаиге Везоще; Восстанавливает процесс записи или 
воспроизведения. Вызывается при 
повторном щелчке на кнопке БЕРацзе 


ргосеаиге Вем1па; Перемещаст текущую позицию носителя 
к положению, определяемому СВОЙСТВОМ 
ОЕаге 


ргосеаиге Сохраняет информацию В файле с именем 
Е1]еМапе 


ргосеацге З©агеВесога1па; Начинает запись информации с текущей 
позиции или позиции 5багЕРо$ 


ргоседиаге Перемещает текущую позицию в носителе 
информации вперсд на количество кадров, 
содержащихся в свойстве Егамез 


ргосеацге Прекращает запись или воспроизведение 
информации 


События компонента ТМед1аР1ауег представлены в табл. 18.4. 


Таблица 18.4. События компонента ТМедаР!ауег 


ЕМР№о®1Еу = ргосеаиге Возникаст после щелчка на кнопке Вы $ оп 
(Зепаег: ТОБ)есе; Ваб®оп: компонента. Если Рореёац1+=Тгие, вызывается 
ТМРВЕпТуре; уахг РореЁац1%: метод, связанный с этой кнопкой 


продолжение :% 
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Таблица 18.4 (продолжение) 


Воо1еап) оЕ оЪЗес®; 
ргорег®еу ОпС11ск: 
ЕМРМоЕ1Еу; 


ргорег®еу ОпМ№оЕ1Еу: Возникает после завершения вызова одного из 
ТМ№ос1 ЕуЕуепе; методов Васк, С1озе, Е] ес%, Мехк, Ореп, 
Раизе, РапзеОп]1у, Рау, Ргеу1оч$, Везипе, 


Вем1па, 5багеВесога1па, 5$ер или 5$ ор, если 
свойство Мое 1 Еу имсет значение Тгое 


ЕМРРоз&Мо®1Еу = ргосеаиге Если Маз =Тгое, событие ОпРо$&С11ск 
(Зепаег: ТОБ]есе; Воае®оп: возникает только после завершения 
ТМРВ&пТуре) оЕЁ оБЗес®; соответствующей операции, вызванной событием 
ргорегеу ОпРо5еС11скК: ОпС11 ск, в противном случае — немедленно 
ЕМРРОЗЕМоЕ1Еу; после события ОпС11 ск 


Иногда требуется воспроизвести короткий звуковой сигнал для привлечения 
внимания пользователя программы — например, после завершения длительного 
по времени процесса обновления данных. Стандартная для Ое]р]! процедура без 
параметров Веер извлекает сигнал из системного динамика только в том случае, 
если компьютер не оснащен звуковой картой. С другой стороны, мощные возмож- 
ности компонента ТМеЯ1аР1ауег кажутся излишними для решения этой задачи 
на компьютерах, оснащенных звуковой картой. В этом случае может пригодиться 
АРТ-функция МеззадеВеер, с помощью которой в 32-разрядных версиях \/т- 
Чо\/з озвучиваются стандартные диалоговые окна. Единственным параметром об- 
ращения кэтой функции является один изследующих идентификаторов стандарт- 
ного звука: иь _ТсопАзсегазк, шо ТсопЕхс1ама®1оп, и _ТсопНапа, м _ 
ТсопОчезЕ1 оп и пр ОК. Обращение с параметром ЗЕЕЕЕЕЕЕЕ игнорирует зву- 
ковую карту и извлекает короткий звуковой сигнал из системного динамика. Сра- 
зу после обращения функция возвращает управление программе и воспроизводит 
звук асинхронно. 

Значительно более богатые возможности в этом отношении имеет АР1-функ- 
ция Р1ау5оипа, которая способна воспроизводить любые звуковые клипы. 

Объявление функции: 


Еапсе1оп Р]1аубоопа (р525оипа: РСПаг; КтоЯ: НТМ$Т; 
Еамбочра : СагхЯ1па1) : Воо1еап; $3%аса]1]1; ехЕегпа1 
'изрпм. а 11!; 


Параметры функции перечислены ниже: 

рз25о0ипа — имя воспроизводимого файла; 

рмоа — дескриптор программы, если звук берется из ресурсного файла (в про- 

тивном случае содержит 0); 

Еамбоппа — параметр, уточняющий воспроизведение; его значениями могут 

бЫТЬ: 

[] $МР_АЗУМС — звук воспроизводится асинхронно (функция возвращает уп- 
равление сразу после обращения к ней); 
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О $м№Мр_ТООР — звук воспроизводится постоянно до тех пор, пока не будет вы- 
звана та же функция с параметром р525оип4=0; 


СЦ $№0 МО$тТоР — функция пытается воспроизвести звук, если устройство не 
занято; в противном случае не воспроизводит ничего (если устройство за- 
нято, но этот параметр не указан, функция прервет воспроизведение преды- 
дущего звука и начнет воспроизведение следующего); 


С] $МР_МОПАТТ — если устройство занято, функция не будет воспроизводить 
новый звук; 


О $МР_РУКСЕ — Прекращает воспроизведение всех звуков для данной задачи; 


[м М5 УМС — воспроизводит звук синхронно и возвращает управление только 
после окончания его воспроизведения. 


ТОеСоп{атег — контейнер ОЁГЕ-объекта 


Компонент ТО1еСопка1пег является удобным контейнером для размещения свя- 
занного или внедренного ОТ.Е-объекта (Оесе Глоке4 ог ЕтЬед те — связыва- 
ние или внедрение объекта). Такие объекты (таблицы, картинки, фрагменты тек- 
ста и т. п.) на форме Реры-программы выглядят как обычно или заменяются 
значками. Замечательной особенностью ОТ.Е-объекта является то, что его активи- 
зация (обычно двойным щелчком мышью) приводит к активизации связанной 
с объектом программы, которая называется ОТ.Е-сервером и которая после загрузки 
показывает на экране свое окно и предоставляет пользователю средства редакти- 
рования объекта. 

Типичными ОТЕ-серверами являются такие системные утилиты, как Раш 
и Мо{ера4, текстовый процессор \!от4, табличный процессор Ехсе] и др. 

Чтобы наглядно продемонстрировать возможности компонента, проделайте 
следующее упражнение (проект СПар_18\01еСоптатпег\ОТЕбето.арг). 


1. Создайте новое приложение с пустой формой и вставьте в нее главное меню 
ТМа1 пМепа с единственной командой Файл. 


2. Поместите на форму компонент ТО1еСопфа1пег. Установите в его свойство 
А] 1ап значение а1С11еп®. 


3. Напишите такой обработчик события ОпСгеа*е для формы Гогм1: 


ргосеаиге ТГогпм1.ЕогтСгеаее (бепаег: ТОр)есе); 
соп$Е 
ВМР Маме = 
'С:\Ргодгам Е11ез\Соттоп Е11ез\Вог1апа '+ 
'СЗБагеа\ 1тадез\5р1азв\16Со1ог\аЕРепа.Бтр'; 
Бед1п 
О1еСоп®а1пег1 .Сгеаке0О6)есеЕгомЕ11е (ВМР Маме, Га1зе) 
епа; 


Запустите программу и дважды щелкните на изображении мышью. После пау- 


зы, вызванной загрузкой программы-сервера, вы увидите окно, показанное на 
рис. 18.4. 
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Рис. 18.4. Пример связывания ОГЕ-объекта с сервером Раш 


Теперь вы можете использовать средства графического редактора Ра! для 
редактирования изображения. Чтобы завершить редактирование, нажмите клави- 
шу Е5с — окно примет первоначальный вид, но изображение в нем сохранит все 
внесенные в него изменения. 

Неправда ли, весьма впечатляющая демонстрация мощных возможностей ком- 
понента: ведь для полноценного доступа к сложной технологии ОГЕ понадобился 
единственный вызов одного из его методов. 

Компонент может создавать как связанные, так и внедренные объекты и от- 
крывать окно сервера как в отдельном окне, так и в окне содержащей его програм- 
мы-клиента. В последнем случае при запуске сервера происходит автоматическая 
замена пунктов главного меню программы с групповыми индексами 1, Зи 5 (если 
они есть — вот почему в примере вставлено главное меню с незадействованной 
командой Файл) пунктами главного меню сервера, а также вставка в окно програм- 
мы инструментальных панелей сервера. Если компонент открывается в окне кли- 
ента, его свойство А11 ап (или такое же свойство панели, на которую он помещен) 
должно иметь значение а1С11епЕ. 


Свойства, методы и события компонента ТО1еСопфка1пег представлены 
в табл. 18.5, 18.би 18.7. 


Таблица 18.5. Свойства компонента ТОеСощатег 


Свойство 


ргорегеу А11ом!1пР1асе: Определяет способ размещения ОГ.Е-сервера. Если 
имеет значение Тгое и свойство Тсоп=Ра]1 зе, окио 


сервера с редактируемым объектом размещается 

в пределах компонента, в противном случае создается 
отдельное окно для сервера (независимо от значения 
Тсоп) 


Свойство 


ТАйбоАСс®1уафе = 
(ааМапиа1, аабефёГоса$, 
аа оо Ь1еС11скК}; 
‚ргорег®у АпкоАсе1уафе: 
ТАцбоАСсе1уаее; 


ргорегеу АпцсоУегЬМепи: 
Воо1еап; 


ргорегеу СапРаз*е: 
Воо1еап; 


ргорегеу СоруОпбаухе: 
Воо]1еап; 


ргорег®еу 
Воо1еап; 


ргорег®у Г1пкеа: 
Воо1еап; 


ргорег®еу Моа1Е1еч: 
Воо1еап; 


ргорегеу Мем!Гп5егееча: 
Воо1еап; 


ргорегеу ОБ)]ес+УегЬз: 
Т56:1п9$; 

ргорег®у 
О1а5геамРогмаф® : 
Воо1еап; 


ргорегеу О1еС1аз5Мапе: 
ЗЕг21па; 


ргорег®у 01е0Б)есе: 
Уаг1ап*; 
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Определяет способ активизации ОГ.Е-объекта: 
ааМапца1 — активизируется путем программного 
вызова метода Рро\егЪ (оу5пом); аабееГосаз$ — 
активизируется при получении фокуса ввода; 
аарочь1еС11скК — активизируется при двойном 
щелчке мышью 


Если имеет значение Тгое, для компонента 
автоматически создается вспомогательное меню, 
содержащее доступные команды ОГ.Е-сервера 


Имеет значение Тгое, если буфер обмена (сПрБоага) 
содержит ОГ.Е-объект (или связь с ним), который(ую) 
можно вставить в компонент. Доступно только для 
чтения 


Если содержит Тгое, перед сохранением объекта 

в файле или потоке данных он предварительно 
сжимается для экономии размеров файла (потока 
данных). Если в компоненте размещен очень болыной 
объект и динамической памяти может не хватить для 
создания временной копии сжатого объекта, 

в свойство следует поместить значение Га1 зе 


Содержит Тгое, если объект будет заменяться 
значком ОГ.Е-сервера, и Ка] зе, если объект 
изображается так, как он появится в окне сервера 


Содержит Тгуе, если объект связан с программой, 
и Га] зе — если является се частью (внедрсн в нее). 
Доступно только для чтения 


Содержит Тгие, если объект был изменен (в том 
числе заменен другим или уничтожен) 


Содержит Тгие, ссли объект был заново создан 

с помощью мстода ТпзегЕ ОБ) ес&Р1а1оча. В этом 
случае вызывайте метод РоУегЪ (оу5пом) , чтобы 
показать объект в окне сервера. Доступно только для 
чтения 


Содержит список команд, которые программа может 
посылать серверу. Доступио только для чтения 


В это свойство следует поместить Тгие перед чтением 
объекта из файла или потока данпых, если объект был 
создан версией Оеры 1 


Содержит имя класса, под которым (именем) был 
зарегистрирован ОГ.Е-сервер в реестре \Мт4о\мз. 
Доступно только для чтения 


Содержит ссылку на ОТ.Е-объект 


продолжение 1 
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Таблица 18.5 (продолжение) 


Свойство 


ргорекеу Рг1тагу\УегЬ: Содержит индекс умалчиваемой команды для ОГЕ- 
Тпеедег; объекта 


Т512еМо4ае = (зтС11р, Определяет способ размещения ОГ.Е-объекта 
эиСепеег, зпбса]1е, в контейнере: зтС11р — отсекаются любые части 
эт5егееср, зтАцео512е); | объекта, выходящие за границы контейнера; 
ргорег®у 517еМоае: зпСепфег — центрируется в контейперс; забса1е — 
Т512еМоае; масиггабируется так, чтобы целиком заполнить 
границы контейнера; за геессв — масштабируется 
так, чтобы не парушились пропорции объекта; 
зпАцо512ге — изменяются границы коитейнера, 
чтобы полностью отобразить объект без искажений 


ргорег®у 5оигсерос: Содержит имя файла для связанного объекта 
ЗЕгапа; 


фуре ТОБ]есебкаке = Определяет состояние ОТ.Е-объекта: озЕмреу — 
(озЕшреу, озГоааеа, контейнер пе содержит объект; озЪоа4еа — объект 
о$Випп1па, озОреп, загружен, но сго сервер ие запущен; озВипп1па — 
оз1пР1асеАсе1уе, запущен ОТ.Е-сервер; озОреп — объект открыт 
оз ОТАсЕ1 уе); в отдельном окне; о5ТпР]асеАс&1 уе — объект 
ргорег®у З+еа\е: открыт в окне контейнера, но сервер еще не заменил 
ТОБ]есЕе5фасе; команды меню и инструмситальнысе панели 
программы на свои (промсжуточнос состояние перед 
о5ОТАСЕ1 уе); озОТАСЕ1 уе — объект открыт в окне 
контейнера 


Таблица 18.6. Методы компонента ТОеСотматег 


ргосеаоге С1о$е; Закрывает сервер. Все сделанные 
к этому моменту изменения в объекте 
автоматически сохраняются 


ргоседике Сору; Копируст объект в буфер обмена 


госеаиге СгеасеГ1пКТоЕР11е (сопз® Создает связанный объект по имени 

Е11еМаме: 5%х1па; Тсоп1с: Воо1еап); файла Е1 1еМапе. Параметр Тсоп1с 
содержит Тгое, если изображение 
объекта заменяется значком 


ргосеацгке СгеакеОЪ)есь (соп$® Создает внедренный объект по имени 

О1еС1аз$Маме: $%6х1п9; Тсоп1с: класса сервера О]1еС1аз$Маме. 

Воо1еап); Параметр Тсоп1с содержит Тгое, 
если изображение объекта заменяется 


значком 


ргоседиге Сгеаке0ю)ес®ЕкгомЕ11е (сопз* | Создает виедренный объект по имени 

Г1]1еМаме: $%&г1п9; Тсоп1с: Воо1еап); файла Е11еМапе. Параметр Тсоп1с 
содержит Тгое, если изображение 
объекта заменястся значком 


ТОеСощатег — контейнер ОЁЕ-объекта 


ргосеацге ПезегоуОБ)есе; 


ргоседиге ПРо\УегЬ (Уегр: Тпфедег); 


ЕапсЕ1оп СееТсопМефаР1с®: НС1оБа1; 


Еипсе1оп ТпзегсОБ]ескО1а1о9: 
Воо1еап; 


ргосеаиге ГоаАЕгопЕ11е (соп$® 
Е11еМаме: ЗЕг1па); 


ргосеаиге ГоаЯЕгоп5 $ геам 
(ЗЕгеам: Тзегеам); 


Еапс®1оп Ор]есеРгорег*&1е$)1а]1о9а: 
Воо1еап; 


ргосе4иге Раз(е; 


ЕипсЕ1оп Разбебрес1а101а]1о4: 


Воо1еап; 


ргосеаиге 


ЗауеА$ПосатмепЕ (соп$з® 
ЗЕг1па); 


ргосеапге 
Е1]1еМапе: 


ргосеаиге бауеТоЕ11е (сопзе Е11еМапме: 


ЗЕгапа); 


ргосеаоге бауеТоб$геам (5% геапм: 


ТбЕегеам); 


ргосеацге ОрдафкеОБ)есс; 


ргосеаиге ОрЧафеУ\Уегз; 
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Упичтожает объект без сохранения 
сделанных в нем изменений 


'Гребует от объекта выполнить 
действие с иидсксом УехгЪ из списка 
ОБ]ес&\Уетгь5 


Возвращаст указатель на 
распределенный в куче метафайл для 
прорисовки значка объекта на другой 
канве 


Создает и показывает диалоговое 
окно создания объекта. Возвращает 
Тгие, если пользователь закрыл окно 
щелчком на кнопке ОК 


Загружаст объект из файла Е11еМаме 


Загружает объект из потока данных 
ЗЕгеам 


Создаст и показывает диалоговое 
окно изменения свойств объекта. 
Возвращает Тгое, если пользователь 
закрыл окно щелчком на кнопке ОК 


Создает объект по данным, 
хранящимся в буфере обмена 


Создает и показывает диалоговое 
окно специальной вставки объекта. 
Возвращает Тгие, если пользователь 
закрыл окно щелчком на кнопке ОК 


Запускает сервер, но не активизирует 
объект. Активизация объекта при 
запущенном сервере происходит 
значительно быстрее 


Сохраняет объект в файле Е11еМаме 
с использованием формата ОЕ 
Роситепё 


Сохраняет объект в файле Е11еМаме 


Сохраняет объскт в потоке данных 
ЗЕгеам 


Обновляст объект, вновь загружая его 
из источника 


Обновляет список ОБ есеУехЬ5$ 
(некоторые команды могут его 
изменить, например, команда Р1ау 
может заменить Рау на 5+ ор) 
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Таблица 18.7. События компонента ТОеСощатег 


Событие Описание 


ргорегЕу ОпАсе1уа*е: Возникает сразу после активизации объскта 
Т№МоЕ1ЕуЕуепе; 


ргорегЕу Опреас®1ха{е: Возникает сразу после перехода объекта 
ТМос1ЕуЕуепе; в неактивное состояние 


Глава 19 


Компоненты вкладки 
О1а09$ 


В состав \/1140\%$ входит ряд типовых диалоговых окон, таких как окно выбора 
загружаемого файла, выбора шрифта, настройки принтера ит. д. В РерЫ! реализо- 
ваны классы, объекты которых дают программисту удобные способы создания и ис- 
пользования таких окон. 

Работа со стандартными диалоговыми окнами осуществляется в три этапа. 

Вначале на форму помещается соответствующий компонент и осуществляется 
настройка его свойств (следует заметить, что собственно компонент не виден в мо- 
мент работы программы, видно лишь создаваемое им стандартное окно). Настрой- 
ка свойств может проходить как на этапе конструирования, так и в ходе прогона 
программы. Как и для любых других компонентов, программист не должен забо- 
титься о вызове конструктора и деструктора класса диалогового окна — эти вызо- 
вы реализуются автоматически в момент старта и завершения программы. 

На втором этапе осуществляется вызов стандартного для классов диалоговых 
окон метода Ехесо*е, который создает и показывает на экране диалоговое окно. 
Вызов этого метода обычно располагается внутри обработчика какого-либо собы- 
тия. Например, обработчик выбора в меню команды Открыть файл может вызвать 
метод Ехесасе компонента ТОрепр1а1о9, обработчик щелчка на кнопке Сохра- 
нить панели инструментов может вызвать такой же метод компонента Т5ауер1а1оа 
и т. д. Только после обращения к методу Ехесоихе на экране появляется соответ- 
ствующее диалоговое окно. Это окно является модальным, поэтому сразу после 
обращения к методу Ехесике дальнейшее выполнение программы приостанавли- 
вается до тех пор, пока пользователь не закроет окно. Поскольку Ехесихе — логи- 
ческая функция, она возвращает в программу значение Ткце, если результат диа- 
лога с пользователем был успешным. 

Проанализировав результат вызова метода Ехесиа*е, программа может выпол- 
нить третий этап — использовать введенные с помощью диалогового окна данные — 
имя файла, параметры принтера, выбранный шрифт ит. д. 

Проиллюстрируем сказанное следующим примером. Создадим простую про- 
грамму для просмотра содержимого текстового файла. Для этого на пустую форму 
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поместите компонент ТОрепО1а1оч, а также кнопку ТВаЕбоп и многострочное 
поле ТМемо. При работе программы щелчок на кнопке будет сигналом о необходи- 
мости загрузить в поле новый файл. Создайте представленный ниже обработчик 
события ОпС11сК этой кнопки: 


ргоседаге ТГогп1.Вие6оп1С11сК (бепаег: ТОБ)ес®); 
Беда 
// Настраиваем компонент на отбор текстовых файлов: 
ОрепО1а1о091.Е1]6ег := 'Текстовые файлы|*.Ехе|'+ 
'Файлы Паскаля|*.раз'; 
// Выполняем диалог и анализируем его результат 
1Е Орепр1а1о91.Ехесоее апа 
Е1]1еЕх156$ (Орепр1а1о91.Е11еМаме) 
ЕВеп // Результат успешный - пользователь выбрал файл. 
// Загружаем файл в поле Мето1: 
Мето1 .Т1пе$.ГоааЕгойЕ11е (Орепр1а1о91.Е11еМате); 
епа; 


ТОреп0!а!од и Тбауе )!а!0д — окна открытия 
и сохранения файлов 


Компоненты ТОрепр1а]1оа и Тбауер1а1оа имеют идентичные свойства и по- 
этому рассматриваются вместе. Пример диалогового окна ТОрепр1а1о4 показан 
на рис. 19.1. 
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Рис. 19.1. Стандартное окно ТОрепО!а0д 
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Свойство Е11еМаме: $%&х1па содержит путь поиска и выбранный файл при 
успешном завершении диалога с пользователем. Программа может применять это 
свойство для доступа к файлу с целью читать из него данные (ТОрепр1а1оа) или 
записывать в него (Тбауер1а1оа). Замечу, что пользователь может ввести произ- 
вольное имя и, следовательно, указать несуществующий файл. Для записи это не 
имеет значения, но при чтении отсутствие файла может привести к краху програм- 
мы. Чтобы избежать этого, можно проверить существование файла глобальной 
функцией Е11еЕх1з%3, как это сделано в предыдущем примере, или использо- 
вать механизм обработки исключительных ситуаций. 

Свойство Е11$ег: $%х1п4д используется для фильтрации (отбора) файлов, 
показываемых в диалоговом окне. Это свойство можно устанавливать с помощью 
специального редактора на этапе конструирования формы или программно, как 
это сделано в предыдущем примере. Для доступа к редактору достаточно щелк- 
нуть на кнопке [1 в строке свойства Е1 1+ег окна инспектора объектов. При про- 
граммном вводе фильтры задаются одной длинной строкой, в которой символы 
вертикальной черты ( |) служат для разделения фильтров, а также для отделения 
описания фильтруемых файлов от соответствующей маски выбора. Например, 
следующий оператор задает две маски для отбора файлов с расширениями РА$ и ТХТ: 


Ореп)1а1о031.Е11$ег := 
'Текстовые файлы |*.Ехе|Файлы Паскаля|*.раз'; 


Установить начальный каталог позволяет свойство Тп1%1а101г: $%г1п9. 
Например: 
Орепр1а1091.1п1%1а101х := 
'с:\ргоакам Ё11ез\Бог1апа\ае1рр16\зоигсе'; 


С помощью свойства РеЁац1Ех*: $%&х1п94 формируется полное имя файла, 
если при ручном вводе пользователь не указал расширение. В этом случае к имени 
файла прибавляется разделительная точка и содержимое этого свойства. 

Настройка диалогового окна может варьироваться с помощью следующего свой- 
ства: 


Суре ТОрепОрЕ1оп = (оЕВеаЯОп1у, оЕОуегиг1ееРгопрф, 
оЕН1аевеаАОп1у, оЕМоСрапаер1г, оЕбпомНе1р, оЕМо\а119а%е, 
ОЕА1 10омМа1615е1есЕ, оЕЕхкеп$1опро1 ЕЁГегкеп%, 
оЕРа*ПМо${Ех1$е, оЕЕ11еМизЕЕх1$Е, оЕСгеаееРгопре, 
оЕбпагеАмаге, оЕМоКеа@аОп1уВебогп, ЭЕМоТез&Е11еСгеате, 
оЕМоМеемогкВа* оп, оЕМоГопаМамез, оЕО1а5$&у1ер1а1о3, 
оЕМорегеЕегепсетЪ1пКк$, оЕЕпаю1е1Тпс1аЧемо%етЕу, 
оЕЕпаю1е5121па, оЕБоп<АаЧаТоВесепе, оЕГогсебпомН1ааеп); 

ТОрепОре1оп$ = зе оЕЁ ТОрепОрЕ1оп; 

ргорегЕу ОрЕ1оп$: ТОрепОр®1опз; 


Значения этого свойства имеют следующий СМЫСЛ: 


” оЕВеаЧОп1у — устанавливает флажок Только чтение; 


” оЕОуегиг1кеРготре — требует согласия пользователя при записи в существу- 
ющий файл; 


”” оЕН1аевеааОр1у — скрывает флажок Только чтение; 
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емых в имени файла символов; 
оЕА1 1оиМи1{15е1ес+ — разрешает множественный выбор файлов; 


оЕЕхфеп$1оп01 ЕЕегеп® — при завершении диалога наличие этого значения 
в свойстве ОрЕ1оп5 говорит о том, что пользователь ввел расширение, отлича- 
ющееся от заданного по умолчанию; 


оЕРа ВМазЕЕх15Е — разрешает указывать файлы только из существующих 
каталогов; 


оЕЕ11еМизЕх1 $ — разрешает указывать только существующие файлы; 


оЕСгеакеРготр* — требует подтверждения для создания несуществующего 
файла; 


оЕ5пагеАмаге — разрешает выбирать файлы, используемые другими парал- 
лельно выполняемыми программами; 


оЕМоВеааОп1 уВекагп — запрещает выбор файлов, имеющих атрибут только 
для чтения; 


оЕМоТез{Е11еСгеаее — запрещает проверку доступности сетевого или ло- 
кального диска; 


оЕМоМеемогКВи® оп — запрещает вставку кнопки создания сетевого диска; 
оЕМоГопаМамез — запрещает использование длинных имен файлов; 
оЕ01а$+у1ер1а1оа — создает диалоговое окно в стиле \1п4о\з 3.х; 


оЕМорегеЁегепсе!1пКк$ — запрещает разыменование ярлыков \\! 1140$ (если 
пользователь выбирает ярлык, в свойство Е11еМаме помещается путь доступа 
и имя файла ярлыка с расширением (МК, а не файла, на который указывает яр- 
лык); 


оЕЕпаБ1е1пс1аеМок1 Еу (\/ш4о\з 2000 ивыше) — разрешает посылку уве- 
домляющих сообщений диалоговому окну, если пользователь открывает папку 
(сообщения посылаются для каждого файла папки, что позволяет управлять 
отображением содержимого папки; см. также описание события ОпТпс1аае- 
Теем); 


оЕЕпаЪ1е$121па (\Мш4о\$ 98 и выше) — позволяет окну в стиле Проводни- 
ка \ш4о\$ изменять размеры (диалоговые окна в старом стиле изменение раз- 
меров не допускают) с помощью мыши или клавиатуры (по умолчанию такое 
изменение размеров допускается независимо от этого флага, который учитыва- 
ется только в пользовательских диалоговых окнах); 


оЕРоп $ АаЯТоВесеп* — запрещает присоединять файл к списку недавно от- 
крывавшихся файлов; 


оЕЗРомН1 еп — показывает скрытые файлы. 
Если разрешен множественный выбор, доступ к выбранным именам можно 


получить в свойстве Е11ез: $%г11п9$. 
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События компонентов ТОрепр1а1од и Тбауер1а1оа перечислены в табл. 19.1. 


Таблица 19.1. События компонентов ТОрепО!аюд и ТЗаме !ао9 


Гообытие иван о 


фуре ТС1озе0цегуЕхепе = Возникает непосредственно перед закрытием 
ргосеаиге (беп4ег: ТОБ)есс; диалогового окна. Используйте обработчик этого 
уаг СапС1о5е: Воо1еап) оЁ события для окончательной проверки 

ор-3ес*; правильности выбранного файла, например, его 
ргорегеу ОпСапС1о5е: существования, возможности перезаписи 
ТС1озедцегуЕуеп* ; содержимого и т. п. Если обработчик установит 
значение Га15е в параметр СапС1озе, окно не 
будет закрыто 


ргорегеу ОпС1озе: Возникает при закрытии диалогового окна 
ТМоЕ1ЕуЕуепе; 

ргорегеу ОпГо1ЧегСпапде: Возникает при изменении отображаемой папки 
ТМоЕ1ЕуЕуепе; 


уре _ОЕМОТТРУЕХА = Возникает для каждого элемента вновь 
о кеа гесога Наг: ТММНаг; открываемой папки, если свойство Ор 1015 
1роЕМ: РОрепЕ11епаме; р$ЕЁ: диалогового окна содержит элемент 
Т5ре11Ро1аег; р1а1: оЕЕпаб1еТпс1а4еМо+ 1 Еу. Обработчик события 
Ро1пфег; епа; с помощью параметра Тпс1оае указывает, 
ТТпс1ааеТеемЕуеп® = следует ли отображать данный элемент папки 
ргосеацкге (сопзе ОЕМ: 
ТОЕМ№о$1ЕуЕх; \агк Тпс1оаае: 
Воо1еап) о оБЗес®; 
ргорег®у Оп1пс1паеГ%ем: 
ТТпс]ааеТеетЕхеп®; 


Возникает при изменении содержимого 
диалогового окна: при изменении папки, 
выбранного файла, фильтра отбора и т. п. 


ргорегеу Опбпом: Возникает при открытии диалогового окна 
ТМ№оЕ1ЕуЕуепе; 
ргорек®у Опбе1ес&1опСрапде: Возникает при изменении фильтра отбора 
ТМ№ое1ЕуЕуепс; 


ТОрепР!стиге 0 !аод и ТЗауеР!стиге !аюд — 
окна открытия и сохранения изображений 


Специализированные диалоговые окна для открытия и сохранения графических 
файлов ТОрепР1сЕагер1а1о3 и ТбауеР1свогер1а1о4 отличаются от компо- 
нентов ТОрепр1а1о3 и Тбауер1а]1оа двумя аспектами. Во-первых, в них пре- 
дусмотрены стандартные фильтры для выбора графических файлов (с расшире- 
ниями ВМР, [С0, \ММЁРи ЕМРГ). Во-вторых, в диалоговые окна включены панели для 
предварительного просмотра выбираемого файла. 

На рис. 19.2 показано стандартное окно компонента ТОрепР1с6агер1а1оч3. 


‘ргорегеу Опбе1есе1опСпапде: 
ТМ№МоЕ1ЕуЕуепе; 
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Рис. 19.2. Стандартное окно ТОрепР!с{1иге \аод 


ТРоп{Отаюд — окно выбора шрифта 


Компонент ТЕоп*01а10о9 создает и обслуживает стандартное окно выбора шриф- 
та (рис. 19.3). 
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Рис. 19.3. Стандартное окно ТГоп{0О!а|од 


Следующее свойство определяет тип устройства, для которого выбирается 
шрифт: 
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ТРопе01а1о3р0еу1се = (Е45сгееп, ЕаРг1пфег, ЕЧВоеП); 
ргорег®еу Пеу1се: ТГопЕ)1а1о90еу1се; 


Здесь: Еа5 сгееп — экран; ЕАРг1пеег — принтер; ЕЯВоЕв — шрифты, поддер- 
живаемые и экраном, и принтером. 

Диапазон возможных значений размеров шрифтов определяется свойствами 
М1пЕРопЕ512е и МахГопЕ 51 2е. Значения этих свойств задаются в пунктах (1 пункт 
равен '!/1) дюйма, что приблизительно равно 0,36 мм). Если свойства содержат 0, 
ограничения на размер шрифта отсутствуют. 

Представленное ниже свойство используется для настройки диалогового окна: 


Буре ТГопЕр1а1оч0ОрЕ1оп = (ЕЧ4Апз1Оп1у, ЕЧТгиеТуреОпТ1Ту, 
ЕаЕЕЕесе$, ЕЯЕ1хеаРрР1есвОп1у, ЕЯЕГогсегопЕЕх1 зе, 
ЕЯаМогасе$е1, ЕаМооЕкМРГопЕ$, ЕЯМо$1ща]аЕ1оп$, ЕЯМо$17ебе1, 
ЕЯМ№о$$у1е5е1, ЕЯМоУ\УескогГопЕ5$, ЕЧа5ПомНе1р, ЕаЙМузлтмусд, 
Е9.1116512е, ЕЧ@5са1ар1е0п1у, ЕадАрр1уВое®оп}; 

ТЕопер1а1оч0Ор®1опз = зее оЁ ТЕопЕО1а1оч0Оре1оп; 

ргорегеу Ор{1опз: ТЕГопЕО1а1оч0ОрЕ1оп$; 

Значения этого свойства имеют следующий смысл: 


# ЕЧАпз1Оп1у — показывает только шрифты с набором символов УМ 40\5; 


= ЕАаТгаеТуреОп1у — показывает только ТгиеТуре-шрифты; 


" ЕАБЕЕесез$ — включает в окно флажки Подчеркнутый и Зачеркнутый, а также 
список выбора цвета шрифта; 


" ЕаЕ1хеарР1есрпОп1у — включает только моноширинные шрифты; 


#* ЕагогсеЕкоп%Ех1 зе — предупреждает о выборе несуществующего шрифта; 


" ЕЯМоГгасе5$е]1 — запрещает выделение имени шрифта в момент открытия окна; 


# ЕЯМООЕМЕопез — запрещает выбор шрифтов М$-ОО5$; 


# ЕЧМо5$1мо1ае1опз$ — исключает шрифты, которые синтезируются графичес- 
ким интерфейсом У/Лт4о\; 


 ЕЯМ№о$12е5е1 — запрещает выделение размера шрифта в момент открытия окна; 


"" ЕЧМо5еу1еб5е1 — запрещает выделение стиля шрифта в момент открытия окна; 


й ЕЧМоУескогГопЕз — исключает векторные шрифты (шрифты для \/1190\$ 
версии 1.0 используются в плоттерах); 


" ЕазромНе1р — включает в диалоговое окно кнопку Справка; 


2 ЕАаМуз1муд — включает шрифты, которые поддерживаются и экраном, и прин- 
тером; 


"" ЕаЪ1т1512е — включает ограничения на размер шрифта, заданные свойства- 
ми МахРопЕ5127е и М1лпЕРоп Е 517е; 


й Еа5са1аб1еОп1у — включает только масштабируемые шрифты (векторные 
и ТгиеТуре-шрифты); 


" ЕААрр1уВае®оп — включает в окно кнопку Применить. 
Результат выбора шрифта содержит свойство Гопе. 
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ТСоогО!аюд — окно выбора цвета 


Компонент создает и обслуживает стандартное диалоговое окно выбора цвета, по- 
казанное на рис. 19.4. 
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Рис. 19.4. Стандартное окно компонента ТСо!огО'а09 


Свойства компонента ТСо1огр1а1од представлены в табл. 19.2. 


Таблица 19.2. Свойства компонента ТСо!огО!а!0о9 


Свойство [Описание 
ргорегеу Со1ог: ТСо1ог; Содержит выбранный цвет 


ргорегЕу СизсомСо1огз: Содержит до 16 цветов, определенных 
Т5ег1па3; пользователем. Каждая строка имеет формат 
Со1огХ=НННННН, где Х — буква от А до Р, 
определяющая номер цвета, НННННН — 
шестнадцатеричное представление цвета 
в модели КСВ (красный, зеленый, голубой) 


ТСо1ог01а1очОрЕ1оп = Определяет вид окна: саРа11Ореп — показывать 
(саРо11О0реп, с развернутой палитрой выбора цвета; 
саРгеуеп%Еи11О0реп, саРгеуепЕ Е] 1Ореп — запретить показ палитры 
са5$ПомНе1р, са5о119Со1охг, выбора цвета; сабПомНе1р — включить в окно 
саАпуСо1ог); кнопку Справка; са5о11ЯСо1ог — выбирать 
ТСо10о:01а1о90ре1оп$ = зе ближайший сплошной цвет; саАпуСо1ог — 

ОЕ ТСо10огр1а1оч0ОреЕ1оп; разрешить выбор несплошных цветов 

ргорегЕу Оре1оп5 

ТСо1ог01а1090р*10п$; 


ТРИптО!аюд — окно настройки 
параметров печати 


Компонент ТРг1пЕО1а10о9 создает стандартное диалоговое окно для выбора па- 
раметров печати, показанное на рис. 19.5. 
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Рис. 19.5. Стандартное окно компонента ТРиО!а|04. 


Свойства компонента ТРг1пЕ021а1о9 перечислены в табл. 19.3. 


Таблица 19.3. Свойства компонента ТРИО !а09 


Свойство 


ргорегеу Со11афе: Воо1еап; Если имеет значение Тгое, окно отображается 
с установленным флажком Разобрать по копиям 
(СоЦа*е). Если этот флажок установлен, печать 
нескольких копий документа будет идти по 
копиям: сначала первая копия, затем вторая 
ит. д., в противном случае — по страницам: 
сначала все копии первой страницы, затем 


второй ит. д. 


ргорегеу Сор1ез: Тпъеедег; Определяет количество копий (0 — одна копия) 
ргорег®у ЕгоптРаде: Тпфедег; Определяет начальную страницу печати 


ргорег®еу МахРаде: Тпфечег; Определяет верхнюю границу диапазона 
страниц для свойств ЕгомРаае и ТоРаде 


ргорег%у М!1пРаде: Тпеедег; Определяет нижиюю границу днапазона 
страниц для свойств ЕгомРаде и ТоРаде 


ТРг1п601а1о30ОреЕ1оп = 
(роРг1пЕТоЁР11е, роРадемотз, 
роЗе1есе1оп, роМагп1па, 
роНе1р, 
ро01з$аЪ1еРг1пЕТоЁ1]1е); 
ТРг1пЕ01а1о30р*1оп$ = зе®е 
оЕ ТРг1п601а1090р*1оп; 
ргорегеу Оре1опз: 
ТРг1п01а1о90р&1оп$; 


Определяет настройку окна: роРг1пЕТоЕ11е — 
печатать в файл; роРЕ1пЕТоЕ1 1е — разрешает 
выбор диапазона страниц; робе1есе1оп — 
разрешает печать выбранного текста; 
роМагп1па — предупреждать пользователя 

о не установлепном принтере; роНе1р — 
вставить в окно кнопку Справка; 
рор15ар1еРрРхг1пеТоЕ11е — запрещает печать 

в файл 


ТРг1пЕВапае = (ргА11Радез, 
ргЗе1есе1оп, ргРадематз); 
ргорегеу Рг1п&Капде: 

ТРг1п&Вапде; 


Определяет диапазон печатасмых страниц: 
ргА11Рачез$ — все страницы; ргбзе1есе1оп — 
выделенный фрагмент текста; ргРачеМамз$ — 

страницы по номерам 


продолжение =? 
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Таблица 19.3 (продолжение) 


Свойство пива 


ргорег®у Ре1пЕТоЕ!11е: Содержит значение Ткое, если пользователь 
Воо1еап; выбрал печать в файл 


ргорегеу ТоРаде: Тпеедег; Определяст копечиую страницу печати 


ТРимег5ефир0!аюд — окно настройки 
параметров принтера 


Компонент ТРг1пбегбееирО1а1о9 создает диалоговое окно настройки парамет- 
ров принтера, вид которого зависит от типа принтера. Это окно взаимодействует 
с драйвером принтера и не возвращает в программу никакой информации, поэто- 
му его метод Ехеси%е — процедура, а не функция. 


Т+ЕшпаО!аю9д — окно поиска 


Стандартное диалоговое окно компонента ТЕ1п901а1оа используется для поис- 
ка фрагмента текста (рис. 19.6). 


| Г` Только слово целиком: Направление 


ГГ С шетом регистра т 


Рис. 19.6. Стандартное окно компонента ТЕта0!а]0ц. 


Свойства компонента ТЕ1пЯр1а1оа перечислены в табл. 19.4. 


Таблица 19.4. Свойства компонента ТЕпа0О!аю9 


Содержит горизонтальную позицию левого верхнего 
угла места появления окна 


Содержит горизонтальную и вертикальную позиции 
левого верхнего угла места появления окна 


ргорег®у Тор: Тпеедег; Содержит вертикальную позицию левого верхнего угла 
места появления окна 


Для компонента определен следующий тип, использующийся в свойствеоОрЕ1олпз: 
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Суре ТЕ1паОрЕ1оп = (Егромп, ЕгЕ1паМмехе, ЕгНалаеМаесВСазе, 
ЕхН1Ае\ро1еМога, ЕхН1аеЧрромп, 
ЕуМасспСазе, ЕхрО15аб1еМаесрСазе, 
Егр1заб1е0ОрПомп, Ех0О15аб1е\То1еМога, 
ЕгВер1асе, ЕгКер]асеА11, ЕгМПо1ейока, 
ЕгопомНе1р); 

ТЕ1паОр®1оп$ = зе® оЕЁ ТЕ1паоре1оп; 


Его значения имеют следующий СМЫСЛ: 


." Егромп — устанавливает поиск вперед по тексту; 


*" ЕгЕ1пАМехе — сообщает программе, что пользователь щелкнул на кнопке Най- 
ти далее; 


" ЕгН1аеМассЬСазе — снимает флажок С учетом регистра; 


" ЕхН1аейпо1еЙога — снимает флажок Только слово целиком; 


"" ЕгН1ае0рромт — скрывает переключатели выбора направления поиска; 


" ЕгМаесиСазе — устанавливает флажок С учетом регистра; 


" Ехр1заю1еМаесИСазе — делает недоступным флажок С учетом регистра; 


 Егр1заб1е0рромп — запрещает выбор направления поиска; 


# Ехо1зар1е\о1еМога — делает недоступным флажок Только слово целиком; 


”” ЕгВер1асе — используется в компоненте ТКер1асер1а1оч и указывает на 
необходимость замены найденного фрагмента; 


” ЕгВер1асеА11 — используется в компоненте ТКер1асер1а1оч и указывает 
на необходимость замены всех вхождений образца поиска; 


 ЕгИБо1еМога — устанавливает флажок Только слово целиком; 


" ЕгоромНе1р — включает в окно кнопку Справка. 


Слецифичной для диалогового окна является реализуемая им возможность 
просмотра найденного фрагмента и при необходимости продолжение поиска. 
С этой целью для компонента определено событие ОпЕ1па: ТМо1ЕуЕуепь, ко- 
торое возникает всякий раз, когда пользователь щелкает на кнопке Найти далее. 
Обработчик события должен найти образец в тексте и показать его пользователю. 
Пусть, например, компонент Мемо1 содержит отыскиваемый фрагмент, и поиск 
идет с учетом регистра. Тогда обработчик может иметь такой вид: 


ргосеаиге ТГогп1.ЕГ1па01а1о0о31Е1п4 (бепаег: ТОБ)ес®); 
уах 
бе1Роз: Тпёедег; 
Беда п 
м1ЕВ ТЕ1па01а1од (бепаег) ао 
Бед1п 
// Ищем фрагмент в тексте 
бе1Роз := Ро$ (РГлпаТехЕ, Мето1.ТЪ1пез.Техе); 
1Е бе1Роз > 0 &Веп 
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Ъед1п // Фрагмент найден - выделяем его 
Мемо]1.5е156аге := 5е1Роз - 1; 


’ 


Мепо1.5е1ЪепаЕен := епаев (Е1паТех®); 
епа е1зе 


ЗПомМеззасе ('Текст "' + ЕРЕ1паТехе + '" не найден’) 


ТРерасе0!аюд — окно поиска и замены 


Компонент ТВер1асер1а1оа создает и обслуживает окно поиска и замены тек- 
стового фрагмента (рис. 19.7). 
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Рис. 19.7. Стандартное окно компонента ТНерасе!аоа 


Класс ТВер1асер1а1оа является прямым потомком класса ТЕ1п901а1о9 И на- 
следует от него большую часть свойств. Дополнительно в компоненте определено 
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Рис. 19.8. Стандартное окно компонента ТРадеЗе\1ир О !ао9 
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свойство Вер1асеТехе: $%гх1па, в котором содержится текст замены, и со- 
бытие ОпВер1 асе, которое возникает при щелчке на кнопке Заменить или За- 
менить все. 


ТРадезефир !а!од — окно установки 
параметров печатаемой страницы 


Компонент ТРаде5екир01а1о4 создает и обслуживает окно настройки парамет- 
ров печатаемой страницы (рис. 19.8). 

Свойства и методы компонента предоставляют пользователю гибкие средства 
управления параметрами печатаемой страницы (ее ориентацией, размерами по- 
лей ит. п.). С помощью обработчиков событий программист может предоставить 
пользователю возможность изменения указанных параметров в различных ситуа- 
циях — перед началом печати, перед печатью очередной страницы и т. д. Подроб- 
нее о компоненте см. в справочной службе Пер. 


Глава 20 


Компоненты вкладки 
Затре$ 


Компоненты вкладки 5атр(ез включены в ОерЬ! как образцы (затр|ез$) разработ- 
ки нестандартных компонентов, однако многие из них имеют вполне самостоя- 
тельное значение. 


ТСаиде — индикатор величины 


Компонент Тбападе предназначен для отображения некоторой изменяющейся чис- 
ловой величины. Он отличается от компонента ТРгодгеззВаг разнообразием форм 
(рис. 20.1). 


9кКНонгощеВаг чкМеей .- о ОКР — | акте = дкК/етшсаВаг 


Рис. 20.1. Различные формы компонента ТСбаиде 


Свойства компонента Тбацае перечислены в табл. 20.1. 


Таблица 20.1. Свойства компонента Тбаиде 


Свойство [Описание 
ргорегЕу ВаскСо1ог: ТСо1ог; Цвет незакраштенной части индикатора 


ТСо1охг; Цвет закрашенной части индикатора 


ргорег®у ЕГогеСо]1ог: 
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Свойство 


ТбацаеК1па = (з3кКТехе, Определяет форму индикатора 
аКНог1гопфа1Ваг, акКУег&1са1Вахг, (см. рис. 20.1) 

акРзе, акмееа1е); 

ргорег®у К1па: Тбсаидек1па; 


ргорег©у МахУа1ое: ГопаТпе; Определяет максимальное значение 
диапазона изменения свойства Ргодгез $ 

ргорегЕу М1п\Уа1ае: ГопаТпе; Определяет минимальное значение 
диапазона изменения свойства Ргодгезз 


ргорег®у РегсепеПРопе: ГопаТп®; Содержит тскущее значение свойства 
Ргоадгезз$ в процентах от его диапазона 
изменения 


ргорегЕу Ргодгез$$: Гопа1Тпё; Содержит текущее значение 
изменяющейся числовой величины 


ргорегеу ЗпомТехе: Воо1еап; Если содержит значение Ткое, в центре 
компопента выводится строковос 
представление значения РегсепЕРопе 


С помощью следующего метода к текущему значению свойства Ргодгез$ можно 
добавить величину \а1 пе: 


ргоседиге АдаРгодгез$ (Уа1ае: ГопаТп®); 


ТСо!огСма — цветовая таблица 


Компонент ТСо1огСг1а предназначен для выбора и/или отображения цветов из 

16-цветной палитры. Доступны два цвета: основной и фоновый. Основной цвет 

выбирается щелчком левой кнопки мыши и отображается символами Еб, фоновый 

выбирается правой кнопкой мыши и отображается символами Вб (если оба цвета 

совпадают, соответствующая ячейка таблицы помечается символами ЕВ). 
Свойства компонента ТСо1огСг1а представлены в табл. 20.2. 


Таблица 20.2. Свойства компонента ТСоогСиа 


Свойство [Описание 
ргорегеу ВаскагоипАСо]1ог: ТСо1ог; Содержит выбранный фоновый цвет 


ргорегеу ВаскКагоипаЕпаЬ1еа: Разрешает/запрещает выбор фонового 
Воо1еап; цвета. Игнорирустся, если свойство 
С11скКЕпаб1е$Со1охг имеет значение 
Тгае 


ргорегЕу ВаскагоппаТпаех: Тпеедег; | Содержит индекс выбранного фонового 
цвета 

ргорег®еу С11скКЕпаб]1е5зСо]1ог: Разрешаст/запрещает выбор цветов 

Воо]1еап; 


Суре Тбсг1АОгаег1тпа = (3016х1, Определяет конфигурацию таблицы: 


ао8х2, 904х4, 302х8, 401х16); первая цифра — количество колонок. 
продолжение 
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Таблица 20.2 (продолжение) 


Свойство [Описание 


ргорегеу Сг1АОгаег1па: вторая — количество рядов 
ТСг1ЧОгаег1па; 
ргорегеу ГогедчгоипаСо1ох: ТСо1ог; Содержит выбранный основной цвет 


ргорегеу ГогеагоипаЕпаю]1еа: Разрешает/запрещаст выбор основного 
Воо1еап; цвета. Игиорирустся, если свойство 
С11сКЕпар1езСо1охг имеет значение 
Тгое 


ргорегЕу ГогедгоспаТпаех: Тпеедег; | Содержит индекс выбранного основного 
цвета 

ргорегеу 5е1есЕе1оп: Тпфедег; Содержит индекс последнего 
выбранного цвета 


Индекс цвета — это число в диапазоне 0-15, определяющее номер соответству- 
ющей ячейки в порядке перехода от самых темных цветов к самым светлым: 0 — 
ячейка с черным, 1 — с коричневым, ..., 15 — с белым цветом. 

Пары свойств ВаскагоппЯЕпаю1еа-С11скЕпаю1езСо1ог и Когеагоппа- 
Ераю1еЯ-С11скЕпаЬ1е5Со1ог запрещают выбор и отображение соответствую- 
щего цвета только в том случае, когда оба свойства в паре имеют значение Еа1 $е. 
Однако даже в этом случае свойство Зе1есе1оп хранит номер ячейки таблицы, 
на которой последний раз был произведен щелчок левой или правой кнопкой мыши. 
Это свойство изменяется до возникновения события мыши и при необходимости 
может использоваться для выбора цвета без его отображения. 

С помощью представленного ниже метода программа может получить индекс 
табличного цвета, наиболее близкого к цвету АСо1ог: 


Еапсе1оп Со1огТоТпаех (АСо1ог: ТСо1ог): Тпеедег; 


Следующее событие возникает только при разрешенном выборе/отображении 
соответствующего цвета: 


ргорегЕу ОпСПпапде: ТМ№оЕ1ЕуЕуепе; 


Т$ртВиНоп — спаренные кнопки 


В отличие от компонента ТОрромп, компонент Т5$р1пВиае оп не связан с регули- 
рованием числовой величины и может использоваться просто как пара кнопок: 
верхняя (Ор) и нижняя (Ромп). Для компонента следует написать обработчики 
его событий ОпОрС11ск и ОпромпС1 1 ск, в которых реализуется реакция програм- 
мы на щелчок на той или иной кнопке. 

Рисунки на кнопках определяются свойствами Орб1урВ и Ромпб1 ур. Каж- 
дый рисунок может содержать 1, 2 или 3 изображения, соответственно, для кнопки 
в обычном состоянии, для недоступной кнопки и для нажатой кнопки. 


Т5ртЕЯаЙ — поле со спаренными кнопками 


Компонент Т$р1пЕа1 + предназначен для ввода/отображения числа. Он представ- 
ляет собой комбинацию специализированного потомка однострочного текстового 


ТОкесогуОщИпе — структура каталогов 435 


поля ТСазеомЕЯ1 & и кнопок Т$р1пВие оп. В текстовое поле допустимо вводить 
только числа (в этом и заключается его специализация), а кнопки используются 
для изменения числа на некоторую фиксированную величину. 

Свойства компонента Т$р1пЕа1 + перечислены в табл. 20.3. 


Таблица 20.3. Свойства компонента ТЭртЕаИ 


| Свойство пп 


ргорегеу Еа1КогЕпаю1еа:; | Разрешает/запрещает ручной ввод чисел в текстовое 
поле 
: Содержит число, на которое будет изменяться свойство 
БопаТпе; У\Уа1ие при щелчке на одной из кнопок Т$р1пВае оп 


ргорегеу Мах\Уа11е: Содержит верхнюю границу диапазона возможных 
Гопа1п®; значений Уа1пе 


ргорегеу М1п\Уа1о0е: Содержит нижнюю границу диапазона возможных 
ТопаТпе; значений Уа1пе 

9 
ргорегеу \а11е: Содержит текущсе значение числовой величины 
БопаТпе; 


ТОнесфогуди те — структура каталогов 


Компонент Тр1гесбогуОо 11 пе предназначен для отображения древовидной 
структуры каталогов (рис. 20.2). Компонент отображает полную структуру ката- 
логов, а не путь доступа к одному из них. 


© ввио 
606 
© ОЕЦРН 
С Ооситет$ апа Зе пд$ 
© Рагопом 
© НОМЕ 
© НУОРО 
© призе 
© овС 
@РТЕВ 
© ОЕЁРН 
© Ше!7\1 
[= Озке! 


[м  Снер_ 04 
© Спер_06 
© Спар_07? 
© Спар_03 
© Спар_10 
© Снар_11 
© Снар_13 
© Спар_14 
© Спар_15 
© Спас 16 


Рис. 20.2. Окно компонента ТОпецогудц те 
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Следующее СВОЙСТВО определяет регистр букв в именах каталогов: 


ТТехЕСазе = (6 сГомегСазе, ЕсОррегСазе, +сА$Т$); 
ргорег®Еу Тех(Сазе: ТТех%Сазе; 


Здесь: есЬомегСазе — строчные буквы; «сОррегСазе — прописные буквы; 
Е САзЗТ5 — строчные и прописные буквы. 

Следующие два свойства доступны только на этапе прогона программы: 

ргорег®у Пг1уе: СНаг; 

ргорегеу П1тгескогу: ТЕ11еМапе; 


Первое определяет выбранный диск, второе — выбранный каталог. 


ТСаепдаг — календарь 


Компонент ТСа1епдаг отображает календарь на выбранный месяц и год. Его свой- 
ства Рау, МопЕВ и Уеаг могут содержать любую дату от 1 до 9999 года от Рожде- 
ства Христова. 

Свойства компонента ТСа1епдаг перечислены в табл. 20.4. 


Таблица 20.4. Свойства компонента ТСа!епааг 


Содержит выбранную дату 


Свойство 


ргорегЕу Са1епЧагПате: 
ТРафеТ1те; 


Содержит текст в ячейке календаря на 
пересечении колонки АСо1 с рядом АВом 
(только для чтения) 


ргорегЕу Пау: Тпкедег; Определяет выбранный день месяца 


ргорех®у Сг1Аа1пем1аен: Устанавливает толщину линий таблицы 
Трсечег; калепдаря 
ргорегеу МопеП: Тпеедег; Определяет выбранный месяц 


Если содержит значение Тгое, пользователь 
не может выбрать другую дату 


ргорег®у Се11Тех®е[АСо1, 
АВом: Тпеедег]: Зегапа; 


ргорег®еу КеааОп1]у: Воо1еап; 
0..6; 


фуре ТрауОЕМееКк = 
ргорег®еу саге ОЁЕМеек: 


ТРрауоЕМеек; 
Если содержит значение Ткое, компонент 


ргорегЕу ОзеСиггепе Рае: 
Воо1еап; будет показывать текущую системную дату 


ргорегЕу Уеаг: Тпседег; Определяет выбранный год 


Методы компонента ТСа1епдаг представлены в табл. 20.5. 


Определяет день иедели, который будет 
отображаться в левой колонке таблицы 


Таблица 20.5. Методы компонента ТСаепдаг 


Метод [Описание 
ргосе4аге МехЕМопЕВ; Отображает календарь на следующий месяц 


ргосеаиге МехеУеаг; Отображает календарь на следующий год 
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Метод [Описание 
ргоседиге РгеуМопеП; Отображает календарь на предыдущий месяц 


Отображает календарь па предыдущий год 


ргосеааге Ргеу\Уеаг; 


Компоненты МЛпаом$ ЗПе! 


Компоненты Т5$Ве11СотБовВох, ТЗВе1111$%Е\У1ем, Т5Ве11ТгееУ1еми Т5ре1 1- 
Срапдеъо* 1 Е1ег предназначены для более полного взаимодействия с файловой 
системой 32-разрядных версий \/Лш4о\з. Окно, показанное на рис. 20.3 (проект 
СВар_20\\Мп5Не\МЛпЕхр(огег.арг) в функциональном плане очень напоминает окно 
Проводника Ут о\5. 


сооосае, 


| К Рабочий стол |... 


ВЕВННЕЕЕРРЕРАРВЕННЕЯ: . ВОЕРЫНННЕНЫНН 


+. Сы Мои документы ной 8 ее — Е. ее = 
| = $ Мой компьютер | Мои Мой Сетевое Корзина бете! Мкстозой Моцоп 


+. „5 Диск 3,5 (А:) | документы — компьютер Ехрюгег Оцфоок — Ап тиз 2002 


++ 4а# 515 [С] й 
32 ии ААС (0:] № [№7] 
+. 2% СО-дисковод (Е:] : г. А 


3+ [34° Панель управления ОФеры 7 Мсгозой МИпдом МИпВАА Косынка 
: \огд Согитатдет 


В 
} 
| 
| 
} 


Н 


` 3: 5 Документы - Мама 


$. 3) Документы - Папа 
: $ 2 Сетевое окружение лит 
к Солитер 


| 


3 


Рис. 20.3. Демонстрация компонентов МИпаом/$ ЭВе! 


Для повторения примера проделайте следующую последовательность шагов. 


1. На пустую форму поместите две панели. Для первой установите в свойство 
А11ап значение а1 Тор, для второй — а1ЪеЕ\. 


2. Поместите на форму компонент Т5$р11Е{ег, установите для него значения 
свойств А] 1ап=а1ТеЁф и И1 Ав =3. 


3. Поместите на форму еще одну панель и установите для нее значение свойства 
А]19п=а1С11епе. 


4. Наверхнюю панель поместите компонент Т5пе1 1СопроВох, на правую — ком- 
понент Т5Ве]1 1Тгее\У1ем, на левую — компоненты Т5Ве1111$5$ЕУ\У1еми Тбва- 
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Е а5Ваг. Поместите в свойства А11ап компонентов Т5ре11Тгее\У1ем и Т5\е11- 
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.1зЕУзем значения а1С11епе. 


5. Свяжите три компонента друг с другом: в свойство 5пе11Тгее\У1ем компо- 
нента Т5Ве11СотроВох поместите ссылку на компонент 5$Ве11Тгее\У1ем1, 
а в его свойство 51е111,13%\У1ем — ссылку на компонент 5$Ве11115Е\У1ем1. 
Убедитесь, что свойства $пе11СотроВох и 5Ве111,15{У1ем компонента $пе11- 
Тгее\1ем1, а также свойства $Ве11СотроВох и 5$Ве11Тгее\У1ем компонен- 


та $ЗНе1111зЕ\У1ем1 настроены нужным образом. 


6. Чтобы в строке состояния отображать название просматриваемого устройства 


(папки), напишите два показанных ниже обработчика: 


ргоседиге ТЕГоги1.5Ве1]1Тгее\У1ем1Срапае (Зепаек: ТОрЗес%; 
М№оае: ТТгееМ№оае); 


Бед1п 
1Е Тад=1 %Беп 
Рапе1.Техе := Моае.Техе 
епа; 


ргосеаиге ТГоги1.ЕГогмАс®1уафе (бепаег: ТОБ)ес®); 
Бед1п 
Рапе1 := 
Таа := 1 
епа; 


Сбабо$Ват1.Рапе1$.Ааа; 
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Форма 


Форма является основным «строительным блоком» в ОерН!. Любая программа 
имеет как минимум одну связанную с ней форму, которая называется главной, — 
эта форма появляется на экране в момент старта программы. Однако программа 
может иметь сколько угодно форм, каждая из которых может решать ту или иную 
локальную задачу и появляться на экране по мере надобности. В этой главе мы 
познакомимся с назначением и способами использования различных форм, а так- 
же изучим их свойства и методы. 


Разновидности форм 


Разновидности форм определяются значениями их свойства Еоги5у1е, а также 
разнообразием форм-заготовок в хранилище объектов Оеры. 
Стиль формы задается одним из значений следующего свойства: 


ТЕоги5еу1е = (ЁЕ$Могма1, ЕзМРТСр11аА, ЕзМОТЕогм, 
ЕзосауОпТор); 
ргорегеу Гогпб®еу1е: ТЕРГоги5еу1е; 


Стиль ЕзМогта1 определяет обычную форму, использующуюся для решения 
самых разных задач, в том числе для общего управления всей программой (глав- 
ная форма). 

Стили ЕзМОТСЬ11аи ЕзМОТЕРогм используются при создании так называемых 
многодокументных приложений в стиле МОТ (МшШа ОБоситепе [ткегЁсе). Этот 
немодный сегодня стиль предполагает создание главного окна МОГ (его обычно 
называют рамочным), внутри которого по мере надобности появляются дочерние 
окна. Дочерние окна, подобно дочерним элементам контейнера, не могут выходить 
за границы своего владельца — рамочного окна. В МО]Т-приложениях есть специ- 
альные средства управления взаимодействием рамочного окна с дочерними окна- 
ми. Например, каждое дочернее окно в момент активизации может нужным образом 
настроить главное меню рамочного окна (дочерние МПО]-окна не имеют собствен- 
ного главного меню). В ОерЫ для создания рамочного окна используется стиль 
ЕзМОТГокм, а для создания дочернего МО]-окна — стиль ЕзМОТСЬ1 14. 
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Стиль Ёз5ауОпТор предназначен для окон, которые всегда должны распола- 
гаться над всеми другими окнами программы'. В момент активизации окна оно 
обычно становится видимым на экране, даже если перед этим его загораживали 
другие раскрытые окна. Стиль Ёз 5 ауОпТор препятствует перекрытию окна дру- 
гими окнами, даже если оно становится неактивным и теряет фокус ввода (так 
сказано в документации, однако на самом деле это не так, см. ниже). Понятно, что 
этот стиль используется в исключительных случаях, когда окно содержит что-то, 
требующее повышенного внимания пользователя. 

Как показывает практика, объявление окна со стилевым признаком Е55$ау- 
ОпТор еще не решает проблему создания всплывающего окна, то есть окна, кото- 
рое невозможно перекрыть другими окнами. Более того, несложные эксперимен- 
ты убедят вас, что этот признак вообще не играет никакой роли! Чтобы создать 
всплывающее окно, нужно обратиться к АР1-функции 5е И1паомРоз. Например: 


зееИ1паомРоз (ЕмА1агмГогм.Напа1е, Пипа _ТорМозе, 
300, 300, 250, 70, змр поАсЕ1уаее) 


Полное описание этой функции (как и всех других АР1-функций У/тао\$) вы 
найдете в файле помощи \/М№З2.НЕР или \М3250К.НЕР, которые поставляются вме- 
сте с Реры и по умолчанию располагаются в папке Ргодгат ЕЦез\Соттоп Е(ез\Во(ап@ 
ЗВагед\М$Не[р. Здесь я лишь кратко поясню назначение параметров вызова. 

Первым параметром обращения к функции является дескриптор окна, которое 
должно стать всплывающим. Напомию, что дескриптор формы содержится в ее 
свойстве Напа1е, поэтому для формы ЕпА1агпРГоги Параметр вызова имеет вид 
ЕпА] асмЕогм.Напа1е. Второй параметр определяет расположение окна относи- 
тельно других окон в так называемом (-порядке их расположения. Константа 
рипА_ТорМоз указывает, что окно должно стать самым верхним и впредь до его 
закрытия не может перекрываться другими (обычными) окнами. Четыре следую- 
щие параметра определяют координаты левого верхнего угла окна, его игирину и вы- 
соту. Все параметры указываются в пикселах, координаты угла задаются относи- 
тельно левого верхнего угла экрана. Последним указывается один или несколько 
битовых флагов, уточняющих поведение окна. В нашем примере использован флаг 
змр_поАсЕ1уафе, означающий, что окно не получает фокуса ввода в момент сво- 
его появления на экране. На практике я часто использую всплывающие окна, что- 
бы сообщить пользователю, например, о необходимости обновить набор данных, 
которые он видит в настоящий момент, так как эти данные были изменены други- 
ми пользователями клиент-серверной базы данных. Такое окно, в отличие от мо- 
дального окна, не должно отнимать активность (фокус ввода) у окна, с которым 
работает пользователь. 

И последнее замечание. Всплывающим окном может стать и обычное окно (со 
значением стиля Когиб*у1е=ЁЕзМогща1). Однако всплывающее окно действитель- 
но появится на экране, только если в его свойстве \1$151е содержится значение 
Тгие. Иными словами, если пользователь закроет такое окно, оно не появится в ре- 
зультате вызова функции 5$еЕМ1п4омРоз — его предварительно нужно сделать 
видимым методом 5пом. Поскольку всплывающее окно может вызываться в раз- 


' Втермипологии \УМт4о\$ такое окно называются «Рорир \Ми14о\», что буквально переводится как 
«окно-поплавок», а в локализованных программных продуктах именуется «всплывающим окном». 
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ных местах программы, удобно поместить вызов функции $е И1паомзРоз в его 
обработчик события ОпАс+ 1 хате. Однако если вы попытаетесь создать такой об- 
работчик для окна со стилем Когибу1е=Ез5кауОпТор, то компилятор выдаст 
сообщение об ошибке и поместит заготовку метода в тексте модуля после ограни- 
чителя-точки (.). В этом случае определяйте окно со стилем ЕзМогма1. 

Современные многооконные приложения чаще всего строятся в стиле $01 
(Зше Поситепе ПцегЁасе), который в противоположность интерфейсу МПТ не 
накладывает ограничений на положение и размеры вспомогательных форм, каж- 
дая из которых при необходимости может иметь свое главное меню (в стиле $0] 
реализована, например, среда РерЬ\). Для создания форм в этом случае использу- 
ется стиль ЕзМогта1. Замечу, что в рамках 5О][-приложений могут использовать- 
ся рамочные МО]1-формы со своими дочерними окнами, так что термин 50] носит 
весьма условный характер и применяется в основном для противопоставления тер- 
мину МОГ. 

В хранилище объектов ОерЫ хранится множество стандартных форм-загото- 
вок, предназначенных для решения конкретных задач (доступ к хранилищу объ- 
ектов открывает команда Ре ›» Мем » О{Пег). Помимо универсальной пустой формы 
Гоги (вкладка №ем хранилища объектов) хранилище содержит специализирован- 
ные формы, некоторые из которых перечислены в табл. 21.1. 


Таблица 21.1. Специализированные формы в хранилище объектов 


Название [Вкладка | Описаие 
АБоц{ Бох Окно 0 программе 


Оца( 1$ Бох Рогт$ Диалоговое окно с двумя компонентами 115% Вох. 


Используется для гибкого управления списками, в том 
Ошск Кероц [аБе[$ | огт$ 


числе для перемещения элементов из одного списка 
в другой 


Используется В приложениях баз Данных для печати 
наклеек 


Ошск Керо 11$ Используется в приложениях баз данных для создания 


обычных отчетов 


Ошск Верой Используется в приложениях баз данных для создания 
Маз{ег/Ое{а1( отчетов типа главный-детальный 


ТабБед Раде$ Готт$ Заготовка для многостраничного диалогового окна 
с вкладками и кнопками ОК, Сапсе[ и Нер 


Ота[од мВ Не 01а(09$ 


Заготовка для диалогового окна с кнопками ОК, Сапсе|, 
Неф. Имеются варианты с вертикальным 
и горизонтальным расположением кнопок 


Ра5$м/ога Ота[од О1а(09$ Диалоговос окно с однострочным полем ТЕа1* для 

ввода паролей, а также кнопками ОК и Сапсе[ 
Кесопсце Етгог 01а(09$ 
Еее 


З{апдага 01а1о9 О1а104$ 


Используется в приложениях баз данпых для пояснения 
обнаруженной ошибки при изменении таблицы 


Заготовка для диалогового окна с кнопками ОК, Сапсе[. 
Имеются варианты с вертикальным и горизонтальным 
расположением кнопок 


продолжение =? 
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Таблица 21.1 (продолжение) 


Название Вкладка | Описание О 
О1а(од МЛ2ага 01а[09$ Мастер создания диалоговых окон 


Оа{аБазе Рогт Мастер создания форм для доступа к базам данных 


\ММ1гага 


Ошск Керог МА тага | Ви$1пе$$ Мастер создания отчетов для баз данных 
ТееСВаг Мага Ви$1пе$$ Мастер форм для доступа к компоненту Свах® 


Компонент ТЕогт 


В этом разделе мы рассмотрим свойства, методы и события формы, то есть компо- 
нента ТЕогм. Свойства формы представлены в табл. 21.2. 


Таблица 21.2. Свойства формы 


Свойство 


ргорегеу АсЕ1уе: Воо1еап; Содержит значение Ткое, ссли окно 
активно (имеет фокус ввода) 


ргорегЕу АсЕ1уеСопего1: Определяет дочерний элемеит, 
ТИ1пСопего1; содержащий фокус ввода 


ргорег&у Асе1уемротСср114а: ТРогп; Определяет дочернее МО]-окно с фокусом 
ввода 


ргорегеу А1рПпаВ1епЯ: Воо1еап; Если содержит значение Ткое, форма 
определяет полупрозрачное окно (только 
для У\Мт4о\\$ 2000 и выше) 


ргорегеу А1рраВ1епаУа1ще: Вуке; Указывает степень прозрачности окна 


ТВогаегТсоп = (Ю1бузбепМепоа, Определяет паличие кнопок в заголовке 
р1М1п1т12е, р1Мах1м12е, Ь1Не]1р); окна: 515узбещМепи — кнопка вызова 
ТВогаегТсопз = зе оЁ системного меню; 51М1п1тм12е — кнопка 
ТВогаетгТсоп; свертывания; р1Мах1м12е — кнопка 
ргорегеу ВогаетТсопз: развертывания; 51Не1р — кнопка вызова 
ТВогаегТсопз; справочной службы 


ТЕогмВогАаег$ $ у1е = (Ь$зМ№опе, Определяет стиль рамки окна: БзМопе — 
р$51п91е, 5$51хеаб]1е, Ь$01а1очд, окно не имест рамки и заголовка и пе 
Ю5Тоо1М1паом, Б5$512еТоо1М1п); может перемещаться и изменять свои 
ргорегЕу Вогаег$еу1е: размеры; 2551п91е — рамка толщиной 
ТЕогиВогаег$ $ у1е; в | никсел, такос окно не может изменять 
свой размеры; 2551 2еаЪ1е — обычная 
рамка; р521а1оа — рамка диалогового 


окна, окно ис может изменять свои 
размеры; 65Тоо1И1пао\м — подобно 
6551па1е, но с уменьшенным но высоте 
заголовком; 55512еТоо1И1п — подобно 
65512еаЪ1е, но с уменьшенным по 
высоте заголовком 
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ргорегЕу Сапуаз: ТСаптаз; 


Канва для прорисовки фона окна. Это 


[9:16] (4%: 9) могут использовать неоконные 


ргорегеу С11епЕВесе: ТВесе; 


ргорег®еу С11епЕМ1аАеН: Тпфедег; 


Фуре ТОеЁЕаз]1+Моп1еохг = 
(апрезкеор, АтмРг1магу, 
ЧмМа1пГогм, ЧАмАс®1уеГогт); 
ргорехеу ПеЁац1+ЕМоп1еог: 
ТРега\11ЕМоп1* ог; 


ргорехеу ПгорТагде+: Воо]еап; 


ргорегеу Е1оа+1па: Воо1еап; 


Суре ТГогпбфаке = зеё оё 
(Е5Сгеа&1па, Ё$\1$1Ъ1е, 
Е55Аом1па, ЁЕ$Моаа1, 
Е5Сгеаб ея мотсй11а, ЕзАс®1уафеа); 
ргорегЕу Гогпбфабе: ТГогтбфаее; 


фуре ТГогиб®у1е = (ЁЕ$М№кгта1, 
ЕзМОТСр1]а, Е$МоОТЕогп, 
Ез5$ауОпТор); 

ргорегеу Гоги5$у1е: ТРГоги5$у1е; 


ргорег®еу Не1рг11е: $%х1п9; 


дочерние элементы 


ргорехеу С11епеНезчВе: Тпуедех 


Прямоугольник клиентской части окна 
Ширина клиентской части окна 


Определяет монитор, на котором 
появляется форма: атрезКеор — для 
формы не указан монитор; ЯтРг1тагу — 
форма появляется на первом мониторе 
списка Моп1 *ог$ глобального объекта 
$сгееп; атМа1пГогм — форма 
появляется на том же мониторе, что 

и главное окно программы; 
ЧпАс&1уеГогм — форма появляется на 
том же мониторе, что и текущее активнсе 
окно 


Если содержит значение Тгие, форма 
поддерживает перетаскивание 
(Огаё&Огор) 


Если содержит значение Га] зе, окно 
причалено к другому окну, в противном 
случае оно «плавает» 


Определяет текущее состояние формы: 
Е$Сгеа®1пчд — окно создается; 
Е$\/13161е — окно видно на экране (это 
состояние используется для обновления 
свойства \1$151е); ЁЕз5пом1па — 
свойство Гогиб+аее изменяется; 
Е$Моаа1 — создано модальное окно; 
ЕзСгеакеамотсв114 — форма 
представляет собой рамочное МП]-окно 
(устанавливается в момент создания 
дочернего окна); ЕЁЗАс&1уа+еа — форма 
получила сообщение СМ_АСТТУАТЕ, но 
еще не возникло событие ОпАсЕ1уа+е 


Определяет стиль окна: ЁзМогта]1 — 
обычное окно; Е5МОТСЬ114 дочернее 
МО]-окно; ЕзМОТЕГогм — рамочное 
МО]-окно; Ез5$хауОпТор — всплывающее 
{6} )9 (9) 


Каждая форма может иметь 
индивидуальный файл помощи, имя 
которого содержит это свойство. Если имя 
не указано, используется файл помощи 


приложения 
р продолжение #2 
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Таблица 21.2 (продолжение) 


Свойство 


ргорегЕу Тсоп: Т1Тсоп; 


ргорегеу КеуРгеу1ем: Воо1еап; 


ргорегЕу МОТСр11аСоипе: Тпфедег; 


ргорек®еу МОТСЬ11агеп [М: 
ТЕогм; 


Тпфсеадег]: 


Содержит значок окна. Для главной 
формы это свойство определяет также 
значок программы 


Если имеет значение Тгое, форма 
получает события от клавиатуры, перед 
тем как они поступят в элемент с фокусом 
ввода 


В рамочном МО][-окне определяет 
количество связанных с ним дочерних 
МО[-окон 


В рамочном МОГ-окне открывает доступ 
к дочернему окну под номером м 


ргорегеу Мепо: ТМа1пМепа; Содержит главное меню окиа 


ТМоаа1Вези1Е = Гом (Тпёеаег).. 
Н1ай (Тпбедег); 

ргорегЕу Мод4а1Кези1е: 
ТМоЧа1Кези1(; 


ргорег®у Моп16ог: ТМоп16ог; 


ргорегеу Р1хе15Рег1Тпсй: Тпфедег; 


ТРо$1Е10п = (рорез1апеа, 
рореЁац]1*, роПеЁаз1ЕРозОп1у, 
рореЁаз1*$512е0п1у, 
розсгеепСепеег); 

ргорег®еу Ро51е1оп: ТРо51Е1оп; 


ТРг1пебса1е = (ро№опе, 
роРгорог*1опа1, роРг1пЕТоЕ1е); 
ргоре’®у Рг1пЕбса1е: ТРг1пЕ5са1е; 


Для модального окна содержит результат 
диалога с пользователем 


Содержит ссылку На монитор, на котором 
отображается ОКНО 


Определяст разрешающую способность 
окна в пикселах на один линейный дюйм 
для этапа конструирования формы 


Определяет положение и размеры окна 

в момент его появления на экране: 
рорез1апеа — такие же, как на этапе 
копиструирования окна; рореЁац1 — 
положение и размеры определяет 
М/т4о\$; рореЕаз1{РозОп1у — 
положенис, как на этапе конструирования, 
размеры определяет \/Лт4о\5; 
рореЕац1{512е0Оп1у — размеры, как на 
этапе конструирования, положение 
определяет \/1140\5; робсгеепСепеег — 
в центре экрана с размерами, как на этапе 
конструирования | 


Опредсляет масштабирование окна при 
его печати на принтере: роМопе — пет 
масштабирования; каждый пиксел окна 
воспроизводится одной точкой на бумаге; 
роРгорогЕ1опа1 — форма 
масштабируется так, чтобы ее образ на 
бумаге был максимально похож на се 
изображение на экране; роРг1пЕТоЕ1& — 
форма печатается с такими же 
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Свойство Описание 


пропорциями, как на экране, но 
с размерами, заполняющими лист бумаги 


ргорег®у 5са1е4: Воо1еап; Разрешает/запрещает масштабировать 
форму, если значение ее свойства 
Р1хе1РегТпср отличается от текущего 
разрешения экрана 


Т11еМмоае = (%ЮНог1хопфа1, Определяет стиль расположения дочерних 
ЕБ\Уеге1са1); окон МОГ-приложения при их 
ргорег®еу Т11еМоае: ТТ11еМоае; упорядочении мозаикой 


ргорегеу ТгапзрагепЕСо1ог: Если содержит значение Тгие, свойство 

Воо1еап; Тгапзрагеп*Со]1ог\Уа11е определяет 
цвет прозрачности формы, сквозь 
который будут видны нижележащие окна 
(только для \т4о\$ 2000 и выше) 


ргорегеу ТгапзрагепеСо]огУа1ае: Содержит цвет прозрачности формы 
ТСо1ог; (игнорируется, если 
Тгапзрагеп®Со1ог=Га15е) 


ргорег®у И1паомМепи: ТМепоТ%епм; Определяет пункт главного меню 
рамочного МОГ-окна, к которому 
добавляются пункты меню дочернего окна 


ТИ1зпаомбваее = (мзМогма1, Определяет состояние окна в момепт сго 

м$М1п1м12еа, мзМахлилтеа); появления на экране: мзМогта1 — 

ргорегЕу И1паомсгаее: обычное окно; м5М1п1т12еа — свернуто 

Ти1паомсфаесе; ДО КНОПКИ; м5Мах1т12еа — развернуто на 
весь экран 


Два свойства А]1рраВ1епа и А1рваВ1епУа1ще впервые введены в версии 6 
и позволяют регулировать степень прозрачности окна формы. Если А1рваВ1епа= 
=Ткое, То значение свойства А] рраВ1епУ\Уа1 ще задает степень прозрачности: 0 — 
окно полностью прозрачно, 255 — окно совершенно непрозрачно. Свойства Тгап$- 
рагепеСо1ог\Уа]ще и Ткапзрагеп®Со1ог определяют цвет прозрачности и воз- 
можность его использования. Однако указанные свойства работают только под 
управлением У/Лт4о\з 2000/ХР и на процессорах Репиит с тактовой частотой не 
ниже 90 МГц. 

Замечу, что результат изменения значения А]1рваВ1епЯУа1ще проявляет- 
ся только в том случае, если видеокарта компьютера способна отображать боль- 
ше 256 цветов, то есть использует два (Н12Ъ Со]ог) или более (Тгие Со]ог) бай- 
та для кодирования цвета одного пиксела. Свойства Ткапзрагеп*Со1огУа1ае 
И ТкапзрагхепЕСо1охк игнорируются, если цвет не относится к основной 16- 
цветной палитре или если свойство А1рваВ1епа содержит значение Тгце. На 
рис. 21.1 показан экран, созданный с помощью проекта СВар_21\Тгапзрагеп 
М паом/\Тгапзр.арг. 
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Фыклющить тапоравей 
тк я 


Рис. 21.1. Демонстрация свойств АрПаВепа\Уаие и Тгапзрагеп(Со|ог 


Показываемое окно действительно прозрачно — сквозь него видны не только 
значки рабочего стола, но на них даже можно щелкать мышью и вызывать про- 
граммы. После щелчка на верхней кнопке начинается плавное изменение значе- 
ния А1рпаВ1епУа1ще от 255 до 0 и обратно. В результате окно «растворяется» 
на экране, а затем появляется вновь. 


ПРИМЕЧАНИЕ Если в множестве свойства ВогаегТсоп убрать кнонки ©1М1п1т12е 
иЪ1Мах1т12е, а всвойство М1 пом асе поместить значение мзМах1- 
п12еа, форма займет все пространство экрана, включая панель задач. 


Методы формы перечислены в табл. 21.3. 


Таблица 21.3. Методы формы 


Описание 


ргосеачге АггапдаеТсопз; Упорядочивает зпачки закрытых дочерних 
окон МО][-приложения 


ргосе4аге Сазсаае; Располагаст дочерние МОГ[-окна каскадом 


ргоседиге С1озе; Закрывает окно. Для главного окна 
завершаст работу программы 
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Метод описанию о 


Еипсе1оп С1о5е0иегу: Воо1еап Возвращает значение Тгие, если можно 
закрыть окно 


ргосеаиге ПРеЁГосозСоп®го1 Отбирает фокус ввода у дочернего элемента 

(СопЕго1: ТИ1пСопего1; Сопего1. Если при этом Ветоу1па=Ткгое, 

Ветоу1па: Воо1еап); фокус ввода получает форма 

ргосе4иге СгеакеРагам$ (уаг Создает структуру Рагамз (см. ниже) для 

Рагам$: ТСгеафеРагаптз); указания стилевых признаков создаваемого 

оуегг1ае; окна 

ргоседиге Госо$Соп®го1 Передаст фокус ввода дочериему элементу 

(СопЕго1: ТМ1пСоп®го1); Сопего1 

Еопсе1оп СесГогиТтаде: ТВ1етар; | Содержит текущее изображение окна 
формы 

ргоседиге Мех\; Делает активным следующее МО]-окно 

ргоседиге Н1ае; Скрывает окно 


ргоседиге МаКеЕго11у\1$15]1е Проверяет, полностью ли умещается форма 

(АМоп1еог: ТМоп16еог = 111); на мопиторе, и, при необходимости, 
изменяет ее положение так, чтобы у нее не 
было частей на других мониторах 


ргоседаге МопзеМпее]1Напа1ет (уах | Вызывается автоматически при получении 
Меззаде: ТМеззаде); омегг1ае; сообщения от колесика мыши. По 
умолчанию ничего не делает 


ргоседаге Ргеу1о13$; Дсласт активным предыдущее МО]-окно 
ргоседиге Рг1п®; Печатает окно на принтере 


ргоседиге Ке1еазе; Ожидает окончания обработки всех 
событий формы и ее дочерних элементов, 
после чего удаляет окно и освобождает всю 
связанную с ним память 


ргоседиге 5епСапсе1Моае Восстанавливаст начальное состояние окна: 
(Зепаег: ТСоп®го1); освобождает мышь, прекращает прокрутку 
и закрывает меню 


ргосеаиге 5ееГосиз; Передаст фокус ввода форме. Форма при 
этом должиа быть активной и видимой 


Еипсе1оп бесгосизеаСоп его] Передаст фокус ввода указанному элементу 
(СопЕго1: ТИ1пСопего1): 
Воо1еап; \1гЕ®ща1; 


ргосеаоге 5том; Показываст форму в немодальном режиме 


Еипс1оп ЗВомМода1: Тпеедек; Показываст форму в модальном режиме 
и возвращаст результат диалога 
с пользователем 


ргосеаоке Т11е; Располагает дочерние МОГ-окна мозаикой 


Еипсе1оп ИМапеСЬ11аАКеу (СВ11а: Этот метод вызывается любым 


ТСоп$го1; чаг Мез5асе: размещенным на форме компонентом 
продолжение 1 
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Таблица 21.3 (продолжение) 


ТМеззаде): Воо1еап; \1к%1а1; в момент, когда он получает фокус ввода. 
Если функция возвращает значение Тгце, 


весь клавиатурный ввод переназначается 
формс. По умолчанию возвращает значение 
Га]1зе 


Структура Рагамз в методе СгеафеРагатз описывается следующим типом: 


фуре 
ТСгеафеРагатз = гхесога 

Саре1оп: РСраг; // Заголовок окна 
5Еу1е: РОМОВО; // Стилевые флаги 
Ехбеу1е: ПОИОВЬ; // Дополнительные стилевые флаги 
Хх, У: Тобседег; // Координаты левого верхнего угла 
И1таср, Неларе: Тпеедег; // Размеры 
ИпаРагепе: НИМО; // Дескриптор владельца 
Рагам: Ро1пфег; // Указатель на параметры 


// для сообщения ИМ СВЕАТЕ 
\1пАомС1аз$: ТИпаС1аз$; // Класс окна 
\1пС]аззМаме: аггау[0..63] оЕЁ Сраг; 
// Имя оконного класса 
епа; 


Этот метод следует перекрыть, если вы хотите создать окно нестандартного типа. 
Например, набор возможных значений свойства Вогдекг$®у1е не предполагает 
создания окна с «толстой» рамкой, но без заголовка. Однако если в свойство Ра- 
гатз .56у1е поместить значение И$ _ТНТСКЕКАМЕ ог \5_РОРОР, такое окно 
будет создано. В проекте Свар_21\Моуед\Апдом/\Моу\п.4рг создается окно без заго- 
ловка, которое, тем не менее, можно перетаскивать мышью: 


ип 00161; 
1п6егЕасе 


изез 
$у$0611$, М1паомз, Меззаде$, С1аззез, СгарН1с$, Сопего1$, 
Рогм$, ПО1а]оа5$, 5ЕеаСег15$, Воаееоп$5; 


Суре 

ТГогм]1 = ©1аз$$ (ТЕГогп) 
В1ЕВ&п1: ТВ1ЕВЕп; 

рг1уаке 
{ РглуаЕе аес]агаётоп$ } 

рговесееа 
// Перехват сообщения ИМ МСНТТТЕ$Т для перемещения 
// окна без заголовка: 
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ргоседиге ИММСН1Тез& (уаг Меззаде: ТИММСН1ЕТез®); 
меззадце ИМ МСНТТТЕЗТ; 

руиЬ11с 
{ Рир]1с аес1агаётоп$ } 
ргосеаиге СгеасеРагат$ (уаг Рагат$: ТСгеа®еРагамз); 
оуегг1ае; 

епа; 


уаг 
Роги1: ТГоги1; 


1пр1емепва®1оп 
{$К *.ОЕМ} 


ргосеаиге ТГоги1.ИММСН1ЕТез® (уаг Меззаде: ТИММСН1&Тезе); 
Бед1п 
// Результат НТСАРТТОМ означает, что указатель мыши 
// находится над заголовком. Это заставит И1паои$ 
// перемещать окно: 
Меззадче.Везо1* := НТСАРТТОМ; 
еп; 


ргосеаиге ТГогп1.СгеафеРагат$ (уаг Рагамз: ТСгеафеРагатз$); 
Бед1п 

1прег1®ееА СгеасеРагат$ (Рагамз$); 

// Окно с рамкой (И5$ ТНТСКЕКАМЕ), но без заголовка 

// (М5_РОРОР): 

Рагам$.56у1е := М5 ТНТСКЕКАМЕ ог М5 _РОРОР; 
епа; 


епа. 


Сообщение ММ_МСНТТТЕЗТ посылает \/т4о\з в момент создания окна при 
любом изменении его нерабочей области (заголовка, рамки, полос прокрутки 
ит. п.), атакже при перемещении на нем указателя мыши. Обычно программы его 
не обрабатывают, но в нашем случае обработчик этого события «обманывает» \т- 
4о\з и сообщает операционной системе, что указатель перемещается на области 
заголовка. 

События формы перечислены в табл. 21.4. 


Таблица 21.4. События формы 


Возникает в момент активизации окна 


(при получении им фокуса ввода) 
продолжение 1$ 
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Таблица 21.4 (продолжение) 


Событие 


фуре ТСапВез12еЕхепЕ = ргоседиге | Возникает при изменении размеров окна. 
(Зепаег: ТОБ)ес®; хак МемИ1аеп, Обработчик может указать новые размеры 
МемНе1апе: Тплеедег; уаг Ве$12е: или запретить их изменение, поместив 
Воо1еап) о оБдес*; в свойство Вез12е значение Га1 зе 
ргорег®у ОпСапКе$12е: 

ТСапВез12хеЕхуепе; 


ТС1озеАсЕ1оп = (саМ№опе, санН1ае, Возникает персд закрытием окна. 
саРгее, саМ1п1м17е); Параметр Асе1оп уточняет необходимые 
ТС1озеЕуепе = ргосеадцге (Зепаег: действия: саМопе — не закрывать окно; 
ТОБ)]есе; хак Асе1оп: саН1Ае — спрятать окно; саЁРгее — 
ТС1о5еАсе1оп) оЕ оБЗесЕ; удалить окно; саМ1т1м12е — свернуть 
ргорегеу ОпС1о5е: ТС1озеЕхуепе; ©) 99) 


ТС1озе0цегуЕуепЕ = ргосеаигсе Возникает перед закрытием окна. 
(Зепаег: ТОБзесе; чак СапС1озе: В параметре СапС1озе обработчик 
Воо1еап) оЕ оБЗес®; сообщает о возможности закрытия окна 
ргорегеу ОпС1о5ебчегу: 

ТС1озе0чегуЕуепс; 


ргорегеу Оп0Ь1С11ск: Возникает при двойном щелчке на любом 
ТМ№ос1ЕуЕуепс; расположенном на форме компоненте 
ргорегеу ОпПеас+1хуаее: Возникает при передаче активности 
ТМ№ос1ЕуЕуепс; (фокуса ввода) другому окну 

ргорегЕу Опрезегоу: ТМоЕ1ЕуЕуепе; | Возникает перед удалением окна 
ргорех®у Опн:4е: ТНоЕ1ЕуБуеле; 


ргорегеу ОпРазпе: ТМоб1ЕуЕуепЕ; Возникает при необходимости 
прорисовки окна 


ргорегеу ОпКез12е: ТМоЕ1ЕуЕхеп®; Возникает при изменении размеров окна 


ТбпогЕСи6Еуепе = ргосеачге Возникает до события ОпКеуромп 

(уаг Ма: ТИМКеу; ухаг Напа1еа: и предназначено для перекрытия 
Воо]1еап)} о оБ)ес*; стандартной обработки нажатия клавиш 
ргорегеу ОпбпокЕСое: быстрого вызова 

ТброгЕ Са Еуеп&; 


ргорегеу Оп5пом: ТМоЕ1ЕуЕхепе; Возникает при появлении окна на экране 


Создание и использование форм 


Для подключения новой формы к проекту достаточно обратиться к хранилищу 
объектов и выбрать нужную разновидность формы. Менеджер проекта автомати- 
чески подключает новую форму к списку используемых форм и обеспечивает все 
необходимые действия по ее инициализации. Самая первая подключенная к про- 
екту форма (стандартное имя формы — Гогм1) становится главным окном про- 
граммы. Окно этой формы автоматически появляется на экране в момент старта 
программы. Впрочем, программист может указать любую форму, окно которой . 
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станет главным. Для этого нужно обратиться к команде Ргодесё › ОрНоп$, в открыв- 
шемся окне перейти на вкладку Гогт$ и в списке Мат огт выбрать нужную форму 
(рис. 21.2). 


Сувскобез/Сопвиюлав: < Мегой Ио. 3] `Раскадез } 
‚Аррисатол т ол |. Солод Мезнарея | ‚Нокег- 1 


Мат Ги Ро т 


. "до стене Чите М | Ауадвье Коте 


{ 
: 
1 
| 


мены 


Рис. 21.2. Окно управления проектом 


Каждое следующее окно становится видимым только после обращения к его 
методу 5Пом или зпомМоЯда1. Чтобы обратиться к этим методам, нужно сослаться 
на объект-окно, который автоматически объявляется в интерфейсном разделе свя- 
занного с окном модуля. Для этого, в свою очередь, главное окно должно знать 
о существовании другого окна, что достигается ссылкой на модуль окна в предло- 
жении Озез. Если, например, в ходе выполнения одного из методов главного окна 
программист захочет вызвать окно с именем ЁЕтГог, связанное с модулем Гогт- 
Оп1, он должен сослаться на этот модуль в предложении 9зез главного окна: 


1пр1етепва®1оп 
Озез ГогмОп1(; 


После этого можно вызвать окно на экран, добавив в программу один из следу- 
ющих операторов: 


ЕюРогм. овом; 
ЕтРогм.опомМоаа1; 


Пер автоматизирует вставку ссылки на модуль в предложение 0зез. Для этого 
на этапе разработки нужно активизировать главное окно, щелкнув на нем мышью, 
после чего обратиться к команде Ее ›» У5ез Уп. В появившемся диалоговом окне 
(рис. 21.3) нужно выбрать модуль и щелкнуть на кнопке ОК. Вставляется ссылка 
в предложение, стоящее за зарезервированным словом Тмр1етепва*1оп, так как 
обычно главное окно в своей интерфейсной части не ссылается на элементы ин- 
терфейсной части второго окна. Точно так же можно при необходимости сослаться 
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в модуле второго окна на модуль главного окна: активизируйте второе окно и вновь 
выберите команду Ее › Ц5ез Ипи. Замечу, что если программист забудет сослаться 
на модуль, подключенный к проекту, Ое|р! при первой же трансляции програм- 
мы сообщит об этом и предложит вставить недостающую ссылку. 


Рис. 21.3. Вставка ссылки на модуль 


При вызове метода $пом второе окно появляется на экране и работает вместе 
с первым, поэтому управление сразу передается оператору, стоящему за обраще- 
нием к этому методу. Такие окна называются немодальными, они всегда открыва- 
ются в одном методе, а закрываются в другом. В отличие от этого обращение 
к методу ЗВомМоЯа1 создает модальное окно, которое полностью берет на себя 
дальнейшее управление программой, поэтому оператор, расположенный следом 
за обращением к методу ЗНомМода1 в вызывающей части программы, получит уп- 
равление только после закрытия модального окна. 

Модальные окна часто требуют от пользователя принятия какого-либо реше- 
ния. С их помощью реализуется диалог с пользователем или создается информа- 
ционное окно, которое пользователь должен закрыть после ознакомления с содер- 
жащейся в нем информацией. Если от пользователя требуется принятие решения, 
в модальное окно вставляются флажки, переключатели, кнопки и другие интер- 
фейсные элементы, с помощью которых пользователь может сообщить программе 
о принятом решении. В момент завершения диалога модальное окно должно поме- 
стить число, соответствующее решению пользователя, в свое свойство Мода1- 
Вези1 5. Некоторые стандартные кнопки (ОК, \е$, №, Сапсе! и т. п.) автоматически 
выполняют эти действия: помещают нужное число в свойство Мода1Кез1+ и за- 
крывают окно. В других случаях об этом должен позаботиться программист. Вы- 
зывающая программа получает значение свойства Мода1Везо1{ как возвращае- 
мое значение функции 5$помМоаа1 и может тут же его проанализировать: 


1Е Роги2.бромМоаа1 = пуххХх &Веп ... 
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Возможен и такой вариант: 


РКогм2 .5ПомМоаа1; 
Е Гоги2.Моаа1Везо1& = шеХххХХхХ %Вер ... 


Для закрытия окна (модального или немодального) используется метод Н1ае 
или С1озе. Следует учесть, что метод С1озе всегда помещает в свойство Мода] - 
Вези1{ значение 2 (игСапсе1), в то время как метод Н1ае не меняет значения 
этого свойства, поэтому, если программист хочет передать в вызывающую програм- 
му нестандартный модальный результат, следует ввести в программу следующие 
операторы: 


МоЧа1Везо1% := МуВезо1%; 
Н1Че; // Но ни в коем случае С1о$е! 


По умолчанию среда Ое]р}! настроена так, что при подключении нового окна 
к проекту менеджер проекта размещает его имя в списке автоматически создавае- 
мых окон (на рис. 21.2 это список Ац%о-Стеае Тогт5). В этом случае программист 
может не заботиться об инициализации соответствующего объекта окна. Однако 
если в программе используется множество окон, их автоматическое создание в мо- 
мент старта программы может существенно затянуть процесс ее загрузки. В то же 
время немедленное создание всех окон вовсе не обязательно, так как вряд ли вам 
понадобится одновременно показывать их на экране в немодальном режиме. Про- 
фессиональные программисты никогда не создают все оконные объекты в момент 
старта программы, но используют их по мере надобности. Для этого снимается 
флажок Ац®о сгеа{е Тогт$ & да{а тодще$ на вкладке де$1дпег окна ЕпмтоптепЕ ОрНоп$ 
(открывается командой Т00[5 » Епмтоптеп{ ОрНоп$) или в окне менеджера проекта 
(см. рис. 21.2) ссылки на эти формы переносятся в список АуаЦаЫе Гогтз, а обраще- 
ние к окну реализуется так: 


1Е поЕ Азз1апеа (Гогм2) еп // Проверяем, создан ли 
// оконный объект 
Коги2 := ТГоги2.Сгеаке ($е1ЕЁ); // Нет -— создаем его 


1Е Гогт2.<бпомМоаа1 = шкеХХхХ Реп ... // и используем 


Глава 22 
Программа 


Конечной целью программиста, работающего в Ое|р}1, является создание ирограм- 
мы — исполняемого файла, который может загружаться и выполняться под управ- 
лением 32-разрядной версии \У/т4о\з. В этой главе рассматриваются вопросы, 
относящиеся к программе в целом. В ней, в частности, описываются многочислен- 
ные вспомогательные файлы, связанные с программой, доступные программе гло- 
бальные объекты, ее динамическая настройка с помощью файлов инициализации 
и/или системного реестра. В конце главы приводятся некоторые сведения о 32-раз- 
рядной версии \/т4о\$ и механизмах взаимодействия программы с этой опера- 
ционной системой. 


Программные файлы 


Ое]р|1 создает множество файлов, связанных с одной программой'. Перед тем как 
начать их рассмотрение, хочу порекомендовать следовать золотому правилу: для 
каждого проекта выделять отдельную папку и хранить в ней все относящиеся 
к проекту файлы; это значительно упростит перенос проекта в другую папку, на- 
пример, на гибкий диск и затем с него на другую машину. 


Файл проекта 


Файл проекта имеет расширение ОРК. Обычно он не виден в окне кода — чтобы его 
увидеть, следует воспользоваться командой Ргодесё › Меми зоигсе среды ОерН1. Если 
закрыть файл проекта с помощью команды Ее › (1о5е или клавиш АЁ+Е4, вместе 
с ним закроются и все остальные формы проекта. Чтобы этого не произошло, исполь- 
зуйте клавиши С-+Е4 или команду ([05е Раде контекстного меню файла проекта. 

Файл проекта содержит код главной программы, с помощью которого создает- 
ся объект главной формы программы и, возможно, объекты некоторых других форм, 
а также обеспечивается связь программы с ядром \/т4о\з. Ниже показан типич- 
ный пример файла проекта, содержащего единственное окно формы. 


' Речь идет о полноценной \/1140\5-программе; при разработке консольных приложений, библиотек 
О, собственных модулей и в некоторых других специальных случаях может быть создан един- 
ственный файл. 
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ргодгам Рго)ес\+1; 


изе$ 
Когп$, 
01181 110 '0п161.раз' {РГогт1}; 


{$ЁБ *.ВЕЗ} 


Бед1п 
Арр11сае1оп.1п161а112е; 
Арр]11сае1оп.Сгеа®еГогм (ТГогп1, КГогм1); 
Арр11сае1оп.Воп; 

епа. 


Зарезервированное слово рходгам открывает файл проекта; оно может встре- 
титься в программе лишь один раз. 

В предложении азез перечисляются все (или лишь некоторые) связанные с про- 
ектом формы. Помимо стандартного модуля Еогтз, необходимого для создания 
главного окна программы, в нем указывается также модуль Оп1 1, связанный соб- 
ственно с главным окном. Обратите внимание на использование зарезервирован- 
ного слова 1п для указания файла с текстом модуля ('0п1{1.раз') и коммента- 
рия ( {Гогт1 }), который именует объект-окно, создаваемый модулем 0п1{1. Такого 
рода объявления Пер автоматически создает для каждого включенного в про- 
ект модуля. Только перечисленные в этом предложении модули Пер! считает 
входящими в проект, и их алфавитный список появляется при выборе команды 
Мем › Уп! 5; а при выборе команды \М1ем » Гогт$ отображается список всех перечис- 
ленных в комментариях объектов. 

Следует учесть, что если вы хотите перенести проект в другую папку и при этом 
сохранить его работоспособность, нужно сначала с помощью команды Ее > 5ауе 
Рго]ес& Аз скопировать в эту папку файл проекта, а затем с помощью команды 
[Це › 5ауе Аз перенести туда все связанные с проектом модули: только в этом слу- 
чае Ое!р! сумеет внести необходимые корректировки в файл проекта. Но если все 
файлы хранятся в единственной папке, в предложении азез не указываются пути 
доступа, и вы можете безболезненно разом скопировать все файлы в другую папку. 


ПРИМЕЧАНИЕ Настроечный О$К-файл, в котором среда сохраняет информацию о со- 
стоянии экрана в момент выхода из Оеры, также содержит полные 
пути доступа к открытым файлам. При переносе проекта этот файл не 
следует копировать. 


В разделе исполняемых операторов формируются, как минимум, три оператора: 
вызовы методов 1п161а117е, СгеахеГоги и Вип глобального объекта Арр11- 
саЕ1оп. Метод 1п1&1а112е предусмотрен «на всякий случай» и по умолчанию 
ничего не делает. Чтобы заставить его работать, следует поместить указатель на 
соответствующую процедуру без параметров в глобальную переменную Тп1+Ргос. 
Это можно сделать в секции инициализации любого модуля (напомню, что код 
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этих секций активизируется до начала работы ОСНОВНОЙ программы) или непо- 
средственно в теле главного проекта: 


ргосеаиге Тп11; 


Бед1п 

// Выполняет какую-то работу; 
еп; 
Бед1п 

Тр1ЕРгос := @1Тп1Е; 


Арр11саЕ1оп.1п161а112=е; // Обращение к Тп1Е 
Арр11саЕ1оп.СгеакеГогп (ТГогт1, Еогм1); 
Арр11сае1оп.Вип; 

епа. 


Разумеется, в этом последнем случае проще в первом операторе основной про- 
граммы явно обратиться к процедуре Тп1*. Вообще говоря, в подавляющем боль- 
шинстве случаев оператор Арр11саЕ1оп.1п181а11 те можно удалить без каких- 
либо последствий для программы. 

Следует учесть, что до оператора Арр11саЕ1оп.Виап можно вставить любые 
другие операторы Бер. В приводимом ниже примере (он заимствован из спра- 
вочной службы Ое!рЬ1) в программе создается пять окон. В форме Гогпт5 имеется 
компонент Ргодгез5Ваг1, с помощью которого визуализируется процесс загруз- 
ки программы, точнее — процесс создания остальных окон. 

Бед1п 

м1ЕБ ТЕГогм5.Сгеафе (п11) ао 

ху 
Ргодгез$Ваг]1 .Мах := 100; 
ЗВом; // Показываем форму Гогт5 с индикатором 

// РгодгеззВаг 

Ораафе; // Прорисовываем форму Гогт5 
Арр]11сае1оп.Сгеа®еГоги (ТГогм1, Гогп1); 
Ргоагез$Ваг]1 .5%керВу (25); 
Арр]11сае1оп .СгеафеРогм (ТГКогм2, Гога); 
РгодгеззВаг] .5$ерВу (25); 
Арр11сае1оп.Сгеа®еГогп (ТГогм3, Еогм3З); 
Ргоагез$Ват1 .5%ерВу (25); 
Арр11сае1оп.Сгеа$еГогм (ТГогм4, ЕГогм4); 
Ргодгез$Ваг1 .5$ерВу (25); 


Е1па]11у 
Ггее; // Удаляем ненужную форму Гогт5 
епа; 
Арр11са®к1оп.Вип; 
епа. 


С помощью метода Арр11сае1оп .Воп программа подключается к циклу об- 
работки сообщений \/Мш4о\$. Выход из метода возможен лишь после закрытия 
главного окна программы. 


Программные файлы 457 


Программист может показать диалоговое окно с запросом пароля и блокиро- 
вать вызов метода Арр11сае1оп .Воп, если введенный пользователем пароль не- 
верен. В следующем примере (листинг 22.1) в проекте используются две формы: 
стандартная форма Тпро&Очегу и обычная главная форма Ма1пЕогм. Форма 
Тпри(Оцеку создается при обращении к одноименной функции, определенной 
в модуле 21а1о95. Она представляет собой небольшое диалоговое окно с одно- 
строчным текстовым полем ТЕЯ1 + и двумя кнопками — ОКи Сапсе(. В окне пользо- 
ватель должен ввести пароль (Ре1рЬ1) и нажать клавишу Епег (проект СВар_22\ 
Раз$миога\Раз$\мога.4рг). 


Листинг 22.1. Защита программы паролем! 


ргодгам Раззмога; 


изез 
Когм$, 
01а1оа 3, // В этом модуле определена функция ТприЕОцегу 
01161 1п '01161.раз' [{МалпРогт}; 


{$В *.ВЕЗ} 
уаг 
Раззмга: З&гапа; 
Бед1п 
// Запрашиваем пароль: 
1Е ТпроЕОчеку ('Окно ввода пароля', 
'Введите пароль:',Раззмга) &Беп 
// Проверяем его: 
1Е Раззимга='Ре]1рр1' &ЪБеп 
Ъед1п // Все в порядке, пароль верен 
Арр11саЕ1оп.СгеакеГогм (ТМа1пГогм, Ма1пГогм); 
Арр11сае1оп.Воп; 
еп е1зе 
ЗромМеззасе ('Пароль не верен!'); 
епа. 


Таким же способом можно создавать пробные версии программ, которые будут 
функционировать только до определенной даты или до исчерпания заданного ко- 
личества запусков (см. проект СПар_22\Кед15егу\Тйа(.арг). 

С проектом может быть не связано ни одного видимого окна. Такие программы 
называются консольными. Они используются для проведения работ, не требующих 
диалога с пользователем и соответствующих средств ввода-вывода информации. 
Например, они могут пассивно ждать наступления определенного часа (обычно 
ночью), чтобы провести резервное копирование базы данных. 

Консольные программы не вызывают методы СгеафеКоги и Вип объекта 
Арр11сае1оп. Вместо этого в раздел исполняемых операторов файла проекта по- 
мещается код, который реализует необходимые действия. 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу В р:// 
мммм/.р®ег.сот/Чомип(оа4 — Примеч. ред. 
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Для создания консольного приложения нужно выбрать значок Сопзо(е АррИсаНоп 
на вкладке М№ем окна хранилища объектов. В ответ Ое!рЬ! создаст файл проекта 
следующего вида: 


ргодгаюм Рго]ес\1; 
({5АРРТУРЕ СОМ$ОГЕ} 
изез $5у$0%115$; 


Бед1п 
// ТпзегЕ изег соае Неге 
епа. 


Директива {5АРРТУРЕ СОМ5ОГЕ } дает в распоряжение программы «консоль- 
ные» средства ввода-вывода. В этом случае программа автоматически исполняет- 
ся в окне М5-ОО$5, и с помощью операторов Веа@Гп, Иг1 еп программист мо- 
жет ввести что-то с клавиатуры и вывести на экран так, как если бы программа 
работала под управлением М$-ОО5. Если программе не нужны даже такие сред- 
ства общения с внешним миром, эту директиву следует удалить. 

Несмотря на полное отсутствие видимых окон или их замену окном М$-ОО5, 
консольная программа остается полноценным 32-разрядным приложением и по- 
сле ссылки на нужные модули ей доступны глобальные объекты, средства типа 
ТприЕОчцегу, 5помМез$засе ИТ. п. 


Файлы модулей 


Файлы с текстами модулей имеют расширения РА$. После компиляции для каждо- 
го такого файла создается одноименный файл машинного кода с расширением 0С(. 
Если модуль содержит объект-окно, на этапе конструирования создается и авто- 
матически изменяется файл описания формы с расширением ОЕМ (файл будет ре- 
ально создан после сохранения модуля на диске). Файлы РА$ и ОЕМ жизненно важ- 
ны для проекта: удаление любого из них приведет к невозможности повторной 
компиляции проекта. 

В ранних версиях Ое!рЬ! файл ОЕМ был двоичным, то есть он описывал форму 
на языке, понятном только компилятору. В версиях 5...7 он может быть текстовым. 
Например: 


ор]есЕе Гогп1: ТРогм1 
ТеЕЕ = 272 
Тор = 107 
Итаен = 544 
Незаве = 375 
Сар&1оп = 'Гогм1' 
Со1ог = с1ВЕпГасе 
Копе.Спагзее = ПРЕГАОГТ СНАВЗЕТ 
Ропе.Со1ог = Сс1М1паомТехе 
Ропф.Незайе = -11 
ГопЕ.Маме = 'М5 бапз бег1Ё' 
РКопе.5су1е = [1] 
О1АСгеакеОгаег = ЕГа]15е 
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Р1хе]1зРрРегТпсй = 96 
ТехеНезане = 13 
ор]есе Воае$оп]1: ТВаебоп 
ГеЕе = 32 
Тор = 24 
ИТАев = 75 
Незайе = 25 
СарЕ1оп = 'Вофбоп1' 
ТарОгаег = 0 
епа 
епа 


В таком формате программист может вручную отредактировать файл описа- 
ния формы. Если, например, в предыдущем примере вместо типа ТВоЕ оп напи- 
сать ТЬаре1, после загрузки проекта в среду ОерЫ на месте кнопки окажется метка. 
Выбор формата файла описания формы осуществляется с помощью флажка № ем 
огт$ а$ {ех{ на вкладке Ое51дпег диалогового окна настройки параметров среды (от- 
крывается командой То0[5 » ЕпитоптепЕ Орйоп$). Поскольку, как уже говорилось, 
файл описания формы жизненно важен для функционирования проекта, ручное 
его изменение может привести к ошибкам. В этом случае восстановить его можно, 
удалив из него все внесенные вами изменения, либо воспользовавшись его резерв- 
ной копией, имеющей расширение -ОР. 

В версии 7 помимо файлов с расширениями РА$ и ОЕМ создается также ООР- 
файл, в котором сохраняются сведения обо всех созданных для окна диаграммах. 


Файлы ресурсов 


Файл проекта содержит директиву компилятора {$8 *.ВЕЗ}, с помощью кото- 
рой на этапе компоновки к исполняемому файлу присоединяется файл ресурсов. 
Последний имеет имя, совпадающее с именем проекта, и расширение ВЕЗ. Он со- 
здается автоматически для каждого проекта. В него ОерЬ! помещает значок про- 
граммы, номер ее версии и тому подобные данные. В этом файле не следует разме- 
щать никаких дополнительных ресурсов (указателей, строк, значков и т. п.), так 
как при каждой компиляции файл ресурсов создается заново. Если в программу 
необходимо ввести дополнительные ресурсы, их нужно разместить в отдельном 
файле и вставить в файл проекта соответствующую директиву (пример создания 
дополнительного ресурса описан в разделе «Указатели мыши» главы 14). 


Файлы настройки 


Для проекта создаются также три вспомогательных текстовых файла, в которых 
сохраняются параметры настройки компилятора { СЕб)), проекта (В0РГ) и среды (05К). 
Хотя все они текстовые, их ручное редактирование нежелательно, так как при вне- 
сении в них неправильных изменений компиляция проекта может сопровождать- 
ся сообщением «Программа выполнила недопустимую операцию и будет закры- 
та», после чего Ое]р выгружается из памяти. В такого рода случаях следует просто 
удалить все три настроечных файла и повторить компиляцию — Пер! создаст 
новые настроечные файлы с параметрами настройки по умолчанию. 
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Файлы резервных копий 


При внесении в проект изменений Ое!рЬ! обычно создает резервные копии изме- 
ненных файлов. Эти копии имеют расширения, начинающиеся символом тильда 
(-). Они создаются «на всякий случай» и содержат состояние проекта и/или моду- 
лей до внесения изменений. ОТ создания резервных копий можно отказаться, если 
снять флажок Сгеа{е Баскир Не на вкладке 01р(ау диалогового окна Ед ог ОрНоп$ 
(открывается командой Т00[$ » ЕаКог ОрНопз). 


Глобальные объекты 


С любой запущенной программой автоматически связываются от двух до пяти гло- 
бальных объектов: Арр11саЕ1оп (Программа), $сгееп (Экран), Ре1пфег (Прин- 
тер), $езз1оп (Сеанс) и С11рБоага (Буфер обмена). Все они объявлены как гло- 
бальные переменные в наиболее часто используемых модулях: Арр11сак1оп 
и 5сгееп — в модуле Гогт$, Рг1псег — в модуле Рг1пеекг$з, 5ез51оп — в модуле 
ОВТаб1ез и, наконец, С1 1рБоаг4 — в модуле С11рЬга. Создание этих объектов ре- 
ализуется в секциях инициализации соответствующих модулей, так что к моменту 
начала исполнения первого оператора файла проекта они уже готовы к работе. 


АррИсаНоп 


Объект Арр11саЕ1оп относится к классу ТАрр11са {оп и инкапсулирует важ- 
нейшие свойства и методы программы как таковой. Он создается автоматически 
и доступен любой программе!. Объекта Арр11саЕ1оп нет в палитре компонен- 
тов, поэтому его свойства недоступны на этапе конструирования, но становятся 
доступными при прогоне программы". 

Объект Арр11са+1 оп является посредником между программой и операцион- 
ной системой У/шп4о\у. В частности, с его помощью осуществляется диспетчери- 
зация сообщений \/шт4о\з, реализуется контекстная справочная служба, он обра- 
батывает клавиши быстрого доступа, исключительные ситуации и т. д. Свойства 
класса ТАрр11са+1оп перечислены в табл. 22.1. 


Таблица 22.1. Свойства класса ТАррИисайоп 


ргорегеу Асе1уе: Воо1еап; | Содержит значение Тгие, если любое окно 
программы имеет фокус ввода 


Свойство 


Если содержит значение Тгое, процедура 
«причаливания» (Огаз&ОосК) реализуется 
автоматически, в противном случае — только при 
персмещении указателя мыши с нажатой клавишей 
СЕ 


ргорегЕу АйпборгаароскК1па: 
Воо1еап; 


' Для обычных У/Лт4о\/з-приложений файл проекта ссылается на модуль Рогтз, поэтому объекты 
Арр11са®1ол и $сгееп действительно всегда доступны. 


2? Некоторые атрибуты программы (в том числе ее значок, сведения о версии и используемом языке) 
могут устанавливаться с помощью менеджера проекта (команда Ргодес{ ›» ОрЙоп$, вкладка АррИсаЯ оп). 
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Свойство СООО 


ргорегеу СоггепЕНе1рЕ11е: | Определяет имя текущего справочного файла 
ЗЕг1па; 


ргорегеу ЕхеМапе: Содержит полное имя (с маршрутом доступа) 
ЗЕг1па; исполняемого файла программы 


ргорегЕу Не1рЕ11е: Определяет имя файла справочной службы 
З&г1па; 


ргорегеу Не1рбузкеп: Открывает доступ к интерфейсу справочной системы 
ТНе1р5узеем; для непосредственного взаимодействия 
с менеджером справочной службы 


ргорегеу Н1пе: З%г1пд; Содержит длинную часть оперативной подсказки‘ 


ргорег®у Н1пеСо1ог: Определяет цвет фона окна оперативной подсказки 
ТСо1ог; 


ргорег®еу Н1пЕН1АеРацзе: Определяет паузу (в миллисскундах) от момента 
Тпседег; появления оперативной подсказки до ее 
исчезновения 


ргорегеу Н1пеРацзе: Определяет паузу (в миллисскундах) от момента 
Тпседег; остановки указателя мыши до появления 
оперативной подсказки 


ргорегеу Н1пеброгеСиез: Если содержит значение Тгие, текст оперативной 
Воо]1еап; подсказки автоматически дополняется информацией 
о клавишах быстрого доступа 


ргорегЕу Н1пебПогЕРацзе: Определяет паузу (в миллисекундах) появления 
Тпеедег; оперативной подсказки при переходе с одного 
компонента на другой 


ргорегеу Гсоп: ТТсоп; Определяет значок программы 
ргорегеу Ма1пГогт: ТГогм; | Определяет главное окно программы 


ргорег®еу ЗпомН1пе: Разрешает/запрещает показ оперативной подсказки 
Воо1еап; для всех окон программы 


ргорегеу 5ПомМа1пГогт: Разрешает/запрещает показ главного окна в момент 
Воо1еап; | старта программы 


ргорегеу Теги1пафеа: Содержит значение Тгие, если программа должна 
Воо1еап; прекратить работу. Используется в приложениях 
с интенсивным счетом для контроля необходимости 
прекращения дальнейшей работы 


ргорег®у Т1+1е: $%г1пд; Определяет текст на кнопкс свернутой программы 


ргорег®у Если содержит значение Тгое, программа 
Ораа*еГгогта& 5 ее 1п4$: автоматически будет учитывать новые параметры 
Воо1еап; формата, установленные в \/т4о\з (например, 
новый разделитель целой и дробной частей числа) 


при их изменении в момент работы программы 
продолжение 1 
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Таблица 22.1 (продолжение) 


Свойство 


ргорег®у Если содержит значение Тгое, программа 
ОрдахеМмеег1с5е 1195$: автоматически будет учитывать новые метрические 


Воо1еап; установки \М114о\$ (например, новый системный 
шрифт) при их изменении в момент работы 
программы 


Методы класса ТАрр11са&1оп перечислены в табл. 22.2. 


Таблица 22.2. Методы класса ТАррИсайоп 


ргосеацге Асе1уабеН1пе Показывает оперативную подсказку в заданной 
(СигзогРо$: ТРо1п®); координатами СигзогРоз позиции экрана 


ргосеацге Вг1паТоЕгопЕ; Помещаст окпо, которое было активным 
в последний раз, поверх остальных окон 


ргосе4иге Сапсе1Н1п%; Запрещает показ оперативной подсказки 


ргосеацге СгеафеГогм Создает объект-окно: вызывает конструктор 

(ГогмС]1а$$: ТЕогтС1а$$; класса ТГогиС1а$$ и связывает созданный 

уаг ВеЁегепсе); с его помощью объект с переменной 
ВеЕегепсе 


ргосеацге Напа1еЕхсер®1оп Осуществляет обработку исключительных 

(Зепаег: ТОБ)ес®); ситуаций, заданную по умолчанию. 
Используется при разработке новых 
компонентов 


ргосеаиге Напа1еМеззавде; Приостанавливает работу программы до тех 
пор, пока не будут обработаны все сообщения, 
после чего генерирует событие Опта1е 


ЕипсЕ1оп Не1рСотмтапа (Соммапа: | Посылает справочной службе команду 
Йога; Вафа: ГопаТпе): Воо1еап; | Сомтапа и параметр Рафа 


ЕопсЕ1оп Не1рСопфехе (Сопфех*: | Вызывает раздел Сопт{ех{ справочной службы 
ТНе1рСопкехе): Воо1еап; и возвращает значение Тгое, если такой раздел 
существует 


Еипсе1оп Не1р/оапр (сопзе Вызывает раздел справочной службы по его 
ТамртО: 5ег1лпа): Воо1еап; идентификатору ФатрТР и возвращает 
значение Тгоце, ссли такой раздел существует 


ргосеааке Н1аеН1п(; Убирает текущую оперативную подсказку 


Еапсе1оп МеззасдевВох (Тех, Создает и показывает диалоговое окно 

Сар®*1оп: РСраг; Е]1адз: с текстом и кнопками: Тех — сообщение 

Гопа1Тпе): Тпеедег; в окне; СарЕ1оп — заголовок окна. Назначение 
параметра Е1аз5$ и возвращаемое значение 
описаны ниже 


ргосеааге М1п1п12е; Свертывает программу до кнопки на панели 
задач 
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Приостанавливает действие стиля ЕЁзТорМозе 
(поместить окно поверх остальных) для всех 
окон программы, кроме главного 


ргосейцге Могта112еТорМоз+$; 


ргосеаиге 
Могта112еА11ТорМо$%$; 


Распрострапяет действие метода 
М№огиа]112еТорМо$& $5 на главное окно 
программы 


ргоседиге Ргосез5Меззадез; То же, что метод Напа1еМеззасе, но событие 
опта1е не генерируется 


ргоседоге Кезфоге; Восстанавливает первоначальные размеры 
всех окон программы, имевшие мссто до се 
свертывания 


ргосеасге КезкогеТорМоз$+з; Восстанавливаст действие стиля ЕзТорМоз* 
для всех окон программы 


ргоседиаге Вип; Запускаст цикл получения и обработки 
\ММтпЧо\и5-сообщений 


ргоседаге ЗпочЕхсере1ол (Е Реализует обработку исключительных 
Ехсер*1оп); ситуаций, заданную по умолчанию 


ргосеааге Теги1паее; Завершает работу программы 


С помощью методов НапЯ1еЕхсер®1оп и РгосеззМеззааез программа мо- 
жет временно приостановить свою работу до тех пор, пока не будут обработаны 
все предназначенные ей сообщения \!114о\5. Это бывает необходимо для обнов- 
ления видимых компонентов в процессе отображения длительного по времени 
цикла работы. Если, например, программа изменит текст метки (компонента ТГа- 
Ье1) или состояние индикатора процесса (компонента ТРгодгеззВак), сообще- 
ние об этом поступит в очередь сообщений и останется в ней, пока не закончится 
текущая работа. Вызов метода НапЯ1еЕхсер&1оп или РгосеззМеззааез в этом 
случае позволит метке или индикатору немедленно обновить свой вид и отобра- 
зить новую фазу процесса. Разница между методами Напа1еЕхсерЕ1оп и Рго- 
сез5Меззадез состоит в том, что первый после очистки очереди сообщений вызы- 
вает обработчик фонового события ОптТа1е, а второй не делает этого (о назначении 
события Опта1е см. ниже). 

Функция МеззадевВох дает удобное средство вывода на экран небольшого со- 
общения. Параметр Е1адз может быть произвольной комбинацией следующих 
значений: 


` 
х] 


" по_АрогеВеегуТапоге — в окно вставляются кнопки АБоц, Кейту, 1дпоге; 


”” пр _Арр1МоЯа1 — пользователь должен закрыть это окно перед тем, как про- 
должить работу с окном, его породившим; однако он может переходить в дру- 
гие окна и работать с ними (этот признак устанавливается по умолчанию, если 
не определены ни пь_ЗузеетМоЧа1, ни пю_ТазКМода1); 


* пр _РеЕВае®оп1 — кнопкой по умолчанию является кнопка 1; 


" пь РеЕВа*®оп2 — кнопкой по умолчанию является кнопка 2; 


” пр РеЕВае®оп3 — кнопкой по умолчанию является кнопка 3; 
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”” пр РеЕВоЕеоп4 — кнопкой по умолчанию является кнопка 4; 


." шр_Не1р — вокно вставляется кнопка Не{р; 


" пр _ТсопАзЕек1зк — в окно вставляется значок в виде строчной буквы 1 
в кружке; 


пр ТсопОцезЕ1оп — вокно вставляется значок в виде знака вопроса; 


”" пр _Тсоп5еор — то же, что и прю_ТсопНапа; 


” пь_ОК — вокно вставляется кнопка ОК; 


пр _ОКСапсе1 — вокно вставляются кнопки ОК и Сапсе!; 


” пр ВефегуСапсе1 — в окно вставляются кнопки Кегу и Сапсе[; 

по ЗузкетМоЯа1 -— все программы приостанавливают свою работу, пока 
пользователь не закроет окно; 

# ПО ТазКМо@а1 — приостанавливается работа во всех окнах данной програм- 

мы до тех пор, пока пользователь не закроет окно; 


>” пр _УезМо — в окно вставляются кнопки \е$, №; 
по _УезМоСапсе1 — вокно вставляются кнопки \е$, №, Сапсе|. 
Пример: 
Арр11саЕ1оп.МеззасвеВох ('Текст в окне', "'Заголовок окна', 
пр _ТсопОцезЕ1оп + п Уе5№); 
Функция МеззадеВох возвращает следующие значения: 
"" 1ААБоге — была нажата кнопка АБор*; 


 1ЧСапсе1 — была нажата кнопка Сапсе!; 


 1АТапоге -— была нажата кнопка 19дпоге; 


"" 1аок — была нажата кнопка ОК; 
1ЧМ№о — была нажата кнопка №: 


= 1аВекгу — была нажата кнопка Кем; 


" 1ауез — была нажата кнопка \е5. 

Альтернативой функции МеззадевВох является глобальная функция Меззаде- 
01а, объявленная в модуле 21а1о9$: 

Еапсе1оп Мез5адеро14 (сопз$е Мзд: $Зегапа; АТуре: ТМзар19Туре; 

АВоееоп$: ТМза9019Ваебопз$; Не1рСех: Топа1п®): Мога; 

Эта функция имеет параметр Не1рсех, с помощью которого создаваемое ею 
окно можно легко связать со справочной службой. В отличие от окна МеззадевВох, 
заголовок окна Меззадер1ч не может изменяться программистом — он определя- 
ется типом окна, задаваемым параметром АТуре со следующими возможными зна- 
чениями: 
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‚„” шеМа гп па — значок в виде восклицательного знака, заголовок Ма гп1 па; 


"" пеЕггог — значок в виде знака Стоп, заголовок Еггог; 


 шеТпЕогмае топ — значок в виде буквы 1, заголовок ТпЕогма%1оп; 


” пЕСопЕЁ1 гта 1ол — значок в виде вопросительного знака, заголовок СопЕЁ1 гп; 


” мЕСазфом — нет значка, заголовок содержит имя исполняемого файла програм- 
МЫ. 


Набор кнопок задается в виде конструктора множества и может включать: 


" пруез — кнопка \№5 (результат, возвращаемый функцией при щелчке на этой 
кнопке — шкУуе$); 


" тЪМо — кнопка № (тгМо); 
': прок — кнопка ОК (шгоК); 


" поСапсе1 — кнопка Сапсе| (пеСапсе1); 


" пЪНе]1р — кнопка Не (после щелчка на этой кнопке окно не закрывается); 


# прАБогЕ — кнопка Абой (шхАБог®); 


! прТапоге — кнопка [9поге (пеТапоге); 


*" прА11 — кнопка АЦ (пгА11). 


В отличие от окна МеззасвевВох, раскрытие окна Меззадер1з не сопровожда- 
ется системным звуком. 
События класса ТАрр11са&1оп представлены в табл. 22.3. 


Таблица 22.3. События класса ТАррИсайоп 


ргорегеу ОпАсЕ1хаке: Возникает, когда программа получает фокус 
ТМос1тЕуЕуепЕе; ввода 

ргорегеу ОпПеас+1хуа{е: Возникает, когда программа теряет фокус 
ТМ№Мос1ЕуЕуепе; ввода 


ТЕхсере1опЕуепЕ = ргоседиге Обработчик этого события реализует 
(Зепаег: ТОБ)есе; Е: Ехсере1оп) | обработку исключительных ситуаций, 
оЕ оБ)ес*; заданную по умолчанию 

ргорег®у ОпЕхсер®1оп: 
ТЕхсер®1опЕуепс; 


Возникает при каждом обращении 
к справочной службе 


ТНе1рЕухепеЕ = #апсе1оп 
(Соттапа: Мога; Рафа: Гопа1ТпЕ; 
уаг Са11Не1р: Воо1еап): Воо1еап 
оЕ оБзес®; 

ргорегеу ОпНе]1р: ТНе1рЕхепе; 


Возникает при необходимости отобразить 
длинную часть оперативной подсказки 


’ркорег®у ОпН1п®е: ТМос1ЕуЕуепе; 


Обработчик этого события реализует 
фоновую работу (см. пояснения ниже) 


ТТа]1еЕуепеЕ = ргосе4иге (бепаег: 
ТОБ]есе; маг Попе: Воо1еап) оЁ 
ор]есе; 

ргорег®у Опта1е: 


ТТа]еЕуепе; 


продолжение 19 
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Таблица 22.3 (продолжение) 


ТМеззадеЕуепе = ргоседахе (уаг 
Мзч: ТМ$за; маг Напа1еа: 


Возникает при получении программой 
сообщения УЛп4о\з. С помощью 
Воо1еап) о оБдес*; обработчика этого события можно 
ргорегеу ОпМеззаде: обработать несколько или все сообщения до 
ТМез5адеЕхуепе; того, как их получит активная форма 


ргорегеу ОпМ1п1т12е: Возникает при свертывании программы 
ТМ№оЕ1 ЕуЕБуепе; 

ргорегеу ОпВезкоге: Возникает при восстановлении программы 
ТМ№оЕ1 ЕуЕуепЕ; после ее свертывания 

ргорегеу ОпбпомН1пе: Возникает при необходимости отобразить 
ТбромН1пЕЕхуепс; окно с оперативной подсказкой 


Событие Опта1е возникает всякий раз, когда программа обнаруживает, что ее 
очередь сообщений пуста. Обработчик этого события может незаметно для пользо- 
вателя выполнить вспомогательную работу, например, проверить орфографиче- 
скую правильность только что введенного слова или собрать и обработать статис- 
тические данные. Важно помнить, что выполняемая в обработчике работа не может 
занимать много времени, иначе программа перестанет реагировать на запросы 
пользователя. Если фоновая работа отнимает много времени, ее следует разбить 
на сравнительно небольшие фрагменты или периодически вызывать в ней метод 
Напа1еМеззасе. Обработчик в параметре Бопе сообщает о необходимости про- 
должить фоновую работу (ропе = Га1зе) или оее завершении (Ропе = Тгие). 
В первом случае программа просмотрит очередь сообщений и после ее очистки 
вернет управление обработчику Опта1е. Во втором случае программа будет ожи- 
дать поступления новых сообщений. 


СОВЕТ — Событие Опта1е введено в Ое|рЫ! для совместимости с платформой МЛ п4о\5$ 
3.х, в которой не поддерживается многопоточность. Если вы работаете с 32-раз- 
рядной версией \/1т4о\$ и вам действительно нужно проделать некоторую фо- 
новую работу, имеет смысл поручить ее выполнение отдельному потоку команд 
(см. ниже подраздел «Процессы и потоки» в разделе «Программа и Мт4о\’'з»). 


Зсгееп 


Объект $сгееп класса Т5сгееп инкапсулирует свойства и методы, упрощающие 
работу с дисплеем компьютера, в том числе сего помощью оперативно изменяется 
вид используемого программой указателя мыши. Как правило, программа уста- 
навливает указатель в виде песочных часов перед началом длинной по времени 
работы и восстанавливает заданную по умолчанию форму указателя после ее за- 
вершения. Для этого используется свойство Сигзог объекта 5сгееп: 


Зсгееп.Сагзог := сиНойгС1а$$; 
// Выполняем длительную работу: 


// Восстанавливаем форму, заданную по умолчанию: 
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бсгееп.Сагзохг := сгреЁац]1*; 


Наиболее важные свойства объекта 5сгееп перечислены в табл. 22.4. 


Таблица 22.4. Наиболее важные свойства объекта Зсгееп 


ргорегЕу Асе1уеСопего]: Содержит ссылку на элемент с фокусом ввода 
ТИ1пСопфго1; 

ргорегеу АсЕ1хуеЕогп: Содержит ссылку на окно с фокусом ввода 
ТРогм; 


ргорегЕу Согзог: ТСигзог; | Определяет текущий указатель мыши для окон 
программы 


ргорег®Еу Сигзог$ [Тпаех: Открывает доступ к одному из зарегистрированных 
Тпеедег]: НСагзог; указателей мыши по его индексу 


ргорегеу ПеЁао1ЕКЬГауоц*: | Содержит исходную раскладку клавиатуры 
НКГ; (см. пояснения ниже) 


ргорегеу БезкеорНе1ане: Содержит высоту экрана относительно высоты 
Тпседег; экрана первичного монитора 


ргорегеу ПРезкеоргеЕ: Содержит горизонтальное положение левого 
Тпседекг; верхнего угла экрана относительно такого же 
параметра экрана первичного монитора 


ргорегеу ПезкеорТор: Содержит вертикальное положение левого верхнего 
Тпседег; угла экрана относительно такого же параметра 
экрана первичного монитора 


ргорегеу ПРезкеори1аеп: Содержит ширину экрана относительно ширины 
Тпёедег; экрана первичного монитора 
ргорегеу Гопез: Т5Ег1паз; | Содержит список имен всех экранных шрифтов 


ргорегеу ГогтСопипе: Содержит общее количество показываемых на 
Тп$хедег; экране окон программы 


ргорегеУ Гогмз [Тпаех: Открывает доступ к окну программы по его индексу 
Тпбедег]: ТГогм; 


ргорегеу Не1опе: Тпеедег; | Содержит высоту экрана в пикселах 
ргорегеу Н1пеГопе: ТРГоп®; | Содержит шрифт для оперативной подсказки 


ргорегЕу ТсопГгопе: ТЕопе; | Определяет шрифт для надписи на кнопке 
свернутой программы 


ргорегхеу МепоГопе: ТГопе; | Содержит шрифт для команд меню 


ргорегеу Моп1еогСоипе: Содержит количество мониторов 
Тпбедег; 


ргорегЕу Моп1{огз [Тпаех: Открывает индексированный доступ к монитору 
Тпеедег]: ТМоп1еог; 


ргорегеу Р1хе15зРегТпсь: Содержит разрешающую способность экрана 
Тпеесдег; в пикселах на линейный дюйм 


ргорегеу М1АеП: Тпседег; Содержит ширину экрана в пикселах 


в 
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Программа с помощью АР[-функции АсЕ1уакеКеубоахгаГауоч® может из- 
менить раскладку клавиатуры. Свойство РеЁ ап] КЬ.ауой® позволяет восстано- 
вить прежнюю раскладку. Следующая программа всегда запускается с русскоязыч- 
ной раскладкой клавиатуры: 


ргодгам Рго]есЕ1; 


изе$ 
Рогм$, 
01161 10 '00161.раз' [Гогт1}, М1п9омз$; 


{$В *.гез} 


Бед1п 
1Е Збсгееп.ПеЕац1ЕКЮГауос® = 67699721 ЕБеп 
АСсЕ1УафекКеуроагГауоц® (НКЪ МЕХТ, КЬЕ_ВЕОВОЕВК); 
Арр11сае1оп.Сгеа%еГогц (ТГогм1, КГогм1); 
Арр11сае1оп.Вип; 
Асс1уакеКеуроагАГауоц® (5сгееп.ПБеЁац1*КОГауоч®, КЬЕ_ВЕОВПЕВ); 
епа. 


При работе под управлением У/Лш4о\з 2000/ХР программа может работать од- 
новременно с множеством мониторов, которые в совокупности образуют первич- 
ный монитор, составленный из остальных слева направо и сверху вниз. Ряд свойств 
РезксорхххХ определяют положение и размеры текущего монитора в координа- 
тах первичного. Если программа работает с единственным монитором, значения 
этих свойств и свойств ХХХ (Нелапе, ЪеЕс, Тор, И1аей) совпадают. Свойство 
Моп1 с огСоцпЕ содержит общее количество обслуживаемых мониторов; с по- 
мощью свойства Моп1 $ огз можно указать конкретный монитор в рамках пер- 
ВИЧНоГО. 

Свойство КопЕз$ содержит список всех зарегистрированных в системе экран- 
ных шрифтов. Этот список можно связать с раскрывающимся списком, чтобы 
пользователь мог выбрать нужный шрифт: 


СотроВох1 .ТЕем$.Аз$1ап (бсгееп.ЕГопе$); 


С объектом 5сгееп связаны два события: 


ходе фокуса ввода от одной формы к другой. 


Рищег 


Объект Рг1пеег автоматически создается, если в программе указана ссылка на 
модуль Рг1пеегс. Этот объект предоставляет программисту все необходимое для 
того, чтобы заставить программу выводить данные на один из подключенных к ком- 
пьютеру принтеров. 
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Вывод на принтер в \/!т4о\$ ничем не отличается от вывода на экран: в распо- 
ряжение программиста предоставляется свойство Сапуаз объекта Рих1пкех, со- 
держащее набор графических инструментов и методы, свойственные классу 
ТСапуаз (подробнее см. раздел «Графический инструментарий» в главе 13). Раз- 
мер листа бумаги в пикселах принтера определяют свойства Не1ап* и 1 АЕ, а на- 
бор принтерных шрифтов — свойство Еопез. 

Свойства объекта Рг1пеег перечислены в табл. 22.5. 


Таблица 22.5. Свойства объекта Рищег 


Свойство 


Содержит значение Тгце, если выполнение 
предыдущего задания на печать было досрочно 
прекращено 


ргорегЕу Арогтеа: Воо1еап; 


Канва принтера — основной инструмент 
создания изображения на листе бумаги 


ргорегеу Сапуаз: ТСапуаз; 


Содержит текущие параметры драйвера 
принтера: рсСор1е$ — может печататься 
несколько копий документа; рсОг1епЕа*1оп — 
драйвер поддерживаст разную ориентацию 
листа бумаги; рсСо11а&1оп — документ 
печатается в подбор по экземплярам 


Буре ТРг1пеегСарар111еу = 
(рсСор1ез, рсОг1лепфае1олп, 
рсСо11а®*1оп); 
ТРг1пЕегСарар111%1е5 = зеё 
оЕ ТРг1псегСарарю111%у; 
ргорегеу Сарар111%1е5$: 
ТРг1пеегСарар111%1е$; 


Указывает требуемос количество копий 
документа 


ргорег®у Сор1ез: Тпфедег; 


Содержит список всех доступных принтеру 
нрифтов 


ргорег®у ГопЕз: Т5ег1па$; 


ТРг1псегОглепсае1оп = Определяст ориеитацию листа бумаги: 
(роРогега1е, роЁГапазсаре); роРогсга1* — вертикальная; роГапазсаре — 
ргорег®у Ог1епфаЕ1оп: горизонтальная 

ТРу1пеегОг1епта® 101; 


Содержит высоту листа бумаги в пикселах 
принтера 


ргорегеу РадеНе1аПе: 
Тпседег; 


ргорег®&у Рааемопрег: Содержит номер печатаемой страницы 
Тофесег; документа (начинается с 1) 


ргорегеЕу Радейм1АеП: Тпеедег; 


ргорегеу Рг1пеегТпаех: Содержит индекс приитера, назначенного 
Тпеедег; принтером по умолчанию в списке РИщег$ окна 
параметров печати 


ргорегеу Рг1пфегз: Т5ег1паз; | Содержит список всех доступных принтеров 


ргорегЕу Рг1пе1па: вВоо1еап; 


Содержит ширину листа бумаги в пикселах 
принтера 


Содержит значение Тгие, ссли приитер занят 
печатью документа 


ргорег®у Т1(1е: 5%гапда; Содержит имя задания на печать 
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Методы объекта Рг1п+ег перечислены в табл. 22.6. 


Таблица 22.6. Методы объекта Рищег 


Метод [Описание 
ргосеаиге Арбогс; Досрочно прекращает печать документа 


ргосе4аге Вед1пПос; Начинает печать документа 
ргоседоге ЕпаПос; Завершает печать документа 
ргоседиге МемРаде; Начинает печать новой страницы документа 


Существует множество способов печати текста на принтере. Прежде всего сле- 
дует упомянуть о глобальной процедуре Азз1апРгп (она определена в модуле 
Рие1пфегз), позволяющей использовать принтер как текстовый файл и печатать 
текстовые строки с помощью процедуры Мг1еГп. В листинге 22.2 приведен пол- 
ный текст модуля, на форме которого расположено многострочное текстовое поле 
Мепо] и 4 кнопки: для выбора текстового файла и ввода его содержимого в поле, 
для выбора нужного шрифта отображения/печати документа, для инициирования 
процесса печати и для завершения работы программы (проект СВар_22\Рип+ оЁ Тех 
(Аз$1дпРгп)\РипЕТехЕ.арг). 


Листинг 22.2. Печать текста с помощью процедуры АззапРгпт 


1111% 0Оп1Е1; 
1п6егЕасе 


и5е$ 
И1паом$, Меззадез, 5у$0%11$, С1аз5е$, СгарН1с5$, Сопего1$, 
Рогтз, П0О1а1оа$, 56аСег15$, Ваееоп$; 


фуре 
ТЕоги1 = С1а$$ (ТРГогп) 
Мепо1: ТМемо; 
Воееоп1: ТВоаееоп; 
Ви еоп2: ТВаекоп; 
Ореп01а1о91: ТОрепр1а1оч; 
В16В&п1: ТВ1ЕВеп; 
Воееоп3;: ТВоаебоп; 
Гоп*01а1091: ТРоп®О)1а1оч; 
ргосеаоге Вое6оп1С11сК (бепаег: ТОБ)ес®); 
ргоседоаге Вое6оп2С11ск (беп4ег: ТОБ)ес®); 
ргоседиге Воекоп3С11скК (Зепаег: ТОБ)ес®); 
рг1уаее 
{ Ре1уаЕе аес]агаЕ1оп$ } 
рУчЬ11с 
{ РчБ11с аес]1агаЕтоп$ } 
епа; 
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уаг 
Еогм]: ТГогп1; 


1пр1етепфа®1оп 
изез Ру1пеегз$; // Эта ссылка обязательна! 
{$В *.ОЕМ} 


ргосеааге ТГогп1.Вое6оп1С11сКк (бепаег: ТОБ)ес®); 
// Выбор файла с текстом и его загрузка в текстовое поле 
Бедап 
1ЁЕ Орепр1а1о0о91.Ехесасе фВеп 
Мето1 .Т1пе$.ГоааЕгомЕ11е (Орепр1а1091.Е11еМате) 
епа; 


ргосеаиге ТГогп1.Ваееоп3С11сКк (бепаег: ТОрЗес®); 
// Выбор шрифта и связывание его с текстовым полем 
Бед1п 
1Е РГопе01а1о91.Ехесаве ЕБеп 
Мемо1.Еопе := РГоп®О1а1оа1.Еоп®е 
епа; 


ргосеаиге ТГогм1.Вие$оп2С11скК (бепаег: ТОБЗес®); 
// Печать содержимого текстового поля как вывод 
// в текстовый файл 
уах 

Ргп: ТехкЕ11]е; 

К: Тпседег; 


Без п 
Азз1апРгп (Ргп); // Переназначаем вывод с файла на принтер 
Кемг1(е (Ргп); // Готовим принтер к печати 


// (аналог Вед1прос) 
Для печати используем такой же шрифт, как и для показа 
в текстовом поле: } 


— 


Рхзпфег.Сапуа$.ЕГопе := Мемо1.Еопе; 
// Цикл печати: 

Бог К := 0 Фо Мепто1.Т1пе$.Сосп®-1 а© 
Иг1ееГп (Рхп, Мемо]1.Ъ1пез$[Кк]); 
С1о5еЕ11е (Ргп)}; // Аналог Епарос 
епа; 
епа. 


Такой способ печати — самый примитивный. С его помощью невозможно вы- 
вести линии, разделяющие колонки или строки, трудно форматировать текст, встав- 
лять заголовки, номера страниц ит. п. 
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Значительно более гибкие средства обеспечивает свойство Рг1пеег.Сапуаз. 
В листинге 22.3 показано, как с его помощью можно напечатать текст, содержа- 
щийся в поле Мепо1 (проект СПар_22\РипЕ о{ Тех(Сапуа$)\РипТехе.арг). 


Листинг 22.3. Печать текста с помощью свойства Рищег.Сапуа$ 


ргосеаиге ТГогп1.ВасКоп2С11сК (бепаег: ТОБ)ес®); 
// Печать содержимого поля с помощью свойства 
РглпЕег. Сапуа$ 
уаг 
у, ау,х,к: Тпседег; 
5: 5Егапа; 
Бед1п 
1Е Мето1.11пе$.СоспЕ=0 Бел Ех1(; 
5сгееп.Сагзог := сгНоцгС1а$$; 
м1 Рг1лпсег ао 
Бед1п 
Веач1прПос; 
\м1ЕР Сапуаз ао 
Бед1п 
РопЕ := Мемо1.ЕГопе; 
ЧУ := ТехеНелаве('1'); // Определяем высоту строки 
У := З*ау; // Отступ от верхнего края листа 
Х := Радемлаеь аАзу 15; // Отступ от левого края 
Еог К := 0 во Мемо1.1т1пе$.Сооп®е-1 ао 
Бед1п 
// Выводим очередную строку 
ТехЕОйе (Хх, У,Мепо1.Гзпез[к]); 
// Смещаемся на следующую строку листа 
1пс (У, ау); 
1Е РачеНе1лав*-у<2*ау &Веп // Нижний край листа? 
Беда п // Да 
МемРаде; // Переход на новый лист 
// Выводим номер страницы посередине листа: 
5 := '- '+ТоЕТобег (Рааематрег)+' -'; 
ТехЕОце ( (Рачей1ап-Техе\лаен ($)) ау 2, ау, 5); 
// и отчеркиваем его от текста: 
МоуеТо (Х, З*ау ах 2); 
Т.1пеТо (Разей1аер-х, 9*аАу азу 4); 
// Ордината первой строки: 
У := З*Аау 
еп; // 1Е РаденеларЕ-У<2*ау 
еп; // Еог К := О Ео Мето1.Т1пез$.СоипЕ-1 ао 
епЯ; // м1ЕР Сапуаз ао 
Епарос; 
епЯ; // итЕБВ РглоЕег ао 
Зсгееп.Сигзог := сгреЁЕао1{; 
епа; 
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Как видим, прямое обращение к графическим инструментам свойства Сапуаз 
требует от программиста значительно больших усилий, но зато предоставляет ему 
полный контроль над печатным изображением. 

Наконец, очень хороших результатов можно достичь, используя специализи- 
рованные средства просмотра/печати документов, такие как текстовый процессор 
МУ \/ога. 

Печать изображений может показаться очень сложным делом, однако свойство 
Рг1псег.Сапуаз содержит метод, который легко справляется с этой задачей: 


ргосеачге 5ЕгеесИОгам (сопз® Кесё: ТКесе; СгарН1с: 
ТСгарр1с }; 


При обращении к этому методу первым параметром указывается прямоуголь- 
ная область, отводимая на поверхности листа для распечатки изображения, вто- 
рым — объект класса Тбгар|1 с, в котором хранится изображение. Например: 


мТтЕВ Ри1лпеег ао 
Бедап 
Ведтпрос; 
Сапуа$ .ЗЕгеесЬОгам (Сапуа$.С11рВеск, 
Тпаде1 .Р1сбаге.Скарй1с); 
ЕпАрос; 
епа; 


Не следует забывать также о том, что любая форма, являющаяся потомком ба- 
зового класса ТСазбошРоги, получает метод Рг1 п, с помощью которого на прин- 
тере печатается клиентская часть формы (6ез заголовка и рамки). 


СИрБоага 


В \/114о\$ широко используется буфер обмена (сйрбоата). Если в программе Оеры 
сослаться на модуль С11рьга, для нее становится доступным автоматически со- 
зданный объект С11рБоага, инкапсулирующий свойства (табл. 22.7) и методы 
(табл. 22.8) для работы с буфером обмена. 


Таблица 22.7. Свойства объекта С!рБоага 


Свойство Готивание 
ргорегеу АзТехе: 5%г1па; Рассматривает содержимое буфера как 

текстовую строку неограниченной длины 
ргорег®&у ГогтаеСойпе: Возвращает общее количество форматов 
Тпеесаег; хранящихся в буфере данных 


ргорег®еу Еогмаф$ [Тпаех: 
Тпседег]: Мога; 


Открывает доступ к данным по формату, 
указанному индексом Тпаех 


Таблица 22.8. Методы объекта СирБоага 


ргоседиге Азз1ап (боцгсе: Копирует изображение в буфер обмена 
ТРег$156еп®); 


Очищает буфер обмена 


госеацге С1еаг; 
Р - продолжение 
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Таблица 22.8 (продолжение) 


ргосеаиге С1о5е; 


Еапсе1оп СесТехеВаЕ (ВаЕЕег: 
РСПаг; ВцЕ512е: Тпеедекг): 
Треедег; 


Уменьшает на 1 счетчик блокировок буфера 
обмена и закрывает его, если счетчик содержит 0 


Копирует из буфера обмена не более ВыЕ$127е 
символов в текстовый буфер ВыЕЕег 

и возвращает действительное количество 
скопированных символов 


рхоседиге НазГогта+х (Гогта®: | Возвращает значение Тгое, если буфер обмена 
Иога) : Воо1еап; содержит дапные в формате Гогта* 


Увеличивает на 1 счетчик блокировок буфера 
обмена и открывает его, если он еще не был 
открыт 


ргосе4иге ЗееТехеВоЕ (ВиЕЁег: | Помещает в буфер обмена содержимое 
РСПаг); текстового буфера ВыЕЕег 


Большая часть компонентов, предназначенных для хранения текста и/или изоб- 
ражений, имеют собственные методы для работы с буфером обмена. Например, 
текстовые поля ТЕЗ1&, ТМепо, ТВ1свЕа1& имеют методы СоруТоС11рБоага 
(Копировать в буфер), СаеТоСс11рЬоака (Вырезать и поместить в буфер), Разее- 
РгомС11рЬоакга (Вставить из буфера); компонент ТТмаде имеет свойство 
Р1сгЕаге класса ТР1сеаге, которое инкапсулирует методы ГоааЕгомС11р- 
роагаГогма*, ЗауеТоС11рБоагаГогта® и Веч15$егС11рроагаГогта® — с по- 
мощью этих методов компонент обменивается с буфером изображениями опреде- 
ленного формата и может зарегистрировать в нем новый формат изображения. Тем 
не менее эти и другие компоненты для работы с буфером обмена могут использо- 
вать свойство АзТех* объекта С11рБоаг@аиего методы Аз$1дп, СееТех&ВаЕЕек, 
бее-ТехеВоЕЕекг. Например, чтобы поместить в буфер обмена изображение, хра- 
нящееся в объекте Тпаде1, можно обратиться к методу Аз51апт буфера: 


ргосеаиге Ореп; 


С11рБоага.Ореп; 
С11рроага.Аз$19дп (Ттаде1.Р1сбоге); 
С11рроагка.С1озе; 


А для копирования изображения из буфера обмена можно обратиться к методу 
Р1ссоаге.Азз1оап компонента Тмаде1: 


С11рроага.Ореп; 
Тпаде1 .Р1сфоге.Аз$$1ап (С11рроага); 
С11ррЬоагка.С1о$е; 


Метка не имеет средств работы с буфером обмена, но программа может прочи- 
тать в нее текст из буфера: 


С]11рБоага.Ореп; 
Таре11.СарЕ1оп := С11рБоага.АзТех%; 
С11рБоага.С1о$е; 


Можно также поместить в буфер обмена содержимое свойства Сар®1оп 
метки: 
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С11рЬБоагхА.Ореп; 
С11рЬоахаА.АзТехе := Гаре11.Сар&1оп; 
С11рБоага.С1о$е; 


Настройка программы 


Удобным средством хранения индивидуальных параметров программы являются 
широко используемые в \/т4о\з$ 3.х файлы инициализации (файлы с расшире- 
нием МГ). Для 32-разрядных версий \/1п4о\з индивидуальная настройка программ 
чаще всего реализуется с помощью системного реестра. В этом разделе рассматри- 
ваются оба способа, так как даже если вы работаете с 32-разрядной версией У т- 
Чо\/з, перенос программ на другие компьютеры и их настройку проще реализовать 
с помощью файлов инициализации. 


Файлы инициализации 


Файлы инициализации в ОерЫ связаны с объектами класса ТТп1Е11е. Эти объ- 
екты не являются глобальными и создаются программно по мере надобности. 
С каждой программой можно связать сколько угодно файлов инициализации. 

Физически файл инициализации представляет собой обычный текстовый файл, 
который сохраняется либо в каталоге запуска программы (локальный файл иници- 
ализации), либо в каталоге запуска \УЛш4о\$ (глобальный файл инициализации). 
Файл содержит ряд секций, каждая из которых имеет заголовок и следующие за 
ним параметры. Заголовок — это произвольный английский текст, заключенный 
в квадратные скобки. Каждый параметр представлен строкой вида: 


имя _параметра=значение 
Пример: 
[тосае1оп] 


РафтаВазе=С : \МУВАЗЕ 
СгарН1с5$=С: \ВТТМАР 


В этом примере в секции Госа&1оп файла инициализации представлены два 
параметра с именами РафаВазе и СкарН1сз. Объекты класса ТТп1Е1 1е предо- 
ставляют удобные средства чтения/записи параметров по именам параметров и сек- 
ЦИЙ. 

В объекте имеется единственное свойство Г11еМаме: $%г1п9а, содержащее 
имя файла инициализации с возможным путем поиска. 

Методы класса ТТп1Е11е перечислены в табл. 22.9. 


Таблица 22.9. Методы класса Тт!Ейе 


сопзЕгасвог Сгеа*е (сопз® Создает объект-файл с именем 
Е1]1еМапе $%г1п9а); Е11еМапе. Это имя автоматически 


переносится в свойство Е11еМаме 
объекта. Если физический файл 
существовал, оп открывается, ссли нет — 
создается 


продолжение + 
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Таблица 22.9 (продолжение) 


[Метод ани 


ргосеаиге Пе1ехеКеу (сопз® Удаляет значение параметра Таепе 
5есЕ1оп, ТаепЕе: $56х1па); в секции бесетоп. Если указана 
несуществующая секция или имя 
несуществующего параметра, метод 
создаст сскцию и/или установит в ней 
параметр с пустым значением 


Удаляет секцию со всеми сс 
параметрами. Если сскции не 
существуст, возникает исключительная 
ситуация 


ргосе4иге ЕгазебесЕ1оп (соп$® 
ЗесЕ1оп: ЗЕгапа); 


Возвращаст значение логического 
параметра Т4епЕ в сскции ЗесЕ1оп 
(см. ниже первое примечанис) 


Еопсе1оп ВеаВоо1 (сопзе Зесё1оп, 
Таепе: $6г1па; ПеЁао16: Воо1еап): 
Воо1еап; 


Еапсезоп КеаРафе (соп$® Зесе1оп, 
Таепе: $%г1па; ПОеЁЕаш1%: 
ТрафеТ1пе): ТрафеТ1ме; 


Возвращаст значение парамстра Т4епЕ 
типа даты в сскции бесЕ1 оп (см. ниже 
первое примечание) 


\1г61а1; 


Возвращаст значение параметра Т4епе 
типа даты-времени в сскции бесЕ1оп 
(см. ниже первое примечание) 


Еапсе1оп КеааПРакеТт1ме (соп$® 
бесЕ1оп, Таеп®е: $%&г1па; ПеЁЕао1%: 
ТРафхеТ1ме) : ТрафсеТ1ме; у1г®за1; 


Возвращаст значение параметра Т4епе 
вещественного типа в секции Зесе1оп 
(см. ниже первое примечание) 


ЕопсЕ1оп ВКеааЕ]1оае (сопз$® Зесе1оп, 
Таепе: $%г1па9; ПеЕац]1%: ПоцЪ1е): 
РопЪ1е; у1г&аа1; 


Ечпсе1оп КеаЯТпфедег (сопз® 
бесЕе1оп, Таепе: $%&:1п9; ПШеЕао1%: 
ГопаТп®): БГопаТпЕ; 


Возвращаст значение целого параметра 
Таеп® в секции бесЕ1ол (см. ниже 
первое примечание) 


Помещасет в список ЗЕг1па$ имена всех 
Параметров из секции Зесё1оп 


ргосеасге Кеабесе1оп (соп$® 
бесе1оп: $6к1па; ЗЕг1па5: 
Т5Ег1па5); 


Помещает в список $ г1па$ имена всех 
секций файла 


ргосеаиге Кеаабесе1оп$ (5Ег1па$: 
Т56г1па$5); 


Помещает в список 5Ег1паз имена всех 
значений из секции бесе1оп 


ргосеаиге Кеаабесе1опУа11е$ (соп$® 
бесетоп: ЗЕгапа; 5Ег1п4а5: 
Т5$Ег1па$); 


Возвращаст значение строкового 
параметра Таеп& в секции Зесё1оп 
(см. пиже первое примечание) 


Еапс®&1оп КеаабЕг1па (сопз® Зесе1оп, 
Таепе, ПеЁЕац1{: 56гх14па): ЗЕгапа; 


Возвращает значение параметра ТаепЕ 
типа времени в секции Зесе1оп 
(см. ниже первос примечание) 


ЕапсЕ1оп ВеаТ1ще (соп$® бесЕ1оп, 
Таепе: 5&г21па; ПеЕац1%: 
ТРафсеТ1те): ТрафеТзпе; 


\1г6па1; 


Возвращает значение Тгкае, ссли секция 
бесетоп существует 


ЕапсЕ1оп Зесе1опЕх1$е5$ (соп$е 
бесЕ1оп: ЗЕгапа): Воо1еап; 


Возвращает значение Тгое, если 
у параметра Таеп® секции 5есе1оп 
существует значение 


Еипсе1оп Уа1пеЕх1$65 (соп5® 
бесЕ1оп, Таепе: $&г1па): Воо1еап; 


ргосе4иге Мг1{еВоо1 (соп$® ЗесЕе1оп, 
Таепе: $&г1па; Уа1ае: Воо1еап); 


ргосеаиге Мг1{ерафе (сопз® бесе1оп, 
Таепе: Зг1па; Уа10е: ТрафеТ1те); 
№м1гца]1; 


ргосеаиге Мг1еерасеТ1ме (сопз$®е 
ЗесЕ1оп, Таепе: $6г1па; Уа]1ае: 
ТРафеТ1те); у1г®ча1; 


ргосеачге Мг1кеЕ1оа% (соп$® 
бесе1оп, Таепе: 5&х1па; Уа1ае: 
РооБ]1е); \м1гх%$иа1; 


ргосеаиге Мг1$еТпфесдег (соп$Е 
ЗесЕ1оп, Таепе: $1149; Уа]1ае: 
ТопаТп®); 


ргосеаиге Мг1еебег1па (соп$® 
бесЕ1оп, Таепе, У\Уа1ие: $&х1п9а); 


ргосеаиге Мг1ееТ1ме (сопз®е Зесе1оп, 
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Записывает в параметр Тдеп® секции 
бесЕ1оп логическое значение Уа11е 
(см. ниже второе примечание) 


Записывает в параметр Т4еп® секции 
Зес®1оп значение Уа1пе типа даты 
(см. ниже второе примечание) 


Записывает в Параметр Таеп® секции 
ЗесЕтоп значение Уа1 ое типа даты- 
времени (см. ниже второе примечание) 


Записывает в параметр Т4еп®& секции 
Зесе1оп вещественное значение Уа1пе 
(см. ниже второе примечание) 


Записывает в параметр Таеп® секции 
ЗесЕтоп целое значение Уа]1 пе 


Записывает в параметр Таепе секции 
Зесе1оп строковое значение Уа1пе 


Записывает в парамстр Т4еп® секции 
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Таепе: $З%&г1па; Уа]иае: ТрафеТ1пме); 
У1г6ца1; 


бесе1оп значение Уа1 ще типа времени 
(см. ниже второе примечание) 


ПРИМЕЧАНИЕ В функциях ВеааХхХХХ (КеаЯВоо1, ВеааПафжа и т. п.) используется 
параметр Рег ац1{ того же типа, что и тип возвращаемого результата. 
Если функция не найдет указанной секции или нужного параметра, 
а также ссли значение параметра окажется не ожидаемого типа, она воз- 


вращает значение РеЁац1%. 


ПРИМЕЧАНИЕ Если при обращении к процедуре Иг1 + ехххх (Иг1 сеВоо1,Иг1серафа 


ит. п.) не существует указанной секции и/или параметра, они будут 
созданы. 


В листинге 22.4 представлен модуль, иллюстрирующий приемы работы с фай- 
лом инициализации, а на рис. 22.1 показано создаваемое им окно (проект СВар_22\ 
п1РЦе\т1ЕЦе.арг). 


Листинг 22.4. Иллюстрация работы с файлом инициализации 


01 0п11; 


1п6ег6асе 

и5е$ 
И1паомз, Меззаадез$, $у$0Е11$, С1аззез$, СгарПН1с5$, Сопёго1$, 
Рогиз, 0О1а10о45, 56аСек1$, 5р1п; 
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Рис. 22.1. Иллюстрация работы с файлом инициализации 


Суре 
ТРГоги1 = ©с1аз$$ (ТГогп) 

Таре11: Табе]; 
Таре12: ТГаре]1; 
Гаре13: ТЬаБе1; 
Таре14: ТГаре1; 
Таре15: ТЪабе1; 
еабесЕ1оп: ТЕа1%; 
еЯРагап1: ТЕа1ф; 
еЧРагапм2: ТЕа1%; 
сЬРагам4: ТСпескКВох; 
Ваебоп1: ТВабфоп; 
Ваебоп2: ТВое®оп; 
зеРагам3: Т5р1пЕа1е; 
ргосе4иге ВоЕбоп1С11сКк (бепаег: ТОБ)ес®); 
ргоседиге Воееоп2С11сК(бепаег: ТОБ)ес®); 
ргосеаицге еЧРагат2Ех1{ (бепаег: ТОБ]есе); 


ргауаее 
{ Рктуаве аес]1агаё1оп$ } 
рУЬ11с 
{ РиБ]1с аес]агаЕтоп$ } 
епа; 
уаг 


Рогм1: ТЕогм1; 
1пр1ептепва®1оп 


ц5е$ 1п1Г11ез; // Обязательная ссылка 
// для доступа к типу Т1Тлп1Е11е 
соп5Е 
бесЕ1опМаме = '1п1%5ес®1оп'!; // Название секции по 
// умолчанию 
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1п11Е11еМаме = 'РемоТп1.1п1'; // Имя файла инициализации 
уаг 
101: Т1п1Е11е; 


[$6 *.РЕМ} 


ргосеаачге ТГогп1.ВаеЕоп1С11сКкК (бепаег: ТОБ)ес®); 
// Создает или изменяет файл инициализации 


Бед1п 
1Е еабесЕе1оп.Техе='' &Беп 
еабесе1оп.ТехЕ := ЗесЕ1опМапе; 
Тп1 := Т1п1Е11е.Сгеасе (1п1Е11еМапе); 


101. Мг1се5ег1па (еабесе1оптп.Техе, 'Рагап1', еаРагап1.Тех®); 

Тп1.ИМг16еЕ1оае (е4Я5есе1оп.Техе, "'Рагат2', 
ЗЕгТоЕ1оае (еаРагат2.Техе))}; 

Тп1.Иг1сеТпеесдег (еабесе1оп.ТехЕ, "'Рагап3', 
зеРагам22.У\Уа]1ае); 

Тп1.Ми1ееВоо1 (еа5есЕ1оп.Техе, 'Рагап4', 
сЬРагам4 .СвескКеа); 

Тп1.Безегоу; 

епа; 


ргосеачге ТГогп1.Воеоп2С11сКк (бепаегк: ТОБ)ес®); 
// Читает параметры настройки 


Бед1п 

1Е еабесЕ1оп.Техе='' &Беп 
еа5есе1оп.ТехЕ := ЗесЕ1опМапе; 

101 := Т1п1Е11е.Сгеаке (1п1Е11еМапе); 

еЯРагап1.ТехЕ := Тп1.Веаа5Ег1па (е45бесе1оп.Техе, 
'Рагап1', "'Бе]1рЬ1'); 

еЯРагам2.Техе := ЕРЕ1оаЕТобекг (1п1.ВеааЕ1оа* (еазЗесе1оп.Техк, 
'Рагат2', 22.1415)); 

зеРагам22.\Уа1ще := 1п1.ВеаЧТпеесдек (еабес®1оп.Техф, 
'Рагам3', 100); 

сЬРагам4.Спескеяа := Тп1.Веа@аВоо1 (еа5$есе1оп.Техф, 


'Рагам4', Тгае); 
Тп1.Безегоу; 
епа; 


ргоседиге ТЕГогп1.еЧРагам2Ех1* (бепаег: ТОБ]ес®); 
// Проверяет правильность символьного представления 
// вещественного числа 
Бед1п 
ху 
ЗЕгТоЕ1оа* (е4Рагам2 .Тех®) 
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ехсерЕ 
еЯРагам2 .5е1ескА]11; 
еЧРагам2 .зЗееГосиз; 
епа 


епа. 


Отмечу, что если путь доступа к файлу инициализации не указан (как в нашем 
примере), считается, что он располагается в системном каталоге (обычно С:\\Ип4ом5). 


Системный реестр МЛпао\м/$ 


Системный реестр \Лшт4о\$ — это общедоступная база данных, хранящая инди- 
видуальную для каждого компьютера настроечную информацию, используемую 
программным обеспечением. Данные в реестре упорядочены в древовидные струк- 
туры, состоящие из узлов, которые в терминологии \/1п4о\/5 называются ключа- 
ми. Каждый ключ имеет один родительский ключ, один или несколько дочерних 
ключей и ноль или несколько пар типа имя _параметра=значение. Исключение 
представляют корневые ключи (они не имеют родителей) и дочерние ключи низше- 
го уровня (они не имеют дочерних ключей). По умолчанию несистемное программ- 
ное обеспечение регистрирует свою информацию в корневом ключе с именем 
НКЕУ СОВВЕМТ О$ЕБ. Для просмотра/коррекции системного реестра использу- 
ется утилита КЕбЕВТТ.ЕХЕ. 

Системному реестру \/1ш9о\$ соответствует объект класса ТВед1 зе гу, свой- 
ства которого представлены в табл. 22.10. 


Таблица 22.10. Свойства класса ТНедгу 


Свойство [Описание 


ргорегеу Ассезъ: Определяет уровень доступа к открытому ключу. Значение 
ТопаМога; свойства может представлять собой некоторую комбинацию 
флагов (см. ниже) 


ргорег*у Содержит текущий раскрытый ключ 
Саиггеп&Кеу: НКЕУ; 


ргорег*у Содержит путь поиска для текущего ключа 


СиггепЕРа® п: 
ЗЕг1па; 


ргорег%у Если содержит значение Тгце, ключ записывается при 
Та7уИг1 ее: выполнении процедуры С1озеКуе, в противном случае — 
Воо1еап; при любом изменении ключа 


ргорег®у Коо%Кеу: Содержит имя корневого ключа 
НКЕУ; 


Перечень флагов для свойства Ассезз: 


Е КЕУ ОЧЕВУ УАГОЕ — разрешает запрос значений дочерних ключей; 


" КЕУ ЕМОМЕВАТЕ_5ОВ_КЕУЗ — разрешает получение списка всех дочерних 
ключей; 
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—_ КЕУ МОТТЕУ — разрешает получение извещения об изменении ключа, 


реж 


ый КЕУ 5ЕТ УАБОЕ — разрешает изменение значений дочерних ключей; 


и КЕУ СВЕАТЕ 50В_КЕУ — разрешает создание дочерних ключей; 


" КЕУ СВЕАТЕ_ТТМК — разрешает создание строковой ссылки; 


* КЕУ ЕХЕСОТЕ — определяет доступ к ключу в режиме «только для чтения». 

% КЕУ АБЬ АССЕ$$ — комбинация флагов КЕУ_ВЕАР, КЕУ_МВТТЕ и КЕУ _ 
СВЕАТЕ ЬТМК; 

® КЕУ ВЕАР — комбинация флагов КЕУ ООЕВУ УАБОЕ, КЕУ _ЕМОМЕВАТЕ _ 
З0В_КЕУЗ и КЕУ МОТТЕУ, 

# КЕУ ИВТТЕ — комбинация флагов КЕУ_ЗЕТ УАЪОЕ иКЕУ СВЕАТЕ ЗОВ _КЕУ, 

Методы класса ТВед1з%гу перечислены в табл. 22.11. 


Таблица 22.11. Методы класса ТВед! ту 


Метод [Описание 
ргосеаиге С1озеКеу; Записывает информацию в ключ и закрывает его 


сопзЕгисвог Сгеа+е; Создает объект класса ТВед1 зе гу. 
Устанавливает в Воо%Кеу значение 
НКЕУ СОВВЕМТ_ ОЗЕК и в Таху\г1 ке — 
значение Тгие 


ЕипсЕ1оп СгеакеКеу (сопз& Создает ключ с именем Кеу. Если имя 
Кеу: $З&г1па): Воо1еап; начинается символом \, ключ является 
дочерним ключом корневого ключа, 
в противном случае — дочерпим ключом 
текущего ключа 


Еипсе1оп ПРе1екеКеу (соп$& Удаляет ключ Кеу и возвращает значение Тгое, 
Кеу: З6гапа): Воо]1еап; если операция прошла успешно 

ЕапсЕ1оп Ре1етеУа]1оае (сопз& В текущем узле удаляет значение параметра 
Маме: ЗЕг1па): Воо1еап; с именем Маме 


Чезекисеок Пезегоу; Удаляет объект ТВед1зЕгу 


ТВКедчрафаТуре = (гаОпКпомп, Возвращает в параметре Уа1 ще значение, 
габеглпа, гаЕхрапа5&г1пд, определяющее тип данных для параметра 
гАТпеедег, гАВ1пагу); с именем Уа1еМаме текущего ключа: 
ТВКедчПака{ТпЁо = хесога ха0пкпомп — неизвестный тип; га5$&г1па — 
ВеаПака: ТВезракаТуре; строковый тип; гЧЕхрапа5 Е г1па — значением 
Рафа512е: Тпфеаег; епа; является строка, описывающая переменную 
Еапсезоп СесрафаТпГо (соп$® окружения \/114о\5$, например "РАТН%"; 
Уа1иемаме: $5Ег1па; чаг | гаТпеевег — целочисленный тип; г@В1пагку — 
\Уа1ае: ТВедрака1ТтЕо): двоичный тип (набор битов) 

Воо]еап; 


Еипсе1оп Сеерафа512е (сопзЕ Возвращает длину значения параметра с именем 
Уа]пемаме: $%&г1п49): Тпбедег; | Уа1аеМапе в текущем узле 


ТВезракаТуре = (гаОпкпомп, Возвращает значение, определяющее 
га5Ег1па, гаЕхрапабег1пса, тип данных для параметра с именем 


гАаТпеедег, гаВ1пагу); \Уа1иеМмаме текущего ключа (см. метод 
продолжение :% 
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Таблица 22.11 (продолжение) 


Еопс®е1оп СесПакаТуре (сопз& 
Уа1оемаме: $3%гх11п9): 
ТВеарафаТуре; 


ТКедКеуТпЕо = гесога 
МитборКеу$: Тпбедег; 
МахбирКеуфепт: Тпфедег; 
М№омУа1ие$: Тпфесдег; 
МахУ\Уа]1оеЬеп: Тлъедег; 
МахраЕаЪеп: Тпфедег; 
Г11еТ1пе: ТЕ11еТ1те; епа; 
Еипсе1оп СесКеуТпЕо (уаг 
Уа1ие: ТКедКеуТтЕо): 
Воо1еап; 


ргосеаиге Се<КеуМапез$ 
(ЗЕг1паз: Т5Ег1па5); 
ргосеацге Се’\/а]1оеМамез$ 
(ЗЕх1па5: Т56г1па5); 
Еипс®е1оп НазбаЬКеуз: 
Воо1еап; 


Еапсе1оп КеуЕх15%$ (сопз® 
Кеу: $%&г1па): Воо1]еап; 


Еипсе1оп Гоа@Кеу (сопз®е Кеу, 
Г1]еМаме: 56г1па): Воо1еап; 


ргосе4иге МотекКеу (сопз®е 
О1АМаме, МемМаме: ЗЕг1па; 
Ре1есе: Воо1еап); 


Еаипсе1оп ОрепКеу (сопзе Кеу: 


5&:1п9; СапСгеабе: Воо1еап): 


Воо1еап; 


ЕипсЕ1оп ОрепКеуКеаАОп1у 
(сопзЕ Кеу: 5%&г1п4а): 
Воо1еап; 


Гипсё1оп КеаВ1пагуПрака 
(сопзе Маме: 56г1па; хак 
ВиЕЕег; ВоЕ$12е: Тпседег): 
Трседекг; 


ГапсЕ1топ Веа@аХХХХ (сопзЕ 
Маме: $6г1па): УУУУ; 


СееракаТтЁо) 


Возвращает в параметре Уа1пе информацию 

о текущем узле: №ом5арКеуз — количество 
дочерних узлов; Мах5оюКеуфеп — 
максимальная длина имени дочернего узла; 
МипУа1щез — количество параметров; 
МахУа1цеГеп — максимальная длина имени 
параметра; МахрРафаЪеп — максимальная длина 
параметра; Г11еТ1те — время последнего 
обновления ключа 


Возвращает в параметре $Ех1паз имена всех 
дочерних ключей 


Возвращает в параметре 5&г1паз имена всех 
параметров 


Возвращает значение Тгзе, если ключ имеет 
дочерние КЛЮЧИ 


Возвращает значение Ткие, если существует 
ключ с именем Кеу 


Создает ключ с именем Кеу как дочерний ключ 
корневого ключа и загружает из файла 

Е1 1еМапе его содержимое (параметры и все 
дочерние ключи) 


Копирует или перемещает ключ О1АМаме 
в ключ МемМапме: Ре1ефе — содержит значение 
Тгое для перемещения 


Открывает существующий или создаст 

и открывает новый ключ с именем Кеу 

и возвращает значение Тгие, если операция 
прошла успешно. Параметр СапСгеаее 
разрешает/запрещает создание ключа, ссли он 
не существует 


Открываст ключ в режиме «только для чтения» 


Копирует не более ВоЕ$12е байтов 

в переменную ВоЕЕег из параметра с именем 
Маме. Возвращает количество действительно 
скопированных байтов 


Возвращает значение параметра типа УУУУ 
с именем Мате 


РГипсе1оп ВКед15егуСоппесе 
(сопзЕ ОМСМаме: $&гх1п94а): 
Воо1еап; 


Ргосеа4иге Кепапе\Уа]1е 
(сопзЕ О1ЧМаме, МемМаме: 
ЗЕг1па); 


Гипсе1оп Кер1асеКеу (сопз® 
Кеу, Е11еМапе, 
ВаскКОрЕ11еМате: 56г1па): 
Воо1еап; 


Гипсе1оп КезбогеКеу 
(сопзЕ Кеу, Е11еМапте: 
5&г1па): Воо1еап; 


Гипсё1оп бауеКеу (сопз® 
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Разрешает удаленному компьютеру ОМСМаме 
доступ к системному реестру вашего 
компьютера 


Переименовывает параметр О1ЯМаме 


Заменяет содержимое ключа Кеу содержимым 
файла Е11еМапе. ВаскОрЕ1 1еМаме — имя 
файла, в котором будет сохраняться прежнее 
содержимое ключа 


Считывает содержимое ключа Кеу из файла 
Е11еМапе 


Сохраняет содержимое ключа Кеу в файле 
ЕГ11еМаще 


Кеу, Е11еМапе: $%х1п9а): 
Воо]1еап; 


ЕапсЕ1оп \Уа1аеЕх15%$ (сопзЕ 
Мате: ЗЕхг1па): Воо1еап; 


Возвращает значение Тгое, если параметр 
с именем Маме имеет значение 


Копирует не более ВыЕ$12е байтов из буфера 
ВаЕЕег в параметр с именем Маме 


Записывает в параметр с именем Маме данные 
типа УУУУ 


Системный реестр — удобное место для размещения некоторых «секретных» 
данных, которые не должны быть на виду у пользователей. Например, при первом 
запуске пробных версий программ в него помещается дата запуска или максималь- 
ное количество запусков. Перед очередным прогоном эта информация проверяет- 
ся, в результате после некоторого количества запусков или по истечении установ- 
ленного времени пробная версия программы перестает нормально работать. 

В листинге 22.5 представлен файл проекта, в котором пробная версия програм- 
мы может запускаться не более 5 раз (см. проект СВар_22\Вед1$1гу\ТПа[.арг). 


Ргоседиге Иг1сеВ1пагуПака 
(сопзё Маме: 56.119; уаг 
ВоЕЕег; ВоЕ512е: Тпфедег); 


Ргосеаиге ИМг1ееххХхХХ (сопзе 
Маме: $%г1п49; Уа1ое: УУУУ); 


Листинг 22.5. Создание пробной версии программы 


ргодгам Тг1а1; 


а5е5 
Рогм$, 
01161 1м '0п161.раз' {Гогт1}, 
Вед1зе гу, О1а1оаз; // Для ТВед1$5Егу и $ВоиМеззаде 


{$К *.ВЕЗ} 
уаг 
Вед: ТВКед15егу; 
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№: ТпЕедег; 
Бед1п 
Вед := ТВед1зегу.Сгеа*е; 
м1ЕВ Вед ао 
Бед1п 
ОрепКеу ('зоЕсмаге', Тгие); 
ОрепкКеу ('Тг1а1Ргоа', Тгае); 
3Е Уа1леЕх15%$ ('МахВип') еВеп // Первый запуск? 
Бед1п // - Нет 
М := ВеааТпеесщег ('МахВоп')}-1; 
1Е №>=0 еп 
Иг1сеТпеедег ( 'МахКоп', М) 


еп е1зе Бедзп // - Да, первый запуск 
М := 5; 
Мг1Еетпеедегк ('МахВип', М) 
епа; 
Егее 
епа; 
1Е №>0 ЕБеп 
Бед1п 
Арр11саф1оп.СгеафеГогп (ТГКогм1, Гогм1); 
Гоги1.Гаре12.СарЕ1оп := ТпЕТобекг (№-1); 
Арр11сае1оп.Вип; 
епа е1зе 


ЗпоиМе$засе ('Исчерпано максимальное количество 
запусков'+' пробной версии программы’) 
епа. 


Небольшой комментарий. Двумя обращениями к функции ТВед1зекгу. 
ОрепКеу создается и/или открывается узел НКЕУ СОВВЕМТ_ОЗЕВ\боЕЕмакге\ 
Тг1а1Ркод системного реестра. Функция ТВез1зегу.Уа1аеЕх1 $5 возвраща- 
ет значение Тгое, если в этом узле есть параметр с именем МахКол и для него 
определено значение. При первом запуске программы это не так, поэтому проце- 
дурой Иг1$еТпеедег создается параметр и для него указывается начальное зна- 
чение 5 (максимальное количество прогонов программы). При каждом следующем 
запуске этот параметр уменьшается на 1, и в момент, когда он становится равным 
нулю, программа блокирует создание и вызов главного окна. 

Ре|рЬ! создает надстройку над классом ТВеа1 зе гу для того, чтобы манипуля- 
ция с системным реестром У//т4о\з была подобна манипуляциям с файлами ини- 
циализации. Эта надстройка инкапсулируется в классе ТВезТп1Е1]е. 

Свойства класса ТВезТп1Е11е аналогичны свойствам класса ТВед1з+екгу за 
исключением дополнительного свойства ЕГ11еМаме: $%х1па, хранящего имя 
ключа, для которого будут осуществляться нужные действия. Эти действия реа- 
лизуются методами класса, перечисленными в табл. 22.12. 
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Таблица 22.12. Методы класса ТАедш! йе 


Метод 


сопзЕгасвог Сгеа+е (сопз& ЕГ11еМаме: 
ЗЕг1па); 


Создает объект класса 
ТВед1п1Е11е и связывает его 
с ключом Е1]1еМаме 


ргоседиге Пе1ефеКеу (сопз® Зесе1оп, Удаляет параметр с именем 
Таепе: $%г1па); Таепё в ключе Зесе1оп 


ргоседиге Егазебесе1оп (сопзе Зесе1оп: 
ЗЕг1па); 


Удаляет ключ зесет1олп со всеми 
его Параметрами и дочерними 
ключами 


Еопсе1оп КеааВоо]1 (сопз® бесЕ1оп, Таепе: 
ЗЕгапа; ПРеЁЕао1е: Воо1еап): Воо1еап; 


Возвращает значение логического 
параметра с именем Таепе 
в ключе 5есЕ1оп 


Возвращает значение 
целочисленного параметра 
с именем Таеп+ в ключе Зесё1оп 


Еипсе1оп КеааТпеедег (сопз® ЗесЕ1оп, 
ТаепЕ: $%&:21па; ПеЁРац1е: Гопа1Тпе): 
ГопаТпе; 


ргосеаиге Кеаабесе1оп (сопз® ЗесЕтоп: Возвращает в параметре 
ЗЕг1па; ЗЕг1па$: ТбЕг1па); 5Ег1па5 имена всех параметров 
ключа ЗесЕ1оп 


ргосеасге КеаЯбесе1оп$ (5%г1п9$5: Возвращает в параметре 
Т5Ег1па5); $Ег1па5 имена всех ключей, 
связанных с текущим ключом 


Возвращает в параметре $+г1п95$ 
значения всех параметров ключа 
Зесе1оп 


ргосеаиге Кеаабесе1опУа1ие$ (соп$® 
ЗесЕ1оп: З&г1па; 56г1п95: Т56г1па5$); 


Возвращает значение строкового 
параметра с именем Таепе 
в ключе ЗесЕ1оп 


Еипсе1оп Кеааб%г1па (сопз Зесетоп, 
Таеп®, ПеЁЕаз1$: $%х1п49): $З%&г1пда; 


Записывает логическое значение 
Уа11е в параметр Таепе ключа 
бесЕ1оп 


ргоседиге Мг1ееВоо1 (сопз® Зесе1оп, 
Таепе: $%:11049; \Уа1ае: Воо1еап); 


Записывает целочисленное 
значение Уа]11е в параметр 
Таепе ключа 5есе1оп 


ргоседиге Иг1ееТпеедег (сопз®е Зесе1оп, 
Таепе: З%&гапа; Уа1оае: ГопаТпе); 


Записывает строковое значение 
Уа]1ще в параметр ТаепЕ ключа 
бесе1оп 


ргосеаиге Мг1себег1па (сопзе Зесе1оп, 
ТаепЕ, Уа10ое: $ех1па); 


ПРИМЕЧАНИЕ В ключе НКЕУ ТОСАШ МАСНТМЕ\ о ЕЕмаге\М1сгозоЕ к \И1паомз \ 
Сиггеп&\Уегз1оп\Вип хранится перечень программ, которые будут 
автоматически запускаться в момент старта \/1140\5. 
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Программа и \МИпао\$ 


Рерь! — это всего лишь одно из многочисленных приложений, написанных в рас- 
чете на работу под управлением операционной системы \/1п940о\5. В этом разделе 
приводятся минимально необходимые сведения о \/!т40о\$, позволяющие понять 
и грамотно использовать соответствующие средства Ое|ры. 


Процессы и потоки 


Процесс — это специальный объект \/ 140%, который создается для каждой ис- 
полняющейся под управлением этой операционной системы программы. Сам по 
себе процесс ничего не делает, просто в нем инкапсулируется вся необходимая 
информация о программе. Чтобы программа могла выполняться, помимо процес- 
са создается еще поток команд, который называется первичным или главным. 
В программе можно создать сколько угодно потоков команд, однако в каждый мо- 
мент времени активен (то есть использует ресурсы процессора) только один из 
них. Потоки получают доступ к процессору небольшими квантами времени, по- 
этому у пользователя складывается впечатление, что все потоки команд работают 
параллельно. 

Один процесс может породить другой процесс. Это означает, что одна работаю- 
щая программа может инициировать выполнение другой программы. В У/Лт4о\$ 
могут параллельно исполнятся множество программ, то есть эта операционная 
система обладает свойствами многозадачности и многопоточности. Создать про- 
цесс можно с помощью функции СгеаЕеРгосезз: 


Еапсе1оп СгеафтеРгосез$$ (1рАрр11са*1опМаме: РСпаг; 
1рСомтмапаЬ1пте: РСраг; 
1рРгосеззАеЕг1лрибез$, 1рТргеадА &г1Бокез: 
Рбесиг1 СуАЕЕх1Юаеез; ЮТпНег1ЕНапа1ез: ВОоОг; 
ЧмСгеае1опЕ1ачз: ПОМОВО; 1рЕпу1гопмеп®: Ролпеег; 
1рСаггеп®)1гескоку: РСтаг; 
соп5е 1р5тагборТпЕо: Т5баг®арТптЕо; 
уаг 1рРгосеззТпЕогпа®1оп: ТРгосез$ТпЕогта®1оп): ВООГ; 


Назначение Параметров описано ниже. 


" ]1рАрр11са&1опМаме — имя исполняемого файла с возможным путем досту- 
па. Если путь доступа опущен, имя дополняется текущим диском и текущим 
каталогом. Если параметр имеет значение МТЪ, имя исполняемого файла должно 
указываться первым в перечне параметров командной строки 1рСомтапаТ1пе 
и отделяться от других параметров пробелом. Если запускается 16-разрядная 
программа под управлением \//шао\/з МТ/2000/ХР, параметр 1рАрр11са 1оп- 
Мате должен быть равен МТЕ.. 


”. ]рСомтапаЪ1пе — строка командных параметров. Если параметр имеет зна- 
чение МТЬ, командные параметры можно передавать программе в параметре 
]1рАрр11са*1опМапе. Если запускается 16-разрядная программа под управ- 
лением \/шп4о\з МТ/2000/ХР, первым в списке параметров должно стоять имя 
исполняемого файла с возможным путем доступа. 
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” ]1рРкосеззАеег1расез — указатель на структуру, описывающую привиле- 
гии доступа процесса. Имеет смысл только для \т4о\/з МТ/2000/ХР. Если 
имеет значение МТТ, процессу присваиваются привилегии доступа, заданные 
по умолчанию. 


”” ]ЁрТЬгеадА Е г1рифез$ — указатель на структуру, описывающую привилегии 
доступа главного потока команд программы. Имеет смысл только для У т- 
Чо\/5 МТ/2000/ХР. Если имеет значение МТЬ, потоку присваиваются привиле- 
гии доступа, заданные по умолчанию. 


 рТпрег1ЕНапа1ез — указывает, будет ли новый процесс наследовать дескрип- 
торы вызывающего процесса. Если имеет значение Тгое, порождаемый про- 
цесс разделяет память, карту файлов и другие системные атрибуты со своим 
родителем. 


*" амСгеае1опЕ1аа$ — один или несколько флагов, уточняющих способ созда- 
ния нового процесса и его приоритет: 


О] СВЕАТЕ_РЕКАОБЬТ ЕВВОК_МОРЕ — новый процесс получает свой обработ- 
чик ошибок; 


О СВЕАТЕ_МЕЙ_СОМ$ЗОЬЕ — новый процесс получает свои консольные сред- 
ства ввода-вывода; не совместим с флагом РЕТАСНЕР_  РКОСЕЗ$; 


О СВЕАТЕ_МЕЙ_РКОСЕ$ $ _СКОЧР — новый процесс будет корневым для груп- 
пы процессов; 


О] СВЕАТЕ_ЗЕРАВАТЕ МОМ \ОМ — новый 16-разрядный процесс \/1п4о\$ будет 


запущен в отдельной виртуальной машине ОО$5; имеет смысл только для 
МИт4о\з МТ/2000/ХР; 


С] СВЕАТЕ _ЗНАВЕР ИОЙМ_УОМ — проверяет параметр РеЁац1 =5ерагаЕе\УрМ 
в файле МА п.111 и, если он имеет значение Тгце, запускает новый 16-разряд- 
ный процесс в отдельной виртуальной машине 2О5, в противном случае — 
в общей виртуальной машине; имеет смысл только для \Лт4о\/з МТ/2000/ХР; 


С] СВЕАТЕ_5О5РЕМОЕР — после создания нового процесса его главный поток 
команд не будет активным (его можно впоследствии активизировать обра- 
щением к функции ВезишеТВгеад); 


О СВЕАТЕ_ОМТСОРЕ_ЕМУТВОММЕМТ — если указан, блок заканчивающихся 
нулем строк Епу1 гопмеп* имеет кодировку Отисо4е; 


С] РЕВОСб_РВОСЕ$$ — новый процесс будет отлаживаться вызывающим про- 
цессом; 


О] РЕВОСб ОМЬУ_ТНТ$ _РКОСЕЗ$ — если не установлен, каждый процесс, по- 
рождаемый новым отлаживаемым процессом, становится еще одним отла- 
живаемым процессом вызывающего процесса; 


С] РЕТАСНЕР РВОСЕ$$ — если установлен, новый консольный процесс не имеет 
собственных консольных средств ввода-вывода, но может их запросить об- 
ращением к функции А11осСопзо1е; не совместим с флагом СВЕАТЕ_ 
МЕМ _СОМ$ОГЕ; 
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О нтСнН РЕТОВТТУ СЬА$5$ — присваивает главному потоку команд нового 
процесса высокий приоритет; 


О ТОГЕ_РЕАТОВТТУ _СЬА$$ — главный поток нового процесса будет активи- 
зироваться только тогда, когда нет ни одного активного потока; 


С МОВМАГ РВТОВТТУ СГА5$ — присваивает обычный приоритет; 
С] ВЕАЬТТМЕ РВТОВТТУ_ СТА$5$ — присваивает наивысший приоритет. 


1рЕпу1 гоптепе — указатель на оканчивающийся нулем блок оканчивающих- 
ся нулем строк, описывающих переменные окружения нового процесса (напри- 
мер, каталоги поиска по умолчанию). Каждая переменная задается строкой вида 
параметр=значение. Если содержит МТГ, процесс использует значения пе- 
ременных окружения, заданные по умолчанию. 

1рСиггеп*р1 гес®огу — указатель на оканчивающуюся нулем строку, уста- 
навливающую для нового процесса диск и каталог, заданные по умолчанию. 


]1р5ЕагфарТпЕо — указатель на структуру, описывающую положение и раз- 
меры главного окна нового процесса, его средства ввода-вывода и т. п. 


]1рРгосеззТпЁогма®1оп — указатель на структуру, создаваемую функцией 
СгеасеРгосез$5, в которой содержится информация о вновь созданном про- 
цессе и его главном потоке команд. 


Если вызов был успешным, функция возвращает значение Тгое. 
В листинге 22.6 показан пример вызова функции СгеакеРгосезз. В каталоге 


запуска примера должен располагаться файл СВ\@.ехе (см. каталог СВар_22\Сгеае- 
Ргосез$ среди файлов к книге). 


Листинг 22.6. Пример вызова функции СгезмеРгосе$$ 


ргосеааге ТГогп1.Васкоп1С11сК (Зепаег: ТОБ)ес®); 
// Пример запуска дочернего процесса 
уаг 

ЗсагеОрТпЁЕо: Тэбаг®ОрТпЕо; 

РгосТпЕо: ТРгосез$ТпЕогма®е1оп; 
соп$е 

СопмапаЪ1пе = 'Ср114.ехе'; 
Бед1п 
{ Готовим структуру 5$ЕагЕПОрТпЕо. Подробности о назначении 
ее полей см. в справочной службе И1п32 $0)К ВеЕегепсе} 

Е11]СВаг (56а ОрТпЕо, 512е0Е (5З6агЕОр1тЕо), 0); 

м1ЕВ саге ОрТпЕо @ао 

Бед1п 

СЬ := $12е0Е (56агЕОрТпЕо); // Указываем размер 
// структуры 
{ Флаг $ТАКТЕ О5Е$5НОИИТМООЙ заставляет учитывать параметр 
иброиИ1паои. Флаг 5ЗТАКТЕ ГОКСЕОМЕЕЕОВАСК переводит 
указатель мыши в режим "обратной связи" - он ждет окончания 
создания дочернего процесса. } 
ЯмЕ1ачз := ЗТАВТЕ ОЗЕЗНОММТМРОМ ог 
ЗТАВКТЕ_ЕОВКСЕОМЕЕЕРВАСК; 
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// Окно нового процесса должно быть видимым 
изпомИ1паом := м _5помМогма1; 
епа; 
{ Создаем дочерний процесс. В общем случае указывать имя 
исполняемого файла в параметре СоттапаГ1пе разумнее, так 
как обеспечивает правильный вызов 16-разрядных приложений 
в И1паом$ МТ } 
1ЁЕ поЕ СгеабеРгосез$ (МТ, РСраг (СоттапаЪ1пте), МТЬ, МТГ, 
Га1зе, МОВМАЪ РВТОВТТУ СТЪА$$, МТЁ, МТЬ, ЗбагЕОртТпЕо, 
РгосТпЕо) реп 
ЗПЛомМеззасе ('Ошибка '+Тп%Тобег (СееТаз®Еггохг)) 
епа; 


В целях совместимости с 16-разрядной версией УЛт4о\з, в \Мт32 АР] вклю- 
чена следующая функция: 


Еапсе1оп И1пЕхес (1рсмаЪЬ1пе: ГРСЗТВ; оСпа$Пом: ОТМТ): ОТМТ; 
Эта функция имеет более простой интерфейс: 


*" ]рСтаь1пе — указатель на командную строку запуска (имя исполняемого файла 
и передаваемые программе параметры запуска); 


* испабпом — Параметр, определяющий состояние главного окна нового процесса. 
О 5 _НТОЕ — Главное окно невидимо, 


С $мМ МАХТМТЕЕ, 5М_5НОИМАХТМТСЕР — окно имеет максимальные раз- 
меры; 
С $И_МТМТМТЕЕ, 5И _5НОММТМТМТРЕР — окно свернуто до кнопки; 


О $ ВЕЗТОВЕ, $ _5НОИ, $И_ЗНОИОЕЕАОТТ, $\_5НОИМА, 5И_ЗНОММОВМАТ — 
окно нормальных размеров и занимает стандартную позицию на экране, 


0 5И_ЗНОММОАСТТУАТЕ — окно появляется на экране, но не становится ак- 
ТИВНЫМ. 


Если вызов был успешным, функция возвращает значение больше 31. 

Современные 32-разрядные операционные системы У/п4о\/з обеспечивают не 
только многозадачность, то есть возможность параллельной работы нескольких 
программ, но и многопоточность, когда в рамках одной программы организуется 
несколько параллельно выполняемых фрагментов (потоков команд), каждый из 
которых конкурирует с другими потоками за наиболее важный ресурс — время 
центрального процессора. В многопоточном режиме время центрального процес- 
сора выделяется для каждого потока команд небольшими порциями (квантами), 
по истечении этого времени управление передается другому потоку и т. д. до тех 
пор, пока потоки не закончат свою работу. В любой работающей программе орга- 
низуется как минимум один поток для команд программы. С помощью объектов 
класса ТТВгеа& программа может создать дополнительные потоки для проведе- 
ния некоторой фоновой работы (например, текстовый процессор У/ог4 создает 
дополнительные потоки для проверки орфографии, разбивки на страницы, печати 
документа и т. п.). 
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Для создания дополнительного потока команд в программах ОерЫ пред- 
назначен специальный модуль потока (значок, показанный рядом с этим 
абзацем, идентифицирует модуль потока команд в хранилище объектов). 
При выборе этого модуля Иер запрашивает имя класса, который будет дочер- 
ним для родительского класса ТТвгеаа. Необходимость наследования связана 
с тем, что класс ТТЬгеаа содержит абстрактный метод Ехесифе, который, соб- 
ственно, и должен исполняться в рамках нового потока команд и который, следо- 
вательно, обязан перекрываться в потомках. 
После указания имени дочернего класса ОерЫ! раскрывает дополнительный 
модуль с обширным комментарием и заготовкой для дочернего класса. Вот его текст 
(с соответствующим переводом): 


Тыеад ОБес! 


11016 0011; 
1п$егЁасе 


зез 
С] аззез; 


фуре 
МуТЬгеаа = с1азз$ (ТТВгеаа) 
рга1уаее 
{ РглуаЕе аес1]агаЕтоп$ } 
рговсесееа 
ргосеаиге Ехесисе; оуегг1ае; 


епа; 
1пр1етепва®1оп 


{ Важно: Методы и свойства объектов из библиотеки 
визуальных компонентов могут использоваться только в рамках 
вызова метода 5упсПгоп12е, например: 
бупсАгоп12е (ОрааЕеСарЕлоп) ; 
Здесь метод ПОрааЕеСарЕ1оп должен выглядеть примерно так: 
ргосеаиге МуТргеаа. ОрааЕеСарЕёлоп; 
ред1п 
Гогт1.СарЕлоп := "Новый текст метки"; 
епа; } 


{ Мутргеаа } 
ргосеацге МутТргеаа.Ехесо%е; 
Бед1п 
{ Поместите код потока в этом месте } 


епа; 


епа. 


Программа и ММпаом$ 491 


Программирование потока команд ничем не отличается от программирования 
обычной программы за одним важным исключением: поток не должен использо- 
вать методы и свойства визуальных компонентов, которые приводят к изменению 
внешнего вида программы. Точнее, он может это делать только при обращении 
к специальному методу ЗупсВгоптге, с помощью которого осуществляется син- 
хронизация исполнения главного потока команд программы с дополнительным 
потоком команд. 

Для иллюстрации приемов работы с потоками команд создадим программу, 
которая будет непрерывно обновлять содержимое многострочного текстового поля 
и при этом осуществлять математические вычисления. На рис. 22.2 показано окно 
работающей программы (проект СПар_22\ТИтеа@\ТНгеа4.4рг). 


|393939393939333939395939353939393933335 | в с. 
14040404040404040404040404040404040404040 2: ГрибтиоттозыЕ > 
14141414141414141414141414141414141414141 _ а 
14242424242424242424242424242424242424242 
14343434343434343434343434343434343434343 
14444444444444444444444444444444444444444 
|4545454545454545454545454545454545454545 
14646464646464646464646464646464646464646 
_4747474747474747474747474747474747474747 
14848484648464848484846484848484848484848 
14949494949494949494949494949494949434949 
15050505050505050505050505050505050505050 

15151515151515151515151515151515151515151 

15252525252525252525252525252525252525252 
|5353535353535353535353535353535353535353 
|5454545454545454545454545454545454545454 
15555555555555555555555555555555555555555 
|5656565656565656565656565656565656555656 
15757575757575757575757575757575757575757 
15856585858585858585858585858585858585858 
|5959595959595959595959595959595959595959 
16060605060606060505060606050505060505060 

|6161616151616161616161616161616161616161 

|6262626262626262626262626262626262625262 


Рис. 22.2. Иллюстрация работы с потоками команд 


Основной поток команд программы активизируется при щелчке на кнопке Квад- 
рат: вначале содержимое расположенного над ней поля со счетчиком 5$р1пЕа1 1 
возводится в квадрат до тех пор, пока отображаемое в нем значение не станет слиш- 
ком большим (больше 10*!233). В этот момент надпись на кнопке меняется на Ко- 
рень, а щелчок на ней вычисляет корень квадратный из величины в поле $р1пЕа1 1. 

Вот обработчик щелчка на этой кнопке: 


ргосеаоге ТГогп1.ВиеКоп1С11сКкК (бепаег: ТОБ)есе); 
Бед1п 
1Е Таа=0О &Веп 
Бед1п 
5р1пЕа11.ТехЕе := 
Е] оаЕТоЗег (заг (ЗЕ хТоЕ1оа® (5р1пЕЯ1е1.Тех®))); 
1Е ЗЕгТоЕ1оа% (5$р1пЕа1е1.Тех®) > 1е1233 &Веп 
Бед1п 
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Ваееоп1.СарЕ1оп := 'Корень' 
епа | 
епА е]зе Бед1п 
бр1пЕа11.Техе := 
Е]1оаеТоЗег (заге (ЗЕ гТоЕ1оа® (5$р1пЕЯ1*1.Тех®))); 
1Е ЗсгТоЕ1оа® (5$р1пЕаЧ1Е1.Тех®) < 2 &Веп 
Бед1п 
бр1пЕа1е1.У\Уа1ае 
Тач := 0; 
Вае6оп1.Саретоп := 'Квадрат' 
епа 
епа 
ела; 
В дополнительном потоке команд будем непрерывно формировать по 100 строк 
в многострочном текстовом поле птОпро* и показывать процент заполнения поля 


с помощью индикатора Сацчзе1. 
Окончательный текст модуля потока команд представлен ниже. 


2; 


ип1е 00162; 
1п$егЕасе 


азез 
С]аззез; 


фуре 
ТАгеаЯремо = с1азв8 (ТТпгеаа) 
рг1уафе 
{ РглуаЕе аес]агаЕ1оп$ } 
рговесееа 
3: 8Егала; 
№: Тпбедег; 
ргосеаиге ОрдафеМепо; 
ргосе4иге Ордакесацае; 
ргосеаиге Ехесифе; оуегг1ае; 
епа; 


уаг 
Тремо: ТАгеа@аПепо; 


1пр1етепфа®1оп 
изез 0п1{1,5у5$0611$; 
{ ТтрогЕапЕ: МеЕПоа$ ап ргорегЕ1ез оЕЁ оБлесёз$ 1п УСГ сап 


оп]1у Бе изеЯ 1п а теёПоЯ са11еа из1пду 5упсЬгоп12е, Еог 
ехатр]1е, 
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бупсргопт12е (ЦрааеСарЕ1оп)}; 
апа ОПрааЕеСарЕ1оп сои]а 1оок 11ке, 
ргосеаиге Тргеаарето.Ираа&еСарЕтоп; 
ред1п 
Гогт1.СарЕ1оп := 'ПрааЕеЯа 1п а ЕПгеаа'; 
ела; } 


{ Тргеаарето } 


ргосеаиге Тпгеаарепо.Ехесиее; 


уаг 
],К: Трпседег; 
Ъед1п 
гереаЕе 
5 :=!'; 


Зупспгоп12е (ОрЧ4аееМето} ; 
Бог К := 0 Фо 99 а 


Бед1п 
М := К; 
с ° = | ; 
Еог |] := 1 Фо 20 ао 
5 := 5+Рогма Е1оа® ('00',К); 


Зупсргоп12е (ЧрЧ4афеМето); 
ЗупсНгоп12е (Ораафебаоде) 
епа; 
ипе11 Га15е 
епа; 


ргосеаиге Тпгеаарепмо .Чраа®еМемо; 


Ъед1п 
м1ЕВ Гогп1.птОцерие.1пез$ ао 
1Е (5='') ок (СоппЕ>1000) +Беп 
С1еаг 
е]1 зе 
Ааа (5) 
епа; 


ргосеаиге ТпгеаЯП,емо.ИрЧафесацче; 
Бед1п 

Гогм]1 .Сацае1.Ргодчге$$ := М 
епа; 


епа. 
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Дополнительный поток команд запускается в обработчике ОпАсЕ1таее глав- 
ной формы: 
ргосеаиге ТЕГоги1.ГогпАсСЕ1хафе (Зепаег: ТОБЗесЕ); 
Бед1п 
ТРемо := Тргеааремо.Сгеафе (Га1$е); 
епа; 


Вот так просто запускается дополнительный поток команд — мы инициализи- 
руем объект ТОемо, передавая вего конструктор Тнгеааремо .Сгеа*+е единствен- 
ный параметр Га1зе (этот параметр показывает, должен ли вновь созданный по- 
ток команд «спать» — Тгие или он обязан немедленно начать работу — Га1зе). 
Программа в любой момент может приостановить работу потока команд, присво- 
ив его свойству бизрепаеа значение Тгое, и продолжить его выполнение, при- 
своив этому свойству значение Га] зе. Обратите внимание: метод Ехеса{е пото- 
ка вынесен в секцию рго*есеа и поэтому недоступен из основного модуля. 
Выполнение этого метода начинается автоматически, как только свойство 5аз- 
репаеа примет значение Га15е. 

Для обращения к свойствам и методам визуальных компонентов формы Гогм1 
предназначен специальный метод Зупсркоп12е потока команд. Единственным 
параметром обращения к этому методу должно быть имя любой потоковой проце- 
дуры без параметров. Внутри такой процедуры разрешается обращаться к мето- 
дам и свойствам визуальных компонентов. В нашем потоке команд имеется две 
таких процедуры — Орда+еМемо и Орда%ебчасе. В первой строка $ добавляется 
к содержимому поля имОч Е ри, причем для предотвращения переполнения внут- 
реннего буфера поля оно периодически очищается. В процедуре Ордафебцаде 
глобальная переменная М присваивается свойству Ргоадгезз индикатора Са11де1. 
Поскольку эти процедуры не могут иметь параметров, для управления их работой 
приходится использовать глобальные переменные $ и К. 


Использование памяти 


В 32-разрядных версиях \/1п4о\/з используется так называемая «плоская» модель 
памяти. Это означает, что каждому процессу выделяется адресное пространство 
размером 4 Гбайт, причем 32-разрядный указатель определяет порядковый номер 
ячейки этой воображаемой (виртуальной) памяти. Я не сомневаюсь, что ваш ком- 
пьютер (как, впрочем, и любой другой «нормальный» компьютер — эти строки 
пишутся в конце 2002 года) не имеет такого большого объема физической опера- 
тивной памяти. Более того, сейчас трудно вообразить программу, которой такая 
память будет приниипиально необходима. Речь идет о том, что любой процесс (точ- 
нее, любой поток команд любого процесса) может обращаться к памяти такого 
размера. Фактически это означает, что память вашего компьютера объемом 16, 32 
и более мегабайт, отображается на гигантское пространство 4 Гбайт. В рамках ме- 
ханизма отображаемой памяти создается так называемый файл подкачки, исполь- 
зующийся для хранения страниц виртуальной памяти, которые превышают раз- 
меры физической памяти. Когда программа (поток команд) обращается к адресам, 
которых нет в физической памяти, на свободное место оперативной памяти счи- 
тывается фрагмент файла подкачки, а после использования требуемых адресов, он 
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вновь переписывается на диск. Обмен виртуальной памяти с физической памятью 
(подкачка) выполняется страницами длиной по 4 Кбайт. Подкачка, разумеется, 
замедляет скорость работы программы, но зато программист может не заботиться 
об экономии физической памяти. Замечу, что в 16-разрядной версии \/ 114 0о\\з ис- 
пользовалась так называемая сегментная модель памяти, в которой память про- 
грамме выделялась блоками размером по 64 Кбайт. Это создавало определенные 
ограничения. В частности, ни один массив, запись или любой другой тип произ- 
вольного размера не мог превышать длину сегмента — 64 Кбайт. В 32-разрядных 
версиях \/114о0\$ это ограничение «отодвинуто» до 4 Гбайт. 


ПРИМЕЧАНИЕ Следует уточнить, что первые («верхнис») 2 Гбайта виртуальной па- 
мяти отводятся ядру операционной системы и недоступны программе. 


Плоская модель памяти гарантирует, что каждый процесс получит в свое рас- 
поряжение отдельный участок виртуальной памяти размером в 4 Гбайт. Это озна- 
чает, что процессы «не видят» друг друга и не могут общаться через общую память 
(речь не идет о процессах, созданных с параметром ТпВег1{Напа1ез=Тгое). 


Сообщения МЛпаомз 


Сообщениями в \/ 1140$ называются небольшие пакеты информации, которыми 
обмениваются ядро \У/114о\$ с программами и программы друг с другом. Сообще- 
ние связано с некоторым событием и извещает адресат о его наступлении. 


Структура сообщений 


В модуле И1паомз сообщение описано следующим образом: 
фуре 
ТМ5а = раске@ гесога 
БИпа: НИМо; // Дескриптор окна-получателя 
Меззавсе: ОТМТ; // Код сообщения 
ИРагам: МРАВАМ; // Уточняющий параметр 
ТРагам: ГРАВАМ; // Уточняющий параметр 


Т1пе: ОМОВО; // Время создания сообщения 
ре: ТРо1пЕ; // Координаты указателя мыши в этот момент 
епа; 


Типы НИМО, ОТМТ, РИОВО описаны в том же модуле и соответствуют типу 
ГопаПога, а типы МРАКАМ, ГРАКВАМ — типу ГопдаТпе. 

Важно заметить, что сообщение всегда адресуется некоторому окну-получате- 
лю, определяемому полем ВИпа. Любой оконный класс Ое]р}! порожден от класса 
ТСопего1 и имеет метод ИпарРгос, предназначенный для получения и обработки 
сообщений (этот метод называется оконной процедурой). 


Система сообщений 


Система сообщений функционирует следующим образом. При создании любого 
окна программы операционная система \Лп4о\5 выделяет ему некоторые ресур- 
сы и регистрирует его оконную процедуру. Оконная процедура главного окна бу- 
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дет создана и зарегистрирована путем вызова метода Арр11са*1оп.СгеафеГогм 
в файле проекта. При этом \Лп40о\$ выделит дополнительные ресурсы для орга- 
низации очереди сообщений, адресованных любому окну данной программы. Да- 
лее в этом файле осуществляется вызов метода Арр11саЕ1оп .Вип, ядро которого 
составляет следующий цикл: | 


гереае 
Напа1еМе$заае 
ип11 Тегм1пасеа; 


В ходе реализации Арр11са&1оп.Напа1еМеззаде вызывается такая после- 
довательность операторов: 


1Е РееКМеззачде (Мзд, 0, 0, 0, РМ ВЕМОУЕ) ЕВеп 
Беда п 


Тгап$1аееМеззаае (М5а); 
215ра®с№Меззаае (М5а); 


еп; 


Вызывая АР!-функцию РееКМеззасде, программа извлекает из очереди сооб- 
щений новое сообщение, а вызывая методы Тгапз]аеМеззаде и 215раёсВ- 
Меззасче, обрабатывает его (преобразует нажатие клавиш в сообщения ИМ_СНАБВ) 
и направляет нужной оконной процедуре. 


Обработка сообщений 


Операционная система \У/ш4о\$ построена таким образом, что в подавляющем 
большинстве случаев программа, которой посылается сообщение, обязана долж- 
ным образом отреагировать на него. Хочу подчеркнуть, что многие сообщения при- 
водят к возникновению событий компонентов. Программа может игнорировать 
эти события, но обязана обработать сообщение, их породившее. 
Значительную часть работы по обработке сообщений программы, созданные 
с помощью Веры, выполняют автоматически. Для этого Ое]р1, в частности, пре- 
образует тип ТМза в собственный тип ТМеззаае: 
фуре 
ТМеззааде = раскКе@ гесога 
Мза: СагА1па1; 
сазе Тптедег оЁ 


0: ( 
МРагам: ГШопа1п6; 
ТРагам: Гопа1пе; 
Везо1е: Гопа1пЕ); 
1: ( 


ИРагамГо: Мога; 
ИРагамН1: Шога; 
ТРагапмГо: Мога; 
ГРагапН1: МогЛ; 
Везо1ЕЪо: Шога; 
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Везо1ЕН1: Иога); 
епа; 


Нетрудно заметить, что запись ТМеззаде содержит меньше информации, чем 
ТМза; с другой стороны, в нее введено поле Кеза1*. Связано это с тем, что про- 
грамма анализирует характер полученного сообщения и создает многочисленные 
специализированные сообщения. Например, при нажатии клавиши или ее отпус- 
кании создается сообщение такой структуры: 

фуре 

ТИМКеу = раскеа гесога 
Мза: Саг1па1; 
СБагСо4е: ШМога; 
Опазеа: Мога; 
Кеурафа: Гопа1пЕ; 
ВКези1е: Гопа1пе; 


А при манипуляциях пользователя мышью структура сообщения иная: 


фуре 
ТИММоцзе = раскКеа гесога 
Мза: СагЯ1па1; 
Кеуз: Гопа1пЕ; 
сазе Тптедег о 
0: ( 
ХРоз: 5ма111п1%; 
УРоз: 5та1111&); 
1: ( 
Роз: Тбма11Ро1пё; 
Везо1&: Гопа1п®); 
епа; 


Дополнительное поле Вези1 + вставлено потому, что в некоторых случаях ядро 
М/т4о\$ требует ответа на посланное сообщение. Например, на сообщение о пе- 
ремещении мыши в режиме перетаскивания (Огаё&Огор) программа должна от- 
вечать, готова ли она принять «посылку». 

В подавляющем большинстве случаев для обработки сообщений программист 
использует обработчики событий компонентов. Реализуется это следующим об- 
разом. Оконная процедура анализирует тип сообщения и определяет, создан ли 
в программе нужный обработчик события. Если создан, преобразует сообщение 
в наиболее удобную для обработки форму и передает управление обработчику, если 
нет (и после завершения работы обработчика), происходит стандартная (заданная 
по умолчанию) обработка. Еще раз подчеркну, что обработка сообщения реализу- 
ется всегда, независимо от того, создан ли для этих целей обработчик соответству- 
ющего события. 

В некоторых специальных случаях программисту может понадобиться нестан- 
дартная обработка того или иного события. Для этого он должен создать метод 
объекта, объявив его с директивой меззасде: 
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ргоседиге УМРа1п{ (уаг М5: ТУМРа1п®); шеззаде ММ РАТМТ; 


В такого рода обработчиках обычно вначале реализуются нестандартные дей- 
ствия, а потом вызывается унаследованный обработчик, который совершает стан- 
дартную обработку: 


ргосеацге ТГогп1.ИМРа1п® (уаг Мза: ТИМРа1п®); 
Бед1п 
// Реализуем нестандартные действия 
1пВег16еа // Вызываем унаследованный обработчик 
епа; 


Однако в некоторых случаях удобнее сначала реализовать стандартную обра- 
ботку или даже вовсе отказаться от нее. Пример нестандартного обработчика со- 
общения \/11 40% вы найдете в главе 21 (проект СВар_21\Моуед\птдом/\Мо\\п.арг). 

В ряде случаев можно организовать нестандартную обработку в обработчике 
ОпМеззасе объекта Арр11са+1оп. Его заголовок таков: 


ргосеаицге ТГогп1.АррМеззадеНапа1ег (уаг Мза: ТМ$а; 
уаг НапЧ1еа: Воо]1еап); 


Этот обработчик получает любое сообщение до какой-либо предварительной 
его обработки и в параметре НапЯ1еа сообщает оконной процедуре, нуждается ли 
переданное ему сообщение в дополнительной обработке (Га1зе — нуждается). 
Название процедуры обработчика помещается в свойство ОпМеззаде обычно 
в файле проекта перед обращением к методу Впп: 


ргодгам Рго)ес\!1; 

Бед1п 
Арр11саё1оп.ОпМеззаде := Гогм1.АррМеззадеНапа]1ег; 
Арр11саб1оп.Воп; 

епа. 


ВНИМАНИЕ — Программа обычно получает множество сообщений У/Мт4о\з, поэтому 
обработчик ОпМеззасде является самой вызываемой процедурой вашей 
программы. Вряд ли стоит выполнять в нем хоть какую-то работу, требу- 
ющую интенсивных вычислений, иначе ваша программа перестанет не- 
медленно реагировать на сообщения и «зависиет». 


Посылка сообщений 


Программа не только получает, но также может посылать сообщения — самой себе 
или другой программе. Для этого в распоряжении программиста имеются методы 
РегЕоп компонентов, методы Вгоаасаз* потомков класса ТИ1пСопего1 и, на- 
конец, АР[-функции б5епаМеззасе и Роз&Меззасе. 

Метод Рег ом есть у любого наследника класса ТСопЕго1, в котором он опи- 
сан следующим образом: 
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Еапсе1оп ТСопего1.РегЕом (Мза: Саг@1па1; 
МРагат, ГРагам: ГопаТп®): ФГопаТпЕ; 


Обращение к этому методу удобно использовать для ускоренной обработки 
сообщения, так как в этом случае его доставкой \У/ш4о\з не занимается. Метод 
передает компоненту сообщение и ожидает результата его обработки. 

Для передачи одного и того же сообщения сразу группе компонентов все на- 
следники класса ТИ1пСопего1 (а именно этот класс является родителем всех ком- 
понентов-контейнеров) имеют метод Вгоа@саз*: 


ргосе4аге ТИ1пСопего]1.Вгоаасаз* (учаг Меззаде); 


Этот метод также ожидает результата обработки сообщения каждым помещен- 
ным в контейнер компонентом. Если какой-то компонент в поле Везц1 передан- 
ного ему сообщения возвращает не ноль, рассылка сообщения остальным компо- 
нентам прекращается, и метод завершает свою работу. 

Для посылки сообщения с использованием механизма \/114о\5 предназначе- 
ны следующие функции: 


ЕапсЕ1оп бепаМеззаае (В\Ипа: НИМО; Мза: ОТМТ; МРагат: ИРАВАМ; 
ТРагап: ГРАКАМ): ТВЕЗОШТ; 

Еапсе1оп РозЕМеззасае (В\Ипа: НИМО; Мза: ОТМТ; МРагат: ИМРАВАМ; 
ГРагап: ГРАВАМ): ВОО1; 


Функции имеют одинаковый набор параметров и отличаются тем, что первая 
ожидает окончания обработки переданного сообщения и возвращает его резуль- 
тат, а вторая сразу же возвращает управление вызывающей программе и лишь сооб- 
щает о том, смогла ли она поместить сообщение в очередь. Замечу, что пара- 
метр ИРАВАМ в первом случае обычно имеет значение 1, а во втором 0: так 
\М/114о\$ извещает программу, ждет операционная система немедленного от- 
вета или нет. 


Пользовательские сообщения 


Программа может создать и передать другой программе (или другому окну своей 
программы) нестандартное для \Мт4о\$ (пользовательское) сообщение. С этой 
целью \/114о\5 резервирует диапазон значений кодов сообщений ММ ОЗЕВ... 
57ЕЕЕЕ. Например: | 


соп$е 
3х _МУМЕЗЗАСЕ = ММ О$ЕБ+1; 
Бед1п 


зепаМеззаде (5омегогм.Напа1е, $5Х МУМЕЗЗАСЕ, 1, 0); 


епа; 

Чтобы оконная процедура формы-адресата смогла правильно отреагировать на 
такое сообщение, в ней следует предусмотреть соответствующий обработчик: 

Тбомегогм = с1азз (ТГогп) 


рг1уафе 
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ргосеааге 5ХМуМеззасде (маг Мзд: ТМеззаае); меззаде 
5х _МУМЕЗЗАСЕ; 


ргосеаиге боптеКоги.сХМуМеззаае (уаг Мза: ТМеззаае); 
Ъед1п 

// Код реакции на пользовательское сообщение 
епа; 


ВНИМАНИЕ Никогда не посылайте сообщение, ссли вы не уверены, что адресат смо- 
жет его обработать. 


Функции АР! 


Функции АР1 (Арр/сайоп Ргоэгат Пиегасе — интерфейс прикладных программ) 
представляют собой «ключи» от всех возможностей \/114о\$. Можно с уверенно- 
стью утверждать, что знание этих функций и особенностей работы с ними прямо 
пропорционально опыту и способностям программиста, работающего в среде \/т- 
0\5. 

Эти функции сосредоточены в многочисленных библиотеках, расположенных 
в папках 5у${ет32, Зуз4ет и других, указанных в переменной окружения РАТН. 
Многие из них описаны в модуле ИТМРОй$ и, следовательно, готовы к немедлен- 
ному использованию в программах Оеры, так как ссылка на этот модуль в обяза- 
тельном порядке помещается в предложение чзез любого модуля. 

Например, в любом нужном месте программы вы можете потребовать переза- 
грузки УМт4о\$ с помощью следующего кода: 


\И1п32СБВеск (Ех1М1паомзЕх (ЕМХ_ВЕВООТ, 0)); 


Этот код иллюстрирует предпочтительный способ вызова функций АР], в ко- 
торых могут возникнуть исключительные ситуации (функция Ех1 Е М1паом$Ех 
в Мп 4о\$ МТ/2000/ХР может вызывать исключение, если пользователь не обла- 
дает специальным правом $Е_$НОТРОММ МАМЕ). Функция М1п32Свеск прове- 
ряет код завершения вызова Ех1 ЕИ1помзЕх и обращается к функции Сбеф- 
Таз*Еггог, если возникла ошибка. Последняя дает развернутое сообщение 
о характере ошибки. 

Однако львиная доля функций АР! не описана в модуле итмром$ и требует 
описания в том модуле, в котором реализуется обращение к ним. Например, функ- 
ции Е 1тебекЕхепь и &1мекК1 1 1Еуепе используют внутренний системный тай- 
мер \/!14о\5, с помощью которого реализуется механизм вытесняющей многопо- 
точности, то есть принудительного прерывания работы потока команд по истечении 
выделенного ему кванта времени. Перед использованием их следует описать: 


ЕипсЕ1оп с1тебеесЕуепе (иОе]1ау, оВБео1ае1оп: ОТМТ; 
1рТ1меРгос: Ро1пбег; аАмОзет: РМОВО; ЕаЕуеп®: ОТМТ): 
Трлседег; 
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5$аса11; ехфегпа]1 'им1ппп.а11!; 


ЕипсЕ1оп (1тек111Еуепё (атТр: ОТМТ): Тпбедег; 
$ЕАса11; ехфегпа1 'м1ппи.а11'; 


ВНИМАНИЕ Все функции АР] следуют соглашению зЕЯ9са1.1 об использовании регис- 
тров и стека. Крометого, при работе под управлением \Млт4о\з МТ/2000/ХР 
нужно указывать имя библиотеки с расширением ОШ (при работе под 
М/Лпао\з 95/98 расширение можно опускать). 


Часть 1\ 


Расширенные 
возможности Берш 


В трех первых частях книги достаточно полно описываются базовые 
возможности ОерЫ, без знания которых невозможно создание даже от- 
носительно несложных программ среднего объема. В этой части вы по- 
знакомитесь с некоторыми дополнительными возможностями ОПе|ры, 
освоение которых является обязательным условием успешного програм- 
мирования в этой среде. 


В главе 23 рассматривается методика создания и использования динами- 
чески подключаемых библиотек (О1.Т.). Эти библиотеки широко исполь- 
зуются в \/ш4о\$ как средство обмена готовыми программными реше- 
ниями, написанными, возможно, на других языках программирования. 
Фактически, сама операционная система \/1п4о\$ состоит из нескольких 
десятков библиотек ОТ.1., написанных, преимущественно, на языке С++. 


В главах 24 и 25 вы познакомитесь с технологией СОМ, которая лежит 
в основе многих возможностей \У/Лт4о\з. Собственно говоря, интерфей- 
сы, рассматриваемые в главе 24, не являются частью этой технологии, но 
широко в ней используются. Изучив этот материал, вы сможете подклю- 
чать к вашей программе многочисленные СОМ-серверы, такие как тек- 
стовый процессор \!ог4, табличный процессор Ехсе| ит. п. 


Как уже отмечалось, особенностью версии Ое|рЫ! 7 Зи 1о является боль- 
шое количество дополнительных утилит, которые поставляются вместе 
с ней, но не являются ее неотъемлемой частью. Изучение всех этих ути- 
лит выходит за рамки книги. Тем не менее я не мог не познакомить вас 
с одной из них — МодеМакег. В главе 26 вы изучите некоторые возмож- 
ности этой системы автоматизированного программирования. Попутно 
в этой главе рассматриваются основные проблемы создания собственных 
компонентов. 


Глава 23 


Создание 
и использование ОЕ 


Динамически подключаемые библиотеки (Рупатс Глюк ГаБгагу, О.Т.) предостав- 
ляют универсальный механизм интегрирования в вашу программу процедур и фун- 
кций, написанных другими программистами и, в общем случае, на других, нежели 
Пер, языках программирования. 

О. реализуются в виде исполняемых модулей, содержащих готовые к работе 
процедуры, функции и/или ресурсы. С точки зрения программиста, есть много 
общего между О. и обычными для РерЫ модулями, так как в конечном счете 
и библиотеки, и модули поставляют подпрограммы, избавляющие программиста 
от написания собственного кода. Но есть и принципиальные отличия. Главным из 
них является то, что ОТ.[. не в состоянии поставлять в программу переменные, 
константы и типы, ведь создатели О.Г. могут использовать нетипизированные язы- 
ки программирования, например, язык ассемблера. В результате библиотеки ОТ. 
не могут экспортировать в программу столь необходимые сегодня программисту 
классы — для этого требуются пакеты. 

Другим важным отличием является способ связывания экспортируемых под- 
программ с основной программой. Модули связываются с программой на этапе 
компоновки, то есть статически. Если загружены две программы, использующие 
одни и те же модули, в памяти будут два экземпляра одинаковых фрагментов кода. 
В отличие от этого О.Г. подключаются к программе в момент ее исполнения, то 
есть динамически. Если, опять же, две программы используют одну и ту же биб- 
лиотеку ОГ. в памяти будет лишь один экземпляр разделяемого программами 
кода. Следует уточнить, что речь идет о физической памяти компьютера. Посколь- 
ку каждая программа получает в свое распоряжение виртуальное адресное про- 
странство (подробнее о процессах и памяти рассказывается в главе 22), в эти про- 
странства будут отображаться столько образов библиотеки ОТ.1Т., сколько программ 
ее используют (см. раздел «Отображение файлов в память» в главе 10). 

Динамическое подключение дает ОГ... еще одно немаловажное преимущество 
над модулями: изменение любой библиотеки ОТ. в большинстве случаев не тре- 
бует перекомпиляции использующей ее программы. 
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Реализация 


Для создания ОТ... в РерЫ введено зарезервированное слово 13Ъхаку (библио- 
тека), которым должен начинаться текст библиотеки. За словом Ь1Ъхаку следует 
правильный идентификатор, но в отличие от объявления модуля он не обязан со- 
впадать с именем файла: имя О.Г. определяется именем ОГ.Г.-файла, а не иденти- 
фикатором, следующим за словом Ё1Ьгаху. 

Структура текста ОТ.Т. повторяет структуру обычной программы с тем исклю- 
чением, что раздел исполняемых операторов в 014. играет ту же роль, что и ини- 
циализирующая часть модуля: операторы этой части исполняются только один раз 
в момент загрузки библиотеки в память. Каждое очередное обращение с требова- 
нием загрузить библиотеку наращивает на единицу ее счетчик ссылок, но не при- 
водит к выполнению операторов исполняемой части. 

В разделе описаний ОТ.Т. могут объявляться типы (в том числе и классы), кон- 
станты и переменные, но они остаются скрытыми от вызывающей программы и мо- 
гут использоваться только внутри ОТ.1.. В разделе описаний помимо стандартных 
для обычной программы объявлений используется специальный раздел объявле- 
ния экспортируемых подпрограмм. Этот раздел начинается зарезервированным 
словом Ехрог*$, за которым через запятую перечисляются имена экспортируе- 
мых подпрограмм, например: 


.21Ьгаку МуГ1Ьгакгу; 

Еапсе1оп МуРопс(...):...; 

Бед1п 

епа; 

ргосеаиге МуРгос; 

Бед1п | 

епа; 

Ехрог®е$ 

МуГопс, МуРгос; 

Бед1п 

епа. 

Раздел Ехрог*$ помогает компилятору и компоновщику создать специальный 
заголовок ОТ.Г.-модуля, в котором перечисляются имена подпрограмм и адреса их 
точек входа. В ПГТ, может быть несколько списков Ехрог*$, но перечисляемые 
в них подпрограммы должны быть описаны где-то выше по тексту библиотеки. 

Помимо имени подпрограммы в заголовок ОТ.[, помещается также ее порядко- 
вый номер, точнее, присвоенный ей целочисленный индекс. Это позволяет вызы- 
вающей программе ссылаться не на имя, а на индекс подпрограммы и тем самым 
уменьшить затраты времени на установление с ней связи. Индекс присваивается 
подпрограмме в соответствие с порядком ее появления в списках Ехрог*з: пер- 
вая подпрограмма в первом списке получает индекс 0, следующая — 1 ит. д. Про- 
граммист может изменить такой порядок индексации и явно указать индекс под- 
программы, добавив за ее именем в списке Ехрог*з слово 1паех и целое число 
без знака в диапазоне от 0 до 32 767: 
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Ехро®5 
МуРопс 1паех 1, МуРгос 1паех 2; 


ВНИМАНИЕ Корпорация М!тсгозоЁ объявила о том, что в дальнейшем она, возможио, 
откажется от поддержки индексов в 01.1. и рекомендовала вызывать под- 
программы только по именам. 


Программист может определить такое внешнее имя экспортируемой подпро- 
граммы, которое будет отличаться от ее настоящего имени. Для этого в списке 
Ехрог*$ добавляется слово паме и внешнее имя в апострофах: 


Ехрог®$ 
МуЕопс 1паех 1 паме 'МЕМРОМС'; 


ПРИМЕЧАНИЕ Внешние имена критичны к регистру букв, так что МЕМЕРОМС и МеиРипс — 
это разные имена. 


Вызывающая программа может ссылаться либо на имя экспортируемой под- 
программы, либо на ее индекс. При вызове по имени программа просматривает 
имена в таблице имен в поисках нужного. Так как имена могут состоять из длин- 
ных наборов символов, а самих имен в таблице может быть много, процесс поиска 
имени медленнее, чем процесс поиска индекса. 

Все операторы, расположенные после слова Бед1лп и до завершающего слова 
епа, играют ту же роль, что и операторы инициализирующей части модуля: они 
выполняются один раз в момент загрузки ОТ... В отличие от модуля, в ОТ. нет 
завершающей секции. 

Замечу, что Оефры не компилирует библиотеку ОТ, автоматически в режимах 
МАКЕ или ВОТГО, так как справедливо рассматривает ее как другую программу, 
никак не связанную в момент компиляции с основной программой. 


Пример создания ОЫ- 


Рассмотрим пример создания ОТ. в котором иллюстрируются различные при- 
емы объявления экспортируемых подпрограмм. Для примера выбран модуль 
Спр1х, описанный в разделе «Доступ к объявленным в модуле объектам» главы 11. 
В его состав входят 4 процедуры, реализующие действия с комплексными числа- 
ми. Вариант соответствующей библиотеки ОТ.Т. показан в листинге 23.1 (см. про- 
ект СВар_23\01 Стрх\Стр.арг). 

Для создания заготовки библиотечного модуля выберите команду Ре ›» 
| Мм › О{Нег и в окне хранилища щелкните на значке ОЦ.. В ответ Ое]рЫ от- 
ОШ. кроет специальное окно проекта с длинным комментарием, в котором указы- 
вается на необходимость вставить ссылку на модуль $ВагеМеп, если библиотека 
экспортирует длинные строки в параметрах обращения к подпрограммам или как 
результат функций. Эта ссылка должна быть первой как в предложении 9зез биб- 
лиотеки, так и в предложении 9зез файла проекта программы, которая использу- 
ет эту библиотеку. Если подпрограммы библиотеки экспортируют строки 5Пог%- 
5Ег1па или РСраг, ссылаться на $ВагеМем не обязательно. Сразу же сохраните 
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проект под именем Стр1х, чтобы среда Ое!р}! автоматически исправила имя биб- 
лиотеки в предложении Ё1Ьхахгу. 


Листинг 23.1. Библиотека 01. реализующая действия с комплексными числами! 
Т1Ьгахку Спр1х; 
изез 


$у$0%11$, 
С]аззез; 


($5 *.ВЕЗ} 


Суре 
ТСомр1ех = гесога 
Ве, Ти: Веа1; 
епа; 


ЕипсЕ1оп АааС(х, у: ТСопр1ех): ТСотр1ех; $&аса11; 


Бед1п 
Везо1®.Т1м := х.м + у.Тщ; 
Везо1.Ке := х.Ве + у.Ве 
епа; 


ЕапсЕ1оп оС (х, у: ТСотр1ех): ТСотр1ех; $&@аса11; 


Бед1п 
Веза1®.1м := х.Ти - у.тщ; 
Везо1е.Ве := х.Ве - у.Ве 
епа; 


Еипсе1оп Мо1С(х, у: ТСоптр1ех): ТСотр1ех; $%@аса11; 


Бед1п 
Вези1е.Ке := х.Ве * у.Ве + х.та * у.Тщ; 
Везо1е.Т1м := х.Ве * у.м - х. та * у.Ве 
епа; 


ЕапсЕ1оп 01\%С(х, у: ТСопр1ех): ТСотр1ех; $3&@са11; 
уаг 


2: Веа1; 
Бед1п 
2 := заг(у.Ве)} + заг(у.Тщ); 
Везц1е.Ве := (х.Ве * у.Ве + х. та * у. Тм) /2; 
Везо16.Т1м := (х.Ве * у.Та - х.1Тм * у.Ве) /2 
епа; 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу ИЁр:// 
миим/.рКег.сот/домип[оаЯ — Примеч. ред. 
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Ехрог®5$ 
АЧАЯС 1паех 1 паме 'АШООС' гез1аете, 
ЗирС 1паех 2, 
Мо1С 1паех З3, 
201\%С 1паех 4; 
Бед1п 
епа. 


Обратите внимание: все функции нашей библиотеки ОТ. используют дирек- 
тиву зЕЯса11, которая обеспечивает совместимость новых функций с функция- 
ми АР! 32-разрядных версий \/ш4о\з. Мы могли бы не указывать эту директиву, 
тогда компилятор использовал бы более эффективное соглашение, реализуемое ди- 
рективой гед1з+ех, но обращение к нашей библиотеке 11. из программ, написан- 
ных на других языках программирования, в общем случае стало бы невозможным. 


СОВЕТ — Если вы создаете ОГ, для «внешнего» использования (вне Оер!), объявляйте 
подпрограммы с директивой з3&4са11 или заЁеса11. 


Для использования подпрограмм из ОГ, необходимо описать их как внешние, 
добавив за словом ЕхЕегпа1 имя библиотеки в апострофах: 
Ргоседиге МуРгос; Ехвегпа1 'МурЬГ'; 


ВНИМАНИЕ Если ваш компьютер работаст под управлением \/т4о\$ 95/98, расшире- 
ние О: можно опускать (как в только что приведенном примере), однако 
при работе с \/М/т4о\5 МТ/2000/ХР нужно указывать полное имя библио- 
теки с расширением 0И.. 


Как уже отмечалось (см. выше подраздел «Реализация»), подпрограмма вызыва- 
ется по имени или по индексу. В нашем примере избиблиотеки МуртТ, вызывается 
подпрограмма с внешним именем 'МуРгос'. Если нужно сослаться на индекс под- 
программы, за именем библиотеки указывается слово 1п4ех и сам индекс: 


Ргосеаиге МуРгос; Ех®егпа1 'Муротт.а11' 1паех 2; 


В этом случае имя, под которым подпрограмма будет известна программе, мо- 
жет не совпадать с ее внешним именем, определенным в ОГ.Г.. Впрочем, програм- 
мист может и явно переопределить имя подпрограммы, даже если он ссылается на 
ее внешнее имя: 


Ргосеацге МуРгос; Ех®егпа1 'МурГЬГ.а11 ' Маме 'ЕхеМапе'; 

В этом варианте предполагается, что экспортируется процедура с внешним 
именем 'ЕхеМапе'. 

После любого из указанных выше объявлений экспортируемая подпрограмма 


становится доступной программе и может вызываться в ней как обычная подпро- 
грамма Оерь!. 


Статическая загрузка 


В следующей программе, представленной в листинге 23.2 (проект СПар_23\01. 
Стр\Те${ОИСтр(х.арг), используется библиотека Сир1х, описанная в листинге 23.1. 
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Листинг 23.2. Статическая загрузка О 


Суре 
ТСомр1ех = хесока 
Ве, Та: Веа1; 
епа; 
Еапсе1оп АООС (х,у:ТСопр1ех): ТСомр1ех; 
$Еаса11; ЕхЕегпа1 'Спр1х.а11'!; 
Еапсе1оп барс (х,у:ТСотр1ех): ТСотр1ех; 
$Еаса11; ЕхЕегпа1 'Стр1х.а11'; 
Еапсе1оп Мио1С(х,у:ТСотр1ех): ТСопр]1ех; 
$5Еаса11; ЕхЕегпа1 'Спр1х.а11!; 
ЕапсЕ1ой 01УС(х,у:ТСотр1ех): ТСотр1ех; 
$ЕЯаса11; ЕхЕегпа1 'Сптр1х.а11'; 
ргосеаиге ТЁЕпЕхаптр1е.Ъ5ЬВКипС11ск (бепаег: ТОБ]ес®); 
уаг 
х,у,2: ТСошр]1ех; 
ргосеааге Опериф (ОрегаЕ1оп: Спаг); 
// Осуществляет нужное действие и выводит результат 
// в ттОицЕриЕ 
уаг 
5: ЗЕгапа; 
Бед1п 
сазе Орегае1оп оЕЁ 
'+';: 2 := АааС (х,у); 


"-1: 2 := 5аЪС(х,у); 

'*Ж'; 7 := Мо1С(х,у); 

"И: 2 := 01УС(х,Уу); 

епа; 

5 := '('+Рогма $ Е1оа% ('+0.0000;-0.0000',х.ге) + 
ГогтаеЕ1оа® ('+0.00003;-0.00003',х.1м)+') '+ 
Орега®1о0оп+ 


'('+РогмаеЕ1оа® ('+0.0000;-0.0000',у.ге) + 
Когма*Е1оа* ('+0.00005;-0.00003',у.1м)+'='+ 
РГогмаеЕ1оа* ('+0.0000;-0.0000',=.ге) + 
Гогма%*Е1оа* ('+0.00007;-0.000017',х.1м); 

пиОцерое.Ъ1пе$ .Ааа (5); 
еп4; // ОцЕриЕ 


Бедазп // ЬЬКипС11ск 


х.ге := Вапаом; 
х.1м := Вапаой; 
у.ге := Капаом; 
у.1м Вапаом; 


ОцЕрие ('+'); 
ОцЕрие ('-'); 


Пример создания 0. 509 


Опера ('*'); 

ОцЕриЕ ('/'); 

пиОчерое.Ъ1пе$.Ааа (''); 
епа; 


епа. 


Обратите внимание: библиотечная функция Сир1хАдЯ имеет внешнее имя АБОС. 
Именно так (прописными буквами) описана эта функция в приведенном выше 
примере. Если бы мы использовали показанный ниже вариант описания, компо- 
новщик не смог бы ее идентифицировать: 


ЕапсЕ1оп Ааас (х, у:ТСомр1ех): ТСопр1ех; 
$Е4са11; ЕхЕегпа1 'Спр1х.а11!; 


ПРИМЕЧАНИЕ В некоторых случаях внутренние имена подпрограмм ОЛ. могут со- 
держать символы, недопустимые в правильных идентификаторах Оер. 
Например, в идентификаторах С++ разрешается использовать символ 
@. Объявить такую подпрограмму, сославшись на ее имя, нельзя. В этом 
случае нужно использовать правильное с позиций ОерЫ имя, указав 
истинное имя подпрограммы за словом папе. Например: 


РЕапсЕ1оп С11епеВеу1$1оп: Сага1па1; 
ех$егпа1 '\ТС11епё.а11' паме '_ИТс11еп*Веу1$101@0'; 


Динамическая загрузка 


Описанный выше способ определения функций и процедур ОТТ. (с помощью ди- 
рективы Ех&егпа1.) заставит компилятор поместить в заголовок программы спи- 
сок всех библиотек ОТ. и загрузчик загрузит их в память одновременно с загруз- 
кой самой программы. Программа может загружать ОТ]. и без директивы Ех%егпа1 
с помощью трех стандартных функций: гоааЪ1Югагу, СееРгосАаагеззи Егее- 
Ь1рЮгаку. Листинг 23.3 (проект СВар_23\0. Стр\ТеОИ.СтрК2.арг) иллюстриру- 
ет технику такой загрузки ОТ.Г, Смр1х. 


Листинг 23.3. Динамическая загрузка О. 


Суре 
ТСомр1ех = гесога 
Ве, Тм: Веа1; 
епа; 
ТСотр1ехЕипс = ЁапсЕ1оп (х, у: ТСопр1ех): ТСопр1ех; 
$Еаса11; 


ргосеаиге ТЕпЕхапр1е.рЬКипС11сК (Зепаег: ТОр)ес®); 
уаг 

х,у,2: ТСопр1ех; 

АаасС, ЗаЮС,Мо1С,21УС: ТСошр1ехРГопс; 

Напа1е: ГопдаМога; 
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ргосеаиге ОпероЕ (Орега1оп: Сраг); 
...// Тело процедуры ОцЕриЕ остается без изменений 
епа; // ОцЕриЕ 


Бедазп // ЬЬКипС11ск 
// Загружаем библиотеку СМРГХ. ТТ 


Напа1е := Гоаа11Ьгаху ('Сир1х.а11'); 
1Е Напа1е = 0 &Веп 
Бед1п 
ЗПоиМеззасае ('Не найдена библиотека СМРЬХ.ОЬЬ'); 
На1% 
епа; 


{ Определяем адреса функций. Три первые вызываем по 
индексу, четвертую - по имени. При вызове по индексу 
младшее слово РСПаг должно содержать индекс, поэтому 
выполняем приведение типов: } 


ААС := СееРкосАаагез$ (Напа1е, РСваг (Гопа1Тпт® (1))); 
@5а5С := бееРгосАааге$$ (Нап91е, РСпаг (ЪопаТпе (2))); 
@Мо1С := СееРгкосАаагезз (Нап91е, РСпаг (БопаТп® (3))); 
@021%С := СеЕРгосАаагез$ (Напа1е, '21%С'); 

х.ге := Вапаоп; 

х.1м := Вапаоп; 

у.ге := Капаопм; 

уУ.1м := Вапаом; 

Опере ('+'); 

Очери ('-'); 


ОцЕроф ('*'); 
ОпЕрие ('/'); 
пиОчфрие.Т1пе$.Ааа(''); 
// Освобождаем библиотеку 
ЕгееГ1Югагу (Напа1е) 

епа; 


Интерфейсный модуль 


При вызове подпрограмм ОТ.Т. в большинстве случаев бывает необходимо переда- 
вать структурированные параметры типа записей, как тип ТСомр1ех в предыду- 
щем примере. Поскольку ОТ. не могут экспортировать типы, приходится объяв- 
лять эти типы в вызывающей программе. Если вы часто обращаетесь в своих 
программах к той или иной библиотеке ОТ.Т., удобно создать интерфейсный мо- 
дуль, содержащий объявления как подпрограмм, так и связанных с ними типов. 
Пример представлен в листинге 23.4 (файл СВар_23\0ЕЕ Стр(х\Сотр(.раз): . 


Листинг 23.4. Интерфейсный модуль 


О9п1Е Сопр1х; 
ТлфегЕасе 


Включение в библиотеку форм 511 


фуре 
ТСотр1ех = гесога 
Ве, Тш: Веа1; 
епа; | 
ЕипсЕ1оп АааСс (х, у:ТСопр1ех) : ТСотр1ех; 
$&4са11; ЕхЕегпа1 'Спр1х.а11'; 
Еапсе1оп боБС(х,у:ТСотр1ех): ТСопр1ех; 
$5ЕА4са11; Ехвегпа1 'Спр1х.а11'!; 
Еипсе1оп Мо1С(х,у:ТСотр1ех): ТСопр1ех; 
$&Яса11; Ех%&егпа1 'Спр1х.а11'; 
Еипс®1оп Р1\УС(х, у:ТСопр1ех) : ТСопр1ех; 
$ЕЯса11; ЕхЕегпа1 'Спр1х.а11'!; 


Тир1етепфкае1оп 


епа. 


Такой интерфейсный модуль существенно упрощает разработку основной про- 
граммы: в нашем примере (проект СНар_23\0Ц. Стр`\ТеОЧСтрХЗ.арг) он обеспе- 
чивает такой же интерфейс кбиблиотеке Спр1х, как описанный выше модуль Спр1х 
к своим объектам. 


Включение в библиотеку форм 


Несмотря на то, что библиотека ОТ]. не имеет собственной формы, она позволяет 
вызывать формы из связанных с библиотекой модулей. Для этого в библиотеке 
используется ссылка мзез на связанные модули-формы и объявляются экспорти- 
руемые из ОТ.Г, подпрограммы, в которых реализуется вызов соответствующих 
форм. 

В листингах 23.5, 23.6 и 23.7 (см. библиотеку СВар_23\Рогта 1 ОМЛОЦМ- 
Гогт.Арг и тестовый пример СПар_23\Еогта 1пфо ОМ \Те{ОН-Рогт.арг) иллюстрирует- 
ся техника включения в ОТ.Т. формы и использования этой формы в вызывающей 
программе. 


Листинг 23.5. Текст ОЕ 
11Ьгаху ОЬМ1ЕПЕогп; 
15е$ 

5уУ$0Е11$, 


С1а$$е$, 
РЬЬРГогмО 4п 'ОЬЬРогмО.раз' {РГЁРГогт}; 


{$В *.ВЕЗ} 


ехрог*з 
ЗРомМоаа1Гогм, 5ПомРогм, ЕгееГогц; 
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Ъед1п 
епа. 


Листинг 23.6. Текст формы в ОЕ 
11016 ОГЬРГогпи0; 


1п6егЕасе 


и5е$ 
И1паом$, Меззааез, $5у$0%115$, С1аззез, СгарВ1с5, Сопфго1$, 
Гогиз, 0О1а1о95$, 5ЕаСЕг1$, Ваебопз; 


фуре 
ТОЬЬРГогм = С1аз$$ (ТГогп) 
В1ЕВЕп1: ТВ1ЕВеЕп; 
В1ЕВеп2: ТВ1ЕВЕПп; 
ргоседиге КогпС1о5е (5еп4ег: ТОр)есЕ; 
хаг Асе1оп: ТС1озеАс®1оп); о 
рг1уа®е 
{ РилуаЕе аес]1]агаЕтоп$ } 
Са11Гогм: ТНапа1е; // Дескриптор вызывающей формы 
рчЬ11с 
{ РчБ]1с аес]агаЕтопз$ } 
епа; 


// Объявление экспортируемых подпрограмм 
ЕапсЕ1оп бПомМоаа1Еогм: Тпеедег; 
ргосеаигке ЗПомГогм(аНапЯ1е: ТНапа1е); 
ргосеаиге ГЕгееГогц; 


у\аг 
ОЬЬРоги: ТЬОЬЬРГогы; 


1пр1етепфа®1оп 
{$В *.ОЕМ]} 


Еапсе1оп бРомМоЯа1ЕГоги: Тпъедег; 
// Модальный вызов 


Бед1п 
21]1Еогм := ТО11ЕРогм.Сгеабе (Арр]11са®1оп); 
Везо]1Е := ОЬГРГогм.бромМоаа1; 
ОЬ.ЬЕогм.Егее; 

епа; 


ргосеаиге 5ПомГогп(Арр1, ЕГогм: ТНапа1е); 
// Немодальный вызов 
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Бед1п 
Арр11сак1оп.Нап1е := Арр1; // Замена объекта 
// Арр]1саЕ1топ 
21]РГогм := ТР1]Рогм.Сгеафе (Арр11са®1оп); 


// Запоминаем дескриптор вызывающего окна для посылки 
// ему сообщения о закрытии 
Са11ЕГогм := Рогп; 
ОГЬЕРогм. $пом 
епа; 


ргосеаиге ЕгееГогп; 
// Удаление формы 
Бедлп 

РЬЬЕогм.Егее 
епа; 


ргосеаиге ТОЬГЕГогм.ЕогиС1о5е (5епаег: ТОБ]есе; 
уаг АсЕ1оп: ТС1оз5еАс®1оп); 
Бед1п 
1Е Са11ЕГоги<>0 ЕБеп 
бепаМеззаде (Са11Гогтш, ит _Озек, О0, 0) 
епа; 


епа. 


Листинг 23.7. Текст вызывающей программы 


11016 ТезЕМазп0; 
1п$ехгЕасе 


и5е$ | 
И1пАаом$, Меззадез$, $у$0%11$, С1аззез$, СгарН1с5$, Сопёго1$, 
Роги$, 0О1а1о0о3$, 5ЕаС%г1$; 


Суре 
ТТезЕМа1п = с]1аз$$ (ТГогп) 
Ваееоп1: ТВоеФоп; 
Воееоп2: ТВаефоп; 
Вае$оп3З: ТВаефоп; 
Таре11: ТЬаре1; 
ргосеаиге Вое(оп1С11сК (бепаег: ТОр]ес®); 
ргосеацге Воеоп2С11сК (бепаег: ТОБ)ес®); 
ргосеачге Воееоп3С11сКк (5епаег: ТОБ)ес®); 
рг1уаве 
{ РгтуаЕе аес1агаЕтоп$ } 
руЬ11с 
{ РиБ11с Ааес]агаЕтоп$ } 
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ргоседиге ИМОзег(уаг Мзд: ТМеззаде); меззаде ИМ О05ЕБ; 
епа; 


уагх 
ТезМа1п: ТТезЕМатпг; 


1пр]1емепва®1оп 
({$ВК *.РЕМ} 


Еипсе1оп ЗПомМоЧа1Когм: Тпбедег; Ехеегпа1 
'РЬЬИТЕРРогм.а11'; 

ргосеачге ЗпомГогп(Арр1, Гогт: ТНапа1е); 
Ехфегпа1 'ОГГИ1ЕИРГоги.а11'; 

ргосеаиге ЕгееГоги; Ехвегпа1 'РЬГМ1еПГогм.а11'; 


ргосеааге ТТезЕМа1п.Воекоп1С11сК (беп4ег: ТОБ)ес®); 
// Модальный вызов 


Бед1п 
Ви соп2.Епаб]1еа := ГЕа15е; 
1абе11.Саре1оп := 'Мода1Вези1® = '+ 
ТпЕТобег (5ЛомМоаа]1ЕГогм) ; 
1абе11.51ом; // Показываем результат вызова 
Вис еоп2.Епаб]1еа := Тгае 
еп; 


ргосеачге ТТезМа1п.Воееоп2С11скК (Зеп4аег: ТОБ)ес®); 
// Немодальный вызов 
Бед1п 


Во воп1.Епаб1еа := Га]1зе; 
Воефоп2.Епар1еа := Га]1зе; 
Вас оп3.Епар1еа := Тхое; 


1абе11.Н1ае; 
ЗВомРогп (Арр11сак1оп.НапЯ1е, 5е1Ё.Напа1е); 
епа; 


ргосеаиге ТТезМа1п.Вое$оп3С11сК (беп4ег: ТОр)ес®); 
// Закрыть форму 


Бедап 
ЕгееГогп; 
Воееоп1.ЕпаЮю1еа := Тгае; 
Вас еоп2.ЕпаЪ]1еа := Тгае; 
Виббоп3.Епаб1еа := Га15е; 
епа; 


ргосеааге ТТезеМа1п.ИМИзехт (маг М5д: ТМеззаде); 
// Сообщение из формы к ОШ о закрытии формы 
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Бед1п 
Ва Еоп3.С11сКк 


епа. 


Модуль формы ОЪЬЕГогюм, помещенной в ОТ. ссылается на стандартный мо- 
дуль Рогтз и, таким образом, получает свой глобальный объект Арр11са®1оп, 
который ничего «не знает» о глобальном объекте вызывающей программы (см. 
раздел «Глобальные объекты» в главе 22). В режиме модального вызова это не имеет 
особого значения, так как модальное окно блокирует работу вызывающей програм- 
мы. В режиме немодального вызова следует синхронизировать действия объектов, 
в противном случае свертывание главного окна, например, не приведет к сверты- 
ванию окна 01.1. Синхронизация достигается тем, что дескриптор объекта Арр11- 
сае1оп О. заменяется соответствующим дескриптором вызывающей программы. 

При показе формы в немодальном режиме она может быть закрыта щелчком на 
собственной системной кнопке закрытия. В этом случае она должна каким-то об- 
разом известить вызывающую программу об этом событии. Для этого использует- 
ся стандартный механизм посылки вызывающей форме сообщения \Лп4о\з. Под- 
робнее о сообщениях \/1140\%$ рассказывается в главе 22, здесь я лишь отмечу, что 
сообщение должно иметь адрес, в роли которого используется дескриптор окна, 
получающего сообщение. Вот почему дескриптор вызывающего окна передается 
вторым параметром вызова функции $ВомГогм в 01. и запоминается в поле 
Са11Гогм. Обработчик события ОпС1о5е формы проверяет это поле и, если оно 
определено, посылает вызывающему окну сообщение с индексом ИМ_ОЗЕБВ. В вы- 
зывающей программе предусмотрен обработчик этого сообщения, в котором реа- 
лизуются необходимые действия. 


Особенности использования модулей в ОЫ- 


В О. можно ссылаться на любые модули Пер} в предложении изез. Однако 
следует помнить, что инициализирующие и завершающие секции этих модулей не 
будут исполняться в момент загрузки программы в память и при завершении ее 
работы, если на те же модули не ссылается основная программа или один из ее 
модулей. В некоторых случаях это может привести к обращению внутри ОТ. 
к объектам, не созданным в инициализирующей части модуля, и, как следствие, 
к краху программы. 

Если, например, библиотека работает с технологией автоматизации ОГЕ (см. гла- 
ву 25), она должна ссылаться на модуль СомОБ3 , в инициализирующей части ко- 
торого создается объект компонентного класса для доступа к дуальным интерфей- 
сам (см. главу 24). При разработке ОТ, для использования в среде Ое]рЬ! эта 
проблема легко решается добавлением ссылки на модуль (модули) в главной про- 
грамме или любом ее модуле. Однако если ОТ. разрабатывается для продажи или 
работы с другими системами программирования (У15ца] Ваз1с, С++, | ВиЙ4ег ит. п.), 
эта проблема в большинстве случаев неразрешима, так как в инициализирующей 
части модуля часто используются обращения к полям и методам, закрытым для 
доступа вне модуля. 


Глава 24 
Интерфейсы 


Интерфейсы играют главную роль втехнологии СОМ (см. следующую главу) и свя- 
занных с ней технологиях удаленного доступа, то есть технологиях доступа к объек- 
там, расположенным (и выполняющимися) на другой машине. Их основное на- 
значение — описать свойства, методы и события удаленного объекта в терминах 
машины клиента, то есть на используемом при разработке клиентского прило- 
жения языке программирования. С помощью интерфейсов программа клиен- 
та обращается к удаленному объекту так, как если бы он был ее собственным 
объектом. 
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Описание интерфейса 


Описание интерфейсов представляет собой частный случай описания классов. 
Интерфейсы объявляются с помощью зарезервированного слова 1пех{асе. На- 
пример: 
фуре 
ТЕа1%е = 1п6егЕасе 
ргоседиге Сору; $®аса11; 
ргосеаиге Сое; $&аса11; 
ргосеаиге Разее; $%аса11; 
ЕипсЕ1оп Опао: Воо1еап; $&аса11; 
епа; 


Такое объявление эквивалентно описанию абстрактного класса в том смысле, 
что не требует расшифровки объявленных в интерфейсе свойств и методов. В от- 
личие от классов, интерфейс не может содержать поля, и, следовательно, объявля- 
емые в нем свойства в разделах геа4 и ихг1 $е могут ссылаться только на методы. 
Все объявляемые в интерфейсе члены размещаются вединственной секции руБ1 1 с. 
Методы не могут быть абстрактными (аъ &гас\®), виртуальными (\1г6па1.), ди- 
намическими (4упам1с) или перекрываемыми (оуегг14е)Д. 


Создание и использование интерфейсов 517 


ПРИМЕЧАНИЕ По принятому в ОерЫ соглашению имена интерфейсов начинаются 
буквой Т. 


Идентификатор интерфейса 


Если интерфейс предполагается использовать в технологии СОМ, он обязательно 
должен снабжаться так называемым глобально уникальным идентификатором 
(СТоБаПу Чшаце 14епийег, СОТО). Этот идентификатор (Пиегасе Чепийег, ПО) 
создается по специальной технологии, гарантирующей ничтожно малую вероят- 
ность совпадения вновь создаваемого ПР с любым ранее созданным'. 


ПРИМЕЧАНИЕ В среде Ое!р! для получения СОТО достаточно нажать комбинацию 
клавиш (+5 +6. Для программного получения СОТО следует об- 
ратиться к функции АРТ СоСгеаеесОтЬ. 


Любой СОТО сохраняется в структуре следующего вида: 
фуре 
РСОТРО = ^ТСОТО; 
ТСОТР = гесога 
2]: ГопаМога; 
02: Моа; 
03: Шога; 
04: аггау [0..7] оЕЁ Вуее; 
епа; 


Поскольку оперировать подобной структурой сложно, Пер! позволяет запи- 
сывать ее в виде такой строки: 


'{ХххххХХхХХХхХ-ХХхХХхХ-ХХХхХх-ХхХХхХХхХх-ХхХххХхххХххххХх } ' 


Здесь Х — шестнадцатеричная цифра. 
Идентификатор интерфейса записывается сразу за его начальным объявлени- 
ем. Например: 


фуре 

ТЕЧ1е = 1п6егЕасе 
['{ВСС5С45Е-АСОЕ-4ЕСЗ-ЭЕЗЕ-6105448423ЕА} ' ] 
ргосеасге Сору; $зЕаса11; 
ргосеаиге Сое; $Еаса11; 
ргосеаиге Разфе; $%4са11; 
ЕапсЕ1оп Опао: Воо1еап; $Еаса11; 


Программист может объявлять типизированные константы типа ТСОТЬ, 
например: 


' СО] представляет собой 128-разрядное целое число. Его уникальность обеспечивается достаточно 
большим числом и великолепным алгоритмом его генерации, в котором используются текущие дата 
и время, тактовая частота процессора и номер сетевой карты. Наличие в компьютере сетевой карты 
гарантирует уникальность СОТ, так как по существующему отраслевому стандарту каждая сетевая 
карта имеет уникальный идентификатор. 
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сопзЕ ТТО ТРазпе: ТСОТО = 
['{АЗАГЕВб1-7705-1102-8841-444553540000}']; 


Константы СОТО могут использоваться вместо имен интерфейсов при вызове 
подпрограмм. Например, два следующих обращения идентичны: 


ргосеиге Ра1п® (сопз® ТТО: ТСОТО); 


Ра1п+ (ТРа1п®); 
Ра1п®е (ТТО Ра1п®); 


Компонентный класс 


Интерфейсы не могут иметь конструкторов и деструкторов, так как описываемые 
в них методы реализуются только в рамках поддерживающих их классов, которые 
называются компонентными (со-с1а5$). 

Если компонентный класс поддерживает интерфейс, имя этого интерфейса ука- 
зывается при объявлении класса в списке его родителей: 


ТЕа1еог = Сс1аз$$ (ТТпсегЕасеяою]есе, ТЕазе) 
ргосеаиге Сору; $Еаса11; 
ргосеаиге СоЕ; $Еаса11; 
ргосеаиге Раз(е; $6аса11; 
ЕапсЕ1оп Опао: Воо1еап; $&@аса11; 
епа; 


В отличие от обычного класса, компонентный класс может иметь более одного 
родительского интерфейса: 
Суре 
ТМуТпсегЕасе = 1п6егЁасе 
ргоседиге Пе1ефе; з%аса11; 
епа; 


ТМУЕЯ1 ог = ©1а$$ (ТТпсегЕасеяаОр1есе, ТЕЗТе, ТМуТпфегЕасе) 
ргосеаиге Сору; $&аса11; 
ргосеаиге Сое; $%аса11; 
ргосеаиге Раз{е; $&аса11; 
Еипсе1оп ОпЧо: Воо1еап; $&4са11; 
ргосеаиге Пе1ете; $%4са11; 
еп; 


В любом случае в разделе реализации компонентного класса необходимо опи- 
сать соответствующие интерфейсные методы. Пусть, например, объявлен следую- 
щий интерфейс: 


ТРазпЕ = 1пегЁасе 
ргосеаоге С1гс1еРа1п* (Сапуа: ТСапуаз$; Х,У,В: Тпеедег); 
ргосеаиге КесЕРа1пЕ (Сапуа: ТСапуаз; Х1,У1,Х2,У2: 
Тпфсеаег); 
епа; 


Пусть также объявлен поддерживающий его компонентный класс: 
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ТРа1пеег = с1азз (ТТпеегЕасеЯОю]есе, ТРа1п\) 
ргоседиге С1гс1еРа1п® (Сапуа: ТСапуаз; Х,У,В: Тпуедег); 
ргосеаиге КесЕРа1п* (Сапуа: ТСапуаз; Х1,\У1,Х2,\2: 
Тпседег); 
епа; 


Тогда в разделе 1тр1емепеа& оп следует указать реализацию методов: 


ргосеаиге ТРа1пфег.С1кс1еРа1п® (Сапуа: ТСапуаз; Х,У,В: 
Тпсеаег); 
Бед1п 
м1ЕВ Сапуа ао 
Е11]1рзе(Хх, У, Х+2*В, У+2*8В); 
епа; 


ргосеааге ТРа1пфег.КесЕРа1п{ (Сапуа: ТСапуаз; 
Х1,У1,Х2,У2: Тпъедег); 
Бед1п 
\1ЕП Сапуа ао 
Вес$бапа1е (Х1, \У1, ХО, У2) 
епа; 


Теперь можно объявить интерфейсный объект класса ТРа1п+, чтобы с его по- 
мощью нарисовать окружность и квадрат: 


ргоседаге ТГогп1.Ра1пеВох1Ра1п® (бепаег: ТОБ]ес®); 
уаг 
Ра1лпфег: ТРа1пЕ; 
Бед1п 
Разлпеег := ТРалпеег.Сгеа*е; 
РазлпЕег.С1гс]1еРа1птЕ (РазпЕВох]1.Сапуа$,10,0,10); 
Ралпф ег. КесеРа1п® (Ра1п®Вох1.Сапуаз,40,0,60,20)}; 
епа; 


Несмотря на то, что интерфейс всегда объявляется до объявления поддержива- 
ющего его компонентного класса и, следовательно, известен компилятору, его ме- 
тоды обязательно должны быть перечислены в объявлении класса. В нашем слу- 
чае простое указание классов, как это показано ниже, было бы ошибкой: компилятор 
потребовал бы вставить описание методов С1+с1еРа1п* и ВесеРа1п%. 

Суре 

ТРа1пеег = с1а$$ (ТТпеегЕасеаор]есе, ТРа1п®) 
епа; 


Класс Тиме{аседаОЦес{ и интерфейс ШпКпом 


Подобно тому как все классы в ОерЬ! порождены от единственного родителя 
ТОБ-еск, все компонентные классы порождены от общего предка ТТпеегЕасеа- 
ОБ-ес+. Этот предок умеет распределять память для компонентных объектов 
и использует глобальный интерфейс ТОпКпои: 


фуре 
ТТпсегЕасеаО6]есе = с1а$$ (ТОБ]есе, ТОпкпомп) 
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рг1уаее 
ЕВеЕСоцп®: Тпфедег; 
рговес%еа 
Еапсе1оп ОпегуТпеетгЁасе (соп5$® ТТО: ТСОТО; 
оцЕ ОБ)): Тпбедег; з%аса11; 
Еопсе1оп АдаВеЕ: Тпседег; $%@аса11; 
Еапсе1оп Ке1еазе: Тпбфедег; $&@аса11; 
раЬ11с 
ргорегеу КеЕСоппе: Тпеедег геаа ЕКеЕСоппе; 
епа; 


Интерфейс ТОпКпомч, в свою очередь, является базовым для создания любого 
интерфейса. Он объявлен так: 
фуре 
ТОпкпом = 1п6егЕасе 
['{00000000-0000-0000-С000-000000000046}'] 
Еипсе1оп ОцегуТпеег[асе (соп$® ТТО: ТСОТО оч: 051): 
Тпсеаег; 
$Е4са11; 
Еипсе1оп _АЧаВеЕ: Тпбедег; $&4са11; 
Еипс&1оп Ве1еазе: Тпфедег; $&4са11; 


В рамках этого интерфейса декларируются три метода. Метод _АааВеЕ увели- 
чивает на 1 счетчик ссылок на интерфейс, в то время как метод _Ве1еазе умень- 
шает на 1 этот счетчик. Метод _АдавеЕ пользователь вызывает всякий раз, когда 
он хочет получить доступ к интерфейсу, а метод Ве1еазе вызывается, когда на- 
добность в интерфейсе отпадает. Как только в счетчике оказывается ноль, соответ- 
ствующий объект интерфейса (компонентного класса) перестает существовать 
и сам себя выгружает из памяти. Таким образом, интерфейсы (компонентные клас- 
сы) порождают объекты с управляемым временем жизни. Метод ОцегуТпеегЕасе 
предназначен для того, чтобы пользователь выяснил, поддерживает ли компонен- 
тный объект нужный интерфейс ПО. Если это так, становится действительной 
ссылка ОБ) на нужный компонентный объект, и метод возвращает ноль. 


ПРИМЕЧАНИЕ Опытные программисты, использующие другие языки программиро- 
вания, знают, что название метода не может начинаться символом под- 
черкивания. Сделано это для того, чтобы скрыть от программиста этот 
метод. Таким образом, ни один из методов интерфейса ТОпКпом не 
должен вызываться явно (хотя Вер! и предоставляет такую возмож- 
НОСТЬ). 


Псевдонимы методов 


Методы компонентного класса могут исполняться под именами, отличными от имен 
методов интерфейса. Для этого При описании компонентного класса за именем 
интерфейсного метода ставится знак равенства и имя метода, который будет ВЫ- 
зываться вместо него: 
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ТРа1пфег = с1азз (ТТпбегЕасеяОЬ)есе, ТРа1п%) 
ргосеааге ТРа1пе.С1гс1еРа1пе = СРа1п%; 
ргосе4иге ТРа1пе.КесеРа1п® = ВРа1п\; 
ргосеаиге СРа1п{ (Сапуа: ТСапуаз$; Х,У,В: Тпееаег); 
ргосеаиге КРа1п* (Сапуа: ТСапуаз; Х1,\1,Х2,У2: Тпеедег); 
епа; 


Приведение интерфейсных типов 


К интерфейсному объекту можно применить оператор приведения типов аз, что- 
бы использовать нужный интерфейс: 


ргосеаиге Ра1пеОр)есе$(Р: ТТлеегЕасеЯОь)ес+) 
уаг 
Х: ТРа1пЕ; 
Бед1п 
Еху 
Х := Р аз ТРа1пЕе; 
Х.С1гс1еРазпт® (Ра1пВох1.Сапуаз,0,0,20) 
ехсер* 
эзпомМе$заде ('Объект не поддерживает интерфейс ТРа1пе') 
епа 
епа; 


Встретив такое присваивание, компилятор создаст код, с помощью которого 
вызывается метод ОцегуТпеегасе интерфейса ТОпкпом с требованием вернуть 
ссылку на интерфейс ТРа1п+. Если объект не поддерживает указанный интерфейс, 
возникает исключительная ситуация. 


Уполномоченные свойства 


С помощью зарезервированного слова 1тр1етеп*з программист может делеги- 
ровать какому-либо свойству некоторого класса полномочия интерфейса, сделав 
это свойство уполномоченным. Это свойство должно иметь тип интерфейса или 
класса. Если свойство имеет тип интерфейса, имя этого интерфейса должно ука- 
зываться в списке родителей класса, как если бы это был интерфейсный класс: 
суре 
ТМуТпъегЕасе = 1пегЕасе 
ргосеаиге Р]1; 
ргосеаиге Р2; 
епа; 


ТМуС1аз5$ = с1азз$ (ТОБ]есе, ТМу!ТпбегЕасе) 
ЕМуТпеегЕасе: ТМуТпфегЁасе; 
ргорегЕу Му!пфегЁЕасе: ТМуТпфегЁЕасе хеаа ЕМу1ТпеегЕасе 
1пр1етеп®$ ТМуТптегЕасе; 
епа; 


522 Глава 24. Интерфейсы 


Обратите внимание: в этом примере класс ТМуС1а$5$ не является компонент- 
ным классом, то есть классом, в котором исполняются методы Р1 и Р2. Однако 
если из него убрать определение уполномоченного свойства МутпсегЕасе, он ста- 
нет компонентным и в нем должны быть описаны методы интерфейса тТМуТпхег- 
Гасе. 

Уполномоченное свойство обязательно должно иметь часть геаа. Если оно 
имеет тип класса, класс, в котором оно объявлено, не может иметь других уполно- 
моченных свойств. 


Объекты автоматизации и интерфейс 
1О1зратсв 


В технологиях ОГЕ/СОМ (см. главу 25) активно используются так называемые 
объекты автоматизации (Аиютайоп об7есё$). Эти объекты представляют собой 
экземпляры компонентных классов, родительским интерфейсом которых являет- 
ся специальный интерфейс 101 зраесй. Отличительной особенностью интерфей- 
са ТО1зраксН является то обстоятельство, что методы объектов автоматизации 
никогда не вызываются напрямую, но всегда — с помощью метода Тпуоке интер- 
фейса 101 зрафсв. 

Для объявления класса автоматизации используется специальное зарезерви- 
рованное слово 415рапеегЕасе, а перечисляемые в объявлении методы и свой- 
ства должны снабжаться целочисленными идентификаторами, которые вставля- 
ются в конце описания методов (свойств) после зарезервированных слов 41$р1 а: 

фуре 

156х1109$5015р = 418ра1пфегЕасе 
['{ЕЕЁОЗОЕЕ?-5549-11р0-9ЕАЭЗ-0020АЕЗЬ82РА } ' ] 

ргорег®у Сопего1ПеЁао1* [Тп4ех: ТпЕедех]: О1е\Уаг1апе 
9415$р1а 0; аеЁац1*; 

Еипсе1оп Соопе: Тпбедег; @а15р1Аа 1; 

ргорегеу Теепт[Тпаех: Тпбедег]: О1еУаг1апе &415рёа 2; 

ргосеаиге Ветоуе (Тпаех: Тпеедег); @а1зр1за 3; 

ргосеаиге С1еаг; 415р1а 4; 

Еопсе1оп Ааа (Тбет: О1еУаг1ап®): Тпеедег; &41зрза 5; 

ЕопсЕ1оп МемЕпим: ТОпКкКпомп; &Я1$р1а -4; 

епа; 


С помощью зарезервированного слова 415$р1А методу (свойству) интерфейса 
ставится в соответствие целочисленный номер. Это дает возможность языкам про- 
граммирования, не поддерживающим указатели (У15иа| Вазс, ]ауа и др.), обра- 
щаться к методам и свойствам интерфейсных объектов по их именам. Для этого 
объект, имеющий интерфейс, родителем которого является 41зр1п+егасе, ав- 
томатически создает таблицу имен его методов и свойств с указанием идентифи- 
каторов 41зр:4. При обращении к методу по имени компилятор создает код вы- 
зова специального метода Т21зрабесп.сСеетрзОЕМаме. Этот метод отыскивает 
в таблице имен нужное имя и возвращает соответствующий идентификатор 91 5рз а 
(если имя не найдено, возникает исключительная ситуация). Затем программа 
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использует полученный идентификатор как один из аргументов вызова метода 
121 зрафсВ .Тпуоке. Этот метод отыскивает описание вызываемого метода в спе- 
циальной таблице, проверяет количество и тип передаваемых методу параметров 
вызова и, если все правильно, вызывает его. 

В отличие от обычного компонентного класса, класс автоматизации не может 
иметь родительского класса, и поэтому за словом 41$р1пегЕасе нельзя указать 
список родителей. Идентификаторы методов (свойств) должны быть уникальны- 
ми в пределах объявления класса. Все возвращаемые функциями и свойствами 
результаты, а также все параметры обращения к методам должны иметь один из 
следующих типов: Вуфе, Сиггепсу, Кеа1, РооЪ1е, ГопаТпе, Тпфедег, 51п91е, 
5ма11Тп®, Ап$156г1па, Итаезег1па, ТРафеТ1те, Уаг1ап&, О1е\Уаг1апк, 
МогВоо1 или любой интерфейсный тип. За исключением директивы Яе{аз1*, 
которую можно указать для свойства-массива, никакие другие директивы в объяв- 
лении методов и свойств не допускаются. 

Для доступа к объектам автоматизации используются переменныетипа вариант. 
Инициализация такой переменной осуществляется вызовом функции Сгеафе- 
О1е0Ь) ес, определенной в модуле СотОЪ). Эта функция возвращает ссылку на 
интерфейс 101 зрафсн, с помощью которой можно обращаться к методам и свой- 
ствам класса автоматизации так, как если бы они были методами и свойствами 
варианта. Например: 


Озез Сотор]; 


\аг 
Мога: Уаг1апе; 
Бед1п 
Йога := Сгеа$еоО1е0Ь)есе ('МогЯ.Ваз$1с'); 


Иога.Е11е№еим ('М№стгмта1'); 

Иога. Тпзег® ('Первая строка'#13); 

Мога. Тпзег® ('Вторая строка'$13); 

Йога. Е11ебауеАз ('с:\сепр\безе.ехе', 3); 
епа; 


Параметром обращения к методу Сгеа+е01е05- ес является имя сервера авто- 
матизации, которое должно быть предварительно зарегистрировано в реестре 32-раз- 
рядных версий \!114о\5. Характерно, что методы сервера не известны на этапе ком- 
пиляции программы, поэтому компилятор никак не контролирует правильность их 
вызовов. Названия методов не подчиняются правилам построения идентификато- 
ров Ое|рЫы, и в них могут использоваться символы национальных алфавитов. 

Передаваемые методам параметры могут быть позиционными и именованны- 
ми. Позиционные параметры являются обычными для подпрограмм Пер пара- 
метрами-значениями. Именованные параметры записываются в следующем виде: 


<имя _параметра> := <значение> 


Например, при обращении к методу Е11ебауеАз (см. выше) были использо- 
ваны два позиционных параметра. Это же обращение можно было бы записать с ис- 
пользованием именованных параметров следующим образом: 


Иога.Е11ебауеАз (Гогмаф := 3, Мате := 'с:\бепр\$езе.ехе'); 
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Именованные параметры могут перечисляться в произвольном порядке, но обя- 
зательно после позиционных параметров, если те тоже присутствуют в обраще- 
НИИ. 

Интерфейсы — наследники от Т21зраесв — называются дуальными, так как 
они дублируют свойства и методы основного интерфейса. Иными словами, Оеры 
может выполнять одну и ту же работу, либо обращаясь к экземплярам компонент- 
ного класса и используя указатели на нужные методы, либо по имени — с помощью 
дуального интерфейса. В отличие от этого, в У15иа| Ваз1с доступен только послед- 
ний способ. Методы дуальных интерфейсов (кроме унаследованных от интерфей- 
сов ТОпкпом и 101 зраёсь) должны компилироваться в режиме заЁеса1 1. 


Глава 25 
Технология СОМ 


Технология СОМ (Сотропепе ОБесё Моде]! — компонентная модель объектов) 
является краеугольной технологией \/1п4о\з. Ее истоки можно найти еще в \п- 
4о\з 3.х в виде технологии ОПЕ (Пупапис Оаа ЕхсБапзе — динамический обмен 
данными). Эта технология использовала механизм сообщений \/т4о\:з для пере- 
дачи данных от одной программы (клиента) в другую (сервер). Позднее эта техно- 
логия стала основой техчологии ОГЕ (ОБесё Тло1п5 апа ЕтБедате — связыва- 
ние и внедрение объектов), в которой программы обменивались не абстрактными 
данными, а объектами в зиде рисунков, фрагментов текста и т. п. Затем появилась 
технология ОГ.Е2, в которой инициатор общения (клиент) могавтоматически «раз- 
будить» спящий сервер (то есть заставить его работать, даже если перед этим сер- 
вер не был загружен в память компьютера). Многомиллионные инвестиции, сде- 
ланные корпорацией М!сгозой в развитие упомянутых технологий, привели, в конце 
концов, к появлению мощной технологии СОМ, которая с необычайной легкос- 
тью интегрирует программы М$ ОЁйсе, дает возможность любой другой програм- 
ме (в том числе и созданной в Ое|р!) обращаться к потенциальными СОМ-серве- 
рам с требованием выполнить ту или иную работу, наконец, заставить работать 
СОМ-сервер установленный на другой машине (возможно, в другой части света)! 

Добавление в СОМ двух важных составных частей — сервера траизакиий М!- 
сгозоЁ (М1сгозоЁ ТгапзасЯоп Зегуег, МТЗ) и очереди сообщений Мпсгозой (М1сго- 
50Ё Меззаве Оцеце, ММО) трансформировало СОМ втехнологию СОМ+, кото- 
рая стала органической составной частью У/ш4о\з 2000/ХР. Новый стандарт 
позволяет всем пользователям новейших версий \\!114о\$ пользоваться преиму- 
ществами таких средств, как управление транзакциями, поддержка безопасности, 
удаленное администрирование ит. д. 

Я уверен, что как бы плохо не относился тот или иной профессионал к продук- 
там М!сгозой (а ругать эту корпорацию и ее основателя и руководителя Б. Гейтса 
уже давно стало «признаком хорошего тона»), он не может «не снять шляпу» пе- 
ред этой технологией. Говорить о программировании в Оеры и не раскрыть хотя 
бы некоторых тайн СОМ было бы с моей стороны просто непростительно. 


Некоторые детали технологии 


Технология СОМ представляет собой строго регламентированную спецификацию, 
определяющую требования к общающимся программам. При соблюдении этих 
требований гарантировано взаимодействие любых программ независимо от ис- 
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пользовавшегося при их создании языка программирования и места выполнения 
программ — в одном процессе, в разных процессах на одном компьютере, наконец, 
на разных компьютерах. 

Общающиеся программы называются клиентом и сервером. Клиент является 
инициатором общения. Он обращается к одной из служб (сервисов) сервера с тре- 
бованием получения некоторых данных и/или выполнения некоторой работы 
с данными, которые передаются серверу. Службы сервера реализуются в виде од- 
ного или нескольких входящих в его состав объектов СОМ. Каждая служба опи- 
сывается своим интерфейсом; один объект может содержать произвольное коли- 
чество служб и, таким образом, специфицироваться множеством интерфейсов. 
Любой сервер содержит как минимум один объект СОМ. Он (сервер) реализуется 
в виде исполняемого файла или библнотеки 01... Характерной особенностью тех- 
нологии является автоматическая активизация сервера при обращении к нему кли- 
ента. Если сервер закончил обслуживание всех клиентов, он также автоматически 
выгружается из памяти. 

В этом разделе рассматривается техника взаимодействия с помощью интерфей- 
сов, механизм автоматической активизации сервера, а также некоторые другие 
детали СОМ, необходимые для понимания принципов и терминологии этой тех- 
Нологии. 


Взаимодействие с помощью интерфейсов 


Интерфейс представляет собой абстрактный класс, описывающий методы и свой- 
ства объекта (см. главу 24). Получив тем или иным способом ссылку на интерфейс 
объекта, клиент может обратиться к этим методам и свойствам так, как если бы 
объект был его (клиента) составной частью. Каждый интерфейс в рамках СОМ 
снабжается глобально-уникальным идентификатором (СОТО), что гарантирует его 
неизменность и, таким образом, обеспечивает нужное обслуживание клиента не- 
зависимо от возможной модификации объекта. 

Любой объект имеет интерфейс ТОпкпом, с помощью которого решаются две 
важнейшие проблемы: корректное освобождение выделенных объекту системных 
ресурсов при его уничтожении и предоставление клиенту ссылки на экземпляр 
(объект) класса, в котором реализован нужный клиенту интерфейс (компонент- 
ный класс). 

Суть первой проблемы состоит в том, что, в общем случае, клиент и сервер вы- 
полняются в разных процессах и, кроме того, сервер может одновременно обслу- 
живать нескольких клиентов. Каждый процесс обслуживается своим менеджером 
памяти, поэтому клиент не может корректно освободить связанные с объектом 
ресурсы после того, как его запрос был удовлетворен. Более того, если, например, 
текстовый процессор \У/ог4 одновременно обслуживает двух клиентов, то его уда- 
ление одним из них приведет к тому, что второй будет иметь ссылку на несуще- 
ствующий объект и его попытка обратиться к методу или свойству процессора \!ога 
приведет к возникновению исключительной ситуации. Для решения этой пробле- 
мы интерфейс ТОпкпом содержит методы АаавеЕ и Ве1еазе. Первый автомати- 
чески вызывается в момент получения запроса от клиента, при его выполнении 
наращивается на единицу внутренний счетчик ссылок. Второй вызывается в мо- 
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мент завершения обслуживания клиента и уменьшает этот счетчик на единицу. 
Если счетчик содержит ноль, сам серверный объект вызывает собственный де- 
структор, поэтому связанные с объектом системные ресурсы освобождаются вполне 
корректно и только тогда, когда в услугах объекта не нуждается ни один клиент. 
Для предоставления клиенту ссылки на нужную службу сервера в интерфейсе 
ТОпКпом имеется метод Оцегу1пеегЕасе. Он получает от клиента идентифика- 
тор ПО (Пцегасе Цепийег — так называется СОТО для интерфейса) требуемого 
интерфейса, просматривает список всех интерфейсов объекта и, если нужный ин- 
терфейс обнаружен, возвращает указатель на реализующий его объект. Более по- 
дробно алгоритм его работы после того, как интерфейс найден, описан ниже. 


1. Проверяется, не был ли ранее создан экземпляр компонентного класса (то есть 
объект, реализующий описанные в интерфейсе методы и свойства), если нет — 
вызывается конструктор класса. 


2. Вызывается метод АаЗВеЕ этого экземпляра (объекта), чтобы увеличить его 
счетчик ссылок на единицу. 


3. В нетипизированную переменную ОБ) ‚ передаваемую клиентом в качестве па- 
раметра обращения, помещается указатель на экземпляр компонентного клас- 
са, а в результат — значение $_ОК. 


Получив указатель на интерфейсный объект и зная собственно интерфейс (как — 
об этом говорится ниже), клиент может обращаться к свойствам и методам объек- 
та, как к своим собственным. 

Замечу, что указатель недействителен в адресном пространстве клиента (за 
исключением случая, когда объект СОМ содержится в ОТ..). Для разрешения кли- 
енту использования ссылки на адресное пространство сервера в программе серве- 
ра создается специальный объект заглушка (5и6) — полномочный представитель 
клиента в адресном пространстве сервера, а в программе клиента — объект замес- 
титель (ртоху), который является полномочным представителем сервера в адрес- 
ном пространстве клиента. Оба объекта связываются друг с другом и преобразуют 
указатели: когда сервер передает клиенту указатель, заглушка заменяет его указа- 
телем, действительным в адресном пространстве клиента. Точно так же поступает 
и заместитель, осуществляющий обратное преобразование. 

После завершения работы с сервером клиент обращается к его интерфейсному 
методу Ве1еазе. При программировании в Ое!рЬ! последнее делать не нужно, так 
как компилятор автоматически создает код завершения программы, в котором про- 
веряется действительность указателей на интерфейсные объекты и при необ- 
ходимости реализуются вызовы их методов Ве1еазе. 

В модуле $уз0%1 15 объявлены две функции: 


ЕапсЕ1оп биррогЕ$ (сопз® Тпзеапсе: ТОпКпомп; 
сопзЕ ТпЕЕ: ТСОТО; ом 115%): Воо1еап; 
ЕапсЕ1оп биорроге$ (Тпзбапсе: ТОБ]есе; 

сопзЕ ТпЕЁЕ: ТСОТО; оц Тп5е): Воо1еап; 


Эти функции по ссылке ТпзЕапсе на интерфейс или интерфейсный объект 
и СООО интерфейса определяют, поддерживает ли Тпзфапсе интерфейс ТпеЕ 
и, если да, возвращают в параметре Тпз+ ссылку на реализующий его объект 
и Ткие в качестве результата. 
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Фабрика классов и автоматический 
запуск сервера 


Фабрика классов — это специальный интерфейс тС1аззКаскохгу, экземпляр ком- 
понентного класса которого автоматически создается в момент старта сервера. 
Назначение этого интерфейса — дать клиенту возможность обращения кего мето- 
ду Оцегу1пеегЕасе, чтобы клиент мог получить ссылку на нужную службу сер- 
вера. Создание интерфейсного экземпляра фабрики классов обычно осуществля- 
ется в секции 11181а112а1оп соответствующего модуля. 

Для автоматического старта сервера его необходимо зарегистрировать в сис- 
темном реестре \/тао\з. При регистрации в секции НКЕУ СЬАЗЗЕ$ _КООТ реест- 
ра создается узел с именем сервера, в который помещается ПО фабрики классов 
(рис. 25.1). 


| Файл. Правка’ ‚Вид. ‚ Избранное Справка 


5 Сичег 
$ Мей Догг аНом 10 


мо компьюотер\НКЕУ АЗЗЕб. "ВОО дррисанол\СА5ТО 


Рис. 25.1. Регистрация сервера М/ога.Ваз!с 


С помощью этой записи символьное имя сервера связывается с [ПО его фабри- 
ки классов. Чтобы связать ПО с маршрутом доступа к серверу, в узле НКЕУ_ 
СТАЗЗЕЗ_КООТ . СЬЗТО создается узел с именем ТТ, в подузел которого госа1- 
Зегуег32 (или ТпРгос5егуег32 — зависит от реализации сервера — ЕХЕ или 
01.1.) помешается маршрут (рис. 25.2). 


Е 1 мне = 
зы МИМРЕйе 
м мог, заррисавоя 


И ие 
\6сгйЯ. доееаНог 17. 


Рис. 25.2. Регистрация маршрута доступа к серверу 


Для регистрации нового сервера программисту совсем не обязательно записы- 
вать вручную эти данные — ОерЫ имеет собственные средства регистрации сер- 
вера и удаления информации о нем из реестра. Для запуска сервера клиент об- 
ращается к системной функции СоСгеафеТпз{апсе, передавая ей в качестве 
параметра ПО фабрики класса. Функция отыскивает в системном реестре нуж- 
ный узел, считывает в нем маршрут доступа к серверу, загружает и запускает сер- 
вер, после чего обращается к методу СсеакеТпзеапсе фабрики класса для по- 
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лучения ссылки на нужный интерфейс. Замечу, что клиент, созданный с помощью 
Бер, обычно имеет библиотеку типов сервера (см. ниже), с помощью которой он 
может обратиться непосредственно к методам интерфейса фабрики классов (без 
вызова СоСгеафе1Тптзкапсе). 


Библиотека типов 


Библиотека типов создается в Ое|рН! автоматически в момент создания сервера 
СОМ. Ее назначение — дать клиенту исчерпывающую информацию обо всех ин- 
терфейсах сервера. Получив библиотеку типов, клиент может ссылаться на любые 
методы и свойства любого интерфейса, если в его предложение а5ез включена 
ссылка на эту библиотеку. Это дает возможность компилятору реализовать стати- 
ческое (раннее) связывание с методами (свойствами) интерфейсного объекта, а так- 
же проконтролировать правильность обращения к ним. Библиотеки типов и спе- 
циальный редактор для работы с ними будут подробно рассмотрены в обсуждаемых 
ниже примерах. | 

Если по каким-либо причинам у программиста, создающего приложение кли- 
ента, нет библиотеки типов сервера, он может вызывать свойства и методы по име- 
нам — такое связывание называется динамическим (поздним). Для реализации 
позднего связывания используется интерфейс диспетчеризации (наследник ин- 
терфейса тр1зраесН), который автоматически включается в библиотеку типов 
сервера СОМ. Позднее связывание характеризуется некоторыми дополнительны- 
ми накладными расходами и обычно в практике создания клиентов в Рефры не 
используется. 


Пример использования 


В обсуждаемом ниже примере клиент обращается к серверу с указанием имени 
одного из графических файлов. В ответ сервер посылает ему этот файл, а клиент 
воспроизводит полученное изображение в своем компоненте ТТмасде. Вид окна 
работающего клиента показан на рис. 25.3. 


: Получить рисунок ! 


Рис. 25.3. Вид окна работающего клиента 
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Окно сервера в нашем примере не видно по той простой причине, что после 
завершения обслуживания клиента оно тут же исчезает с экрана. 

Перед тем как начать работу над сервером, необходимо настроить среду Оеры: 
выберите команду То0(5 » Епмтоптеп* ОрНоп$ и на вкладке Туре ИБгагу открывшего- 
ся диалогового окна выберите язык Разса| (по умолчанию выбран язык ШТ, для 
совместимости с технологией СОВВА). 


Сервер 


Начните новый проект (СПар_25\Ехатр(е ССМ\$егуВМР.арг), выбрав команду Ее › 
№ем/ › О{Веги на вкладке АсНуеХ окна хранилища объектов дважды щелкнув на значке 
Ашотайоп ОБесЕ. Запустится мастер создания объектов автоматизации (рис. 25.4). 


| уоапсй . 


] . тета М Моде! 


|. оо. лени или ее ... еее 
Г бепеав Ечем здоро соде о с 5 


_]  Сапсе ._ 


Рис. 25.4. Окно мастера создания объектов автоматизации 


В поле Со(а5$ Мате нужно указать имя компонентного класса, в котором будет 
реализован интерфейс объекта автоматизации — введите в ней имя ЗегуехВМР. 
Назначение остальных интерфейсных элементов описано ниже. 


* ш&апстад — позволяет выбрать количество создаваемых объектов: 
О Гегпа( — объект реализуется в виде О1Т.Т; 


С] Упае — объект существует в единственном экземпляре, повторный запрос 
клиента будет обслуживаться только после завершения работы с текущим 
клиентом; 


С Мш@рЁе Тп${апсе — каждый запрос клиента порождает новую копию объекта, 
которая может работать независимо от других. 


# ТИтеад Моде! — определяет используемую объектом модель потоков команд: 


О $п9д(е — каждый запрос клиентов к любому объекту использует один и тот 
же поток, поэтому запросы обрабатываются по очереди; 


О АрайтепЕ — для обслуживания каждого запроса создается свой поток, в ко- 
тором выполняется одна копия объекта; обращения к общей глобальной па- 
мяти должны проходить при блокировке других потоков, в так называемых 
критических секциях; в этом режиме разрешается параллельное обслужи- 
вание запросов к разным объектам сервера (сервер может содержать более 
одного объекта СОМ); 
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С] РНее — разрешает параллельное обслуживание любых запросов; 
С] Во{А — совмещает модели Ара{тепе и Ётее. 


}} бепегафе Емепё зиррог* соде — при установке флажка мастер создаст код для об- 
работки происходящих на сервере событий. 


Оставьте умалчиваемые значения в списках [п${апс1пд и ТИгеа41пд Моде! не тро- 
гайте флажок бепега{е ЕуепЕ зирро" со4е и закройте окно щелчком на кнопке ОК. 
Откроется окно редактора библиотек типов (рис. 25.5). 
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Рис. 25.5. Окно редактора библиотеки типов 


С помощью редактора библиотек типов в создаваемый интерфейс объекта СОМ 
вносятся необходимые изменения. В частности, с помощью кнопки № ем Ме под ‚| 
в интерфейс вставляется новый метод. На рис. 25.5 эта кнопка недоступна, так как 
в окне браузера не выбран интерфейс. Выберите интерфейс т5егуегВМР, щелк- 
ните на кнопке №ем Ме{Под и измените умалчиваемое имя метода Меепоа1 именем 
СеевВМР. Вновь созданный интерфейсный метод должен выполнять всю работу по 
запросу клиента: он принимает в качестве входного параметра имя графического 
файла и возвращает клиенту массив считанных из файла байтов. Таким образом, 
метод является функцией с входным параметром типа И1ае$ Е г1па и типом ре- 
зультата О1еУаг1ап*. Перейдите на вкладку Рагате{егз, в раскрывающемся спис- 
ке Кефигп Туре выберите тип возвращаемого результата 0(е\апап и сформируйте 
параметр обращения Маме типа И1Че$+г1па! (рис. 25.6). 


' Если в списке типов не найдены О]1еУаг1ап® или №1 Зе5*к1па, выполните описанную в начале 
параграфа процедуру настройки языковой поддержки библиотеки тинов. 
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Рис. 25.6. Формирование возвращаемого методом СеВМР результата и входного параметра 


Если теперь щелкнуть на кнопке Ве#е$Н в и перейти на вкладку Тех, можно 
увидеть такое объявление интерфейсного метода: 


Еапсе1оп СефеВМР (Мате: И1ЧебЕег1па): О1еУаг1ап® 
[415рла 00000001]; 
заеса]11; 


Закройте окно редактора библиотек, нажав на клавишу [12. Вы увидите, что 
к проекту присоединены два новых модуля: 0п1Е2 и Рго]ес®1 ТВ. Первый со- 
держит объявление компонентного класса Т5$егуегВМР с заготовкой для функ- 
ции СеевВМР, а второй — обширный текст определения интерфейса т5екхуегВМР 
и дублирующего его интерфейса диспетчеризации Т5егуегВМРО1 зр. 

Полезно с ним ознакомиться. В начале текста помещено следующее предуп- 
реждение (в переводе): 


// ПРЕДУПРЕЖДЕНИЕ 

ИГ -------------- 

// Объявленные в этом файле типы сгенерированы на основе 
// данных из библиотеки типов. Если эта библиотека типов 
// будет явно или неявно (путем импорта другой библиотеки 
// типов, которая ссылается на данную) импортирована 

// повторно или если во время работы с ней в редакторе 

// библиотек будет нажата кнопка КеЁгез|, то содержимое 
// этого файла генерируется повторно и все модификации, 
// выполненные вами вручную, будут утеряны. 
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Еще ниже по тексту вы увидите такой фрагмент: 


// ххжжжжжжжжжх жж ххх ххккжжххкжжхххкжжхжккх | | 


// Опережающее описание типов, определенных 

// в библиотеке типов 

И/ ЖЖ Яя яя хяняхх / / 
ТбегуекгВМР = 1пфегЁасе; 
Т5егуегВМРО15р = а1зрапвегЕасе; 


Как видите, мастер создания объекта автоматизации создал интерфейс диспет- 
черизации. Это открывает доступ к нашему серверу из программ, созданных с по- 
мощью \15на| Ваз1с, /ама Зсирь ЗтаЙТа[К или других языков программирования, 
которые не могут использовать указатели и вынуждены обращаться к методам 
и свойствам сервера по имени. 

Сохраните ваш проект на диске: 0п1+2 под именем ег МРИЕ (от йир{етещайоп), 
0п11 под именем $егуМатт, а сам проект под именем $егуВМР. 

Перейдите в модуль Зекг\уТМРЬ и напишите код метода СеЪеВМР, показанный 
в листинге 25.1. 


Листинг 25.1. Код метода СаеВМР'! 


Еипсё1оп ТбегуехВМР.СееВМР (сопзе Мате: И1аебЕг1па): 
О1еУаглапт; 
уаг 
У: О1еУаглапе; 
Е: Е11е; 
512е: Тпфедаег; 
соп$е 
ВМР РафП = // Умалчиваемый маршрут доступа 
// к графическим файлам 
'С:\Ргоагам Е11ез\Сомтоп Е11е5\Вог1апа '+ 
'ЗЛагеа\Тмадез\$р1азв\16Со1ох\'; 
Бед1п 
// Создаем файл для чтения изображения 
А5$51а9пЕ11е (Е, ВМР Ра®п+$%г1п93 (Маше) ); 
Везеф (Е, 1); 
// Получаем длину файла 
512е := Е11е512е(Ё); 
// Создаем вариантный массив и наполняем его 
\ := УагАггкауСгеаее ([1, $512е], УагВу%е); 
В]оскКВеаа (Е, УагАггауросКк (У) ^, $512е); 
С1озеЕ11е (Е); 
УагАггауОпЪоск (\); 
Вези1% := У 
епа; 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу В р:// 
ммм. рег.сот/Чомип(оад — Примеч. ред. 
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Заслуживают комментария два момента. С помощью функции УагАггау- 
Сгеафе с переменной У связывается одномерный массив байтов с нижней грани- 
цей 1 и верхней, соответствующей длине файла в байтах (переменная $12е). За- 
тем в массив считываются все байты файла с помощью функции В1осКВеаа. Чтобы 
получить доступ к телу массива, он блокируется обращением к функции Уаг- 
АггауГоск. Поскольку эта функция возвращает указатель на первый байт мас- 
сива, за обращением ставится символ ^, чтобы сообщить компилятору о том, что 
речь идет не об адресе, а о содержимом области памяти, расположенной по этому 
адресу. 

Обратите внимание, как просто строка И1Че5 Е г1па приводится ктипу $1.19: 

ЗЕг1па (Мате) 


Замечу, что в Ое]рЫ! версии 7 функции для работы с вариантами определены 
в модуле Уаг1апез — вставьте ссылку на этот модуль в предложении чзе$з. Запу- 


стите сервер, чтобы среда ерЫ автоматически зарегистрировала его в реестре 
М/1тпо\5. 


Клиент 


Начните новый проект (СВар_25\Ехатр(е СОМ\СПегЕВМР.арг) и поместите на пустую 
форму высотой 336 и шириной 268 пикселов панель размерами 181х225, на нее — 
компонент Тмаае1, установив в его свойство А11дп значение а1С11епь, 
ав свойство Сепкег — значение Тгое. Под панелью поместите компонент 
СомроВох1 и кнопку Вае в оп1. В свойство 5$ у1е компонента СомроВох1 поме- 
стите сзВкорромпт1 5% и вего свойстве ТЕетз напишите такой список графиче- 
ских файлов: 


аспепа. тр ср1р.ртр соп5егис. ртр 
еагЕ В .Бмр 5Ку11пе.рптр сеспп1чу.Бтр 


Присоедините к проекту файл библиотеки типов сервера 5егуВМР_ТЕВ.ра$, сде- 
лайте ссылку на него в предложении азез модуля 0п1%1 и напишите обработчик 
Ва оп1ОпС11 ск, показанный в листинге 25.2 


Листинг 25.2. Обработчик ВиНоп1ОпСИск 


ргосеаиге ТГогп2.Вие6оп1С11скК (бепаег: ТОБ)ес®); 
уаг 
ТТ, оегуег: ТбегуетВМР; 
У: О1е\Уаглапе; 
Е: Е1]1е; 
512е: Тпбедег; 
Бед1п 
1Е СопроВох1.ТехЕ = '' Вел Ех1%; 
// Активизируем сервер 
ТТ := собекуетВМР.Сгеасе; 
// В переменную 5егуег помещаем ссылку 
// на интерфейсный объект 
ТТ.Оцегу1ТпеехЕасе (Т5екуегВМР, 5ехуег); 
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// Получаем массив с пикселами изображения 
У := Зегуег. себ ВМР (\1Че$Ег1па (СотроВох1.Тех®)); 
// Создаем временный файл 
А$51апЕ11е(Е, '+ептр.Юмр'); 
Вемг16е(Е, 1); 
// Определяем длину файла 
512е := УагАггауН1айВоопа (У, 1); 
// Записываем вариантный массив в файл 
В1оск\г1ее (Е, УагАггауГоск(\У)^, $12е); 
С]озеЕ11е(Е); 
// Показываем изображение и уничтожаем файл 
Ттаде1 .Ртсбаге. ГоааЕкомЕ11е ('$емр.Ьтр'); 
Егазе (РГ) 

епа; 


Хочу лишний раз обратить ваше внимание на обязательную ссылку на модуль 
библиотеки типов в предложении чзез: без нее стали бы неизвестными для ком- 
пилятора ссылки на интерфейс Т5$егуекВМР, его интерфейсный метод беевВМР 
и функцию класса собегуегВМР .Сгеа+е. Обращение к этой функции автомати- 
чески активизирует сервер (его окно на мгновение появится на экране), при этом 
создается компонентный объект фабрики класса, ссылку на которой мы размести- 
ли в переменной тт. После этого обращением к методу Оцегутп%ег[асе объекта 
ТТ в переменную 5егуег помещается ссылка на компонентный объект класса 
ТбегуегВМР, в результате чего, наконец, становится доступной нужная нам функ- 
ция СееВМР. Заметьте, что объект фабрики класса тт не имеет функции бе% ВМР, 
поэтому обращение ТТ. СееВМР сразу после создания фабрики привело бы кошиб- 
ке. С другой стороны, присваивание ссылки на этот объект переменной типа 
Т5егуегВМР не страшно, так как оба интерфейса порождены от общего роди- 
теля ТОпкпом и, следовательно, имеют общий метод Оцегу1пкекЕасе. 


Использование вариантов 
в технологии ОЁЕ 


ОерЫ! располагает различными средствами поддержки ОГЕ. Некоторые из них 
обеспечиваются возможностями вариантов, так как одним из значений варианта 
может быть ОТ.Е-объект. 

Для создания ОТ.Е-объекта используется стандартная функция Сгеахео1е- 
ор]есеё: 


Еипсе1оп СгеафеОо1е0р)есе (сопз& С1аззМате: Зех1па): 
Та1зраесв; 


Функция по заданному имени класса сервера С1аззМаме возвращает так на- 
зываемый идентификатор интерфейса 141 зраЕсВ, который нужно использовать 
для обращения к серверу. Имя С1аззМаме должно быть зарегистрировано в реес- 
тре М п4о\. Идентификатор интерфейса определяет интерфейс сервера, то есть 
набор допустимых методов ОГ.Е-объекта, которые реализует сервер. Имя класса 
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сервера и его интерфейс должны быть известны программисту. В следующем при- 
мере после щелчка на кнопке БЮКоп учебной программы создается ОГЕ-объект 
для связи с текстовым редактором М$ У/ога, и этому редактору передается текст, 
набранный в компоненте ппОзерае. 


({$В *.ПОЕМ} 
Озез СопОЬ]; 


ргоседиге ТЕпЕхапр1е.РЮКипС11сКк (бепаег: ТОр]ес®); 
уаг 
ОЪЕ: Уаглапе; 
Бед1п 
ОТЕ := Сгеакео1е0Бес® ('Мога.Ваз1с')}; 
ОТЕ.Е11еМем; 
ОЕ. Тп5егк® (птОчрое.Техе); 
еп; 


Функция Сгеахе01е0Ъ)ес® определена в модуле СОМОВУ, поэтому ссылку 
на этот модуль необходимо указать в самом начале исполняемого раздела модуля 
Рогт1 (после строки {$В*.РЕМ}). 

Если вы используете технологию автоматизации ОГЕ в одной из подпрограмм 
ОГ, она должна ссылаться на модуль СомОЪ), в инициирующей части которого 
создается объект компонентного класса для доступа к дуальным интерфейсам. 
Однако инициализирующие части модулей, на которые ссылается ОТ.Г., не выпол- 
няются автоматически в момент старта программы, если только они не упомяну- 
ты в предложении азез главной программы или любого ее модуля, поэтому в об- 
щем случае не будет создан компонентный объект модуля СОМОВО и обращение 
к Сгеасе01е0ю)есе вызовет сообщение об ошибке. При разработке ОТ. для ис- 
пользования в среде Ое]рН! эта проблема легко решается добавлением ссылки на 
модуль СОМОВСУ в главной программе или любом ее модуле. Однако если ОТ, раз- 
рабатывается для продажи или работы с другими системами программирования 
(\У15ца| Вазс, С++, ] ВиИ4ег ит. п.), эта проблема не всегда разрешима, так как в ини- 
циализирующей части модуля используются обращения к полям и методам, за- 
крытым для доступа вне модуля. 

Замечу попутно, что если ваша программа не может правильно вызвать функ- 
цию Сгеафе01е0Ю)ес*, в ряде случаев может помочь явный вызов функции АР] 
Со1п11а112е. Назначение функции — произвести подготовку (инициализацию) 
механизма СОМ. Эта функция не описана в модуле И1паомз и, следовательно, 
«не известна» Пер. Ее прототип таков: 


Емрпсетоп Со1п1Е1а117е (Везегуеа: Ро1пЕек): НВезо1%; 
$Еаса11; ехЕегпа1 '01ЕЗ2.а11!; 


Единственный параметр обращения к этой функции зарезервирован и должен 
содержать МТЬ. Функция возвращает $ _ОК (тип ВВези1 и возможные его значе- 
ния описаны в модуле И1паомз), если обращение к ней прошло успешно. 

Если вы запустите программу, то обнаружите, что на экране появляется окно 
М5 У№ога, которое немедленно после этого исчезает!. Происходит это потому, что 
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жизненный цикл активизации и работы ОТ.Е-сервера связан с жизненным циклом 
и содержимым переменной-варианта. В нашем примере переменная ОГЕ опреде- 
лена в теле процедуры 5БВипС1 1 ск, то есть является локальной переменной. Ло- 
кальные переменные создаются в момент входа в подпрограмму и уничтожаются 
в момент завершения ее работы — вот почему М$ У/ога так быстро закрывается. 
Чтобы пример стал имитацией нормальной работы с М$ \/ог4, переделаем его: 
переменную ОГЕ вынесем в раздел руь11с класса ТЕпЕхапр1е нашей програм- 
мы, а на кнопке БЪВоп будем щелкать дважды — один раз для активизации М5 
М/ога, а второй — чтобы сохранить набранный в нем текст в текстовом файле, за- 
крыть М$ У/ог4 и прочитать содержимое файла в поле птОп&рие. 
суре 
ТЕиЕхамр1е = с1аз$$ (ТГогп) 


руЬ11с 
{ РиБ]11с аес]агаЕтоп$ } 
ОЬЕ: Уаглапе; 
епа; 


Чзез$ СопмоБ]; 


ргосеааге ТЕпЕхаптр1е.рЪКипС11ск (бепаег: ТОБ]ес®); 
соп$Е 
гГ11еМаме = 'с:\$епр.&хё'; 
Бедзп 
1Е УагТуре (ОЕ) <> уагр1зраесьВ ®Веп 
Ьед1п // С вариантом не связан ОГЕ-объект: 
// запускаем М$ Йога 
ОТЕ := Сгеаке0О1е0Б]есе ('Мога.Ва$1с'); 
// Делаем его видимым 
ОЪЕ.АррфзрВом; 
// Создаем новый документ 
ОЕ. Е11еМ№ем; 
еп е1зе // УагТуре (ОГЕ) = уагр15раЕсВ 
{ОГЕ-объект уже создан: вставляем в поле ттОцЕриЕЁ текст из 
подготовленного файла и закрываем М$ Йога} | 
Бед1п 
// Сохраняем в файле только текст 
ОЕ. Е11]ебахуеАз (ЕГ1]еМапе, 3); 
// Закрываем документ 
ОЪЕ.Е11еС1о$е (2); 
// Закрываем М$ ИЙога 
ОБЕ := 0; 


' Перед прогоном программы следует, во-первых, убедиться в том, что на вашем ПК установлен тек- 
стовый процессор М$ У/огч, и, во-вторых, закрыть его, если он перед этим был открыт. Если М5 
\\ог4 был открыт перед прогоном программы, он не исчезнет с экрана. 
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// Проверяем существование файла 
1Е Р11еЕх150$ (Е11еМапе) \еп 


Беда п 
пиОперие. Т1пез.ГоааЕгопЕ11е (Е1]1еМапе) //Загружаем файл 
Ре1еееЕ11е (Е11еМапе) // и уничтожаем его 
епа 
епа 


После первого щелчка на кнопке БЪ Вол в переменную ОТЕ будет помещен ин- 
терфейс сервера, что позволяет программе сделать окно М$ У/о!4 видимым и от- 
крыть в нем новый документ. Предполагается, что в этот момент пользователь дол- 
жен перейти к работе с текстовым процессором и подготовить в нем произвольный 
текст, после чего он второй раз щелкает на кнопке БюВоп. Поскольку переменная 
ОТЕ является полем класса ТЕмЕхатр1е, ее значение к этому моменту остается 
191 зраесв, и обработчик БЮВипС11ск выполняет вторую часть работы: сохра- 
няет набранный в процессоре текст в файле, закрывает документ и сам сервер, по- 
местив в переменную ОГЕ новое значение. 


Использование серверов пакета М$ О1се 


Практика показывает, что программы пакета М$ Ой се (Ехсе], \У/ог4, Ромег Рой 
ит. п.) устанавливаются на подавляющем большинстве компьютеров, работающих 
под управлением 32-разрядных версий У/Лт4о\5. Каждая из этих программ явля- 
ется СОМ-сервером, и, следовательно, любой входящий в нее объект может ис- 
пользоваться вашей программой как свой собственный. 

Как уже говорилось выше, существуют два способа обращения к методам и свой- 
ствам СОМ-объекта: путем ссылки на его библиотеку типов (раннее связывание) 
и по имени (позднее связывание). Для Ое|рЬ! предпочтительным является раннее 
связывание, так как в этом случае компилятор может проконтролировать правиль- 
ность обращения к свойствам и методам внешних объектов, а создаваемый им код 
исполняется, в общем случае, быстрее. С другой стороны, базовый язык обраще- 
ния к серверам М$ ОЁЙйсе — У!15ца]! Вазс Юг Арр|Исайоп (УВА) не поддерживает 
работу с указателями и, следовательно, не может использовать интерфейсы. Спе- 
циально для такого рода языков (помимо УВА с указателями не работают также 
языки ]а\га, |а\а$стрё, ЗтаЙТа[К и некоторые другие) в технологию СОМ введе- 
ны интерфейсы диспетчеризации, позволяющие обращаться к методам и свойствам 
по имени. При установке М$ Ойсе можно установить справки по УВА, в которых 
детально описываются интерфейсные службы серверов М$ ОЁйсе с указанием на- 
значения методов и свойств и параметров обращения к ним. Фактически это един- 
ственные доступные программисту документы, на которые он вынужден опирать- 
ся при программировании доступа к мощным возможностям серверов М$ ОЁ#се. 
Замечу, что при стандартной установке пакета справки по УВА на диске не разме- 
щаются. Если в каталоге Ргодгат Р(е$\Мусгозо Е ОН се\0ОЕ се вы не найдете файлов 
УБах(Х. р (справка по Ехсе]), уБамтаХ.Нр (справка по \№ога) ит. п. (Х — номер вер- 
сии М$ ОйЙке: для ОЁсе 97 — 8, для ОЙке 2000 — 9, для ОЁйсе ХР — 10), вы долж- 
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ны их добавить с помощью апплета Установка и удаление программ панели управле- 
ния (Пуск > Настройка » Панель управления). 

В Рары имеются компоненты вкладки 5егуег$, позволяющие обращаться 
к СОМ-объектам серверов с помощью библиотек типов, однако эти компоненты 
практически не документированы. Во всех случаях изучение обширных текстов 
библиотек (например, библиотека Ехсе|_Т1В.раз для ОЁ#се 2000 содержит почти 
40 000 строк’) мало что дает даже опытному программисту. 

В этом разделе приводится краткое описание основных объектов двух наибо- 
лее популярных серверов — Ехсе] и \!ога. Поскольку специально для версии ОЁсе 
97 язык УВА был существенно расширен, этот материал нельзя использовать для 
работы с более ранними версиями пакета. 


Основные объекты серверов Ехсе! и Мога 


В терминологии УВА используются понятия объект и коллекция. Объект — это 
обычный интерфейсный объект СОМ, имеющий свойства, методы и события. Кол- 
лекция — это группа однотипных объектов. Например, главный объект сервера 
Ехсе] — Арр11са&1оп — определяет основные свойства и методы сервера, кол- 
лекция ИогкКзпеее5 — это набор табличных страниц в текущей рабочей книге 
ит. д. Представленные ниже иерархии объектов и коллекций взяты из файлов 
уБахХХ.Шр (для ОЁйсе 97). В отличие от объектов УСГ. они построены не по прин- 
ципу наследования, а по функциональной подчиненности. 


Объекты Ехсе! 


Сервер Ехсе] — это мощный табличный процессор, реализующий размещение и об- 
работку различного рода данных (как числовых, так и текстовых), в том числе — 
построение на их основе графиков и диаграмм. При работе с Ехсе]| создается так 
называемая рабочая книга (файл данных) с одним или несколькими листами. Все 
листы одной рабочей книги могут быть связаны друг с другом, что позволяет орга- 
низовать совместные вычисления над размещенными на них данными. 

На рис. 25.7 представлена функциональная структура объектов и коллекций 
Ехсе]. 

Объект Арр11саЕ1оп имеет многочисленные свойства, методы и события, уп- 
равляющие сервером в целом. Только с его помощью, например, можно визуали- 
зировать полнофункциональное окно текстового процессора. Его центральное свой- 
ство ИогкБоок$з открывает доступ ко всем открытым в процессоре рабочим книгам. 

У каждой рабочей книги есть свойства Иогкзреетз$ и Спаг&з, представляю- 
щие собой коллекции листов и диаграмм. Первоначально коллекция Могкроок$ 
пуста. Чтобы создать хотя бы одну рабочую книгу, нужно обратиться к методу 
МогкЬоок. Ааа, который создает рабочую книгу с количеством пустых листов, 
определяемым значением свойства Арр11са1оп.5пее*зТпМемМогкрооск. У каж- 
дого рабочего листа есть свойство Се11$ (Т, 5) , определяющее содержимое ячей- 
- ки, Лежащей на пересечении Т-йЙ строки с 5-м столбцом (нумерация строк и столб- 


' Для импортирования библиотеки типов любого зарегистрированного на вашей машине СОМ-сер- 
вера используется диалоговое окно Ттрой Туре |ИБгагу (открывастся командой Рго]ес* › [трой Туре 
ИБгагу): выберите нужный сервер в списке и щелкните на кнопке Сгеа{е Цп®. 
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Рис. 25.7. Функциональная структура объектов и коллекций Ехсе! 


цов начинается с 1). Если при обращении к Се115$ номера столбца и строки опу- 
щены, считается, что речь идет о текущем диапазоне ячеек, заданным значением 
свойства Иогкзпееез .Вапсде. Если необходимо изменить умалчиваемые свой- 
ства столбца или строки, используются объекты Иогкзреее$ .Со1импз и МогК- 
знее*5 .Вомз. Помимо рабочих листов с рабочей книгой связывается объект 
СПаг% $, представляющий собой коллекцию диаграмм. С каждой диаграммой свя- 
зывается объект $ег1езСо11есе1оп, хранящий данные, по которым строится 
диаграмма. 


Объекты Мога 


Текстовый процессор \/ог4 является популярнейшим средством создания и оформ- 
ления (форматирования) текстовых документов. С его помощью, например, была 
создана и оформлена эта книга, как, впрочем, и все другие мои книги и книги мно- 
гих известных мне авторов. При работе с \Мог4 фундаментальными понятиями 
являются документ, абзац и стиль. Документ определяет файл данных. Абзац — 
это совокупность символов, обрамленная служебными символами конца строк, 
разрыва колонки или разрыва раздела. Наконец, стиль — это совокупность при- 
знаков оформления текста: его шрифт, положение на странице, выравнивание и т. п. 
Стиль — непременный атрибут каждого абзаца, то есть изменение стиля абзаца 
приводит к его переформатированию. Однако стиль может изменяться внутри аб- 
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заца — для выделения группы символов шрифтом, цветом символов и/или фона 
ИТ. П. 
На рис. 25.8 показана функциональная иерархия объектов \/ога. 
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Рис. 25.8. Функциональная структура объектов и коллекций \/ога 


Центральный объект Арр11са&1оп имеет такое же назначение, что и одноимен- 
ный объект Ехсе|, — он определяет свойства, методы и события на уровне всего 
сервера. Его свойство Росимепе $ представляет собой коллекцию открытых доку- 
ментов. С помощью метода Ореп этого объекта можно открыть ранее созданный 
документ, а методом Ааа — создать новый документ, основанный на шаблоне 
Могта(.40*. Каждый документ имеет коллекцию абзацев Рагадгар!з. С помощью 
методов этого объекта АЗа, ТпзегЕРагадгарн, 1пзегеРагаагарпАЕ*ек, 
ТпзегкРагадгарпВеЕоге можно вставить новый абзац в уже существующий текст 
или добавить абзац в конец документа. В свою очередь, каждый абзац имеет мно- 
гочисленные свойства, позволяющие нужным образом отформатировать текст. Как 
ив Ехсе], важную роль в иерархии объектов \У/ога играет объект Вапсде, определя- 
ющий диапазон абзацев. Свойство Тех этого объекта содержит текст диапазона. 


Глава 26 


Создание компонентов 
с помощью МоаеМакег 


Как уже упоминалось (см. введение к книге), инструмент автоматизированного 
программирования САЗЕ (Сотрийпе А$$15(е4 Зо\аге Епетеение) под названи- 
ем Мо4де|Макег берет на себя значительную часть «рутинной» работы по кодиро- 
ванию программы, позволяя программисту сосредоточиться на творческой сторо- 
не этого процесса. Эта утилита разработана голландской фирмой Мо4е|Макег Тоо]$ 
и, как утверждается в документации, может работать совместно с любой версией 
ОерЫ! (в том числе — с первой). Утилита не является неотъемлемой составной 
частью Оер! и устанавливается по желанию пользователя. Для установки вставьте 
дистрибутивный компакт-диск Ое]рЬ! в дисковод вашего компьютера и выберите 
продолжение Моде[Макег 6.20. 

Главное назначение Моде]МакКег — автоматизировать процесс создания клас- 
сов. Подобно другим средствам САЗЕ, Моде|МакКег может создавать и поддержи- 
вать диаграммы, отражающие связи между классами и их членами. Однако в отли- 
чие от других средств САЗЕ (а эти средства, в основном, предназначены для 
автоматизированной разработки структур баз данных, оптимизации реляционных 
связей между таблицами ит. п.), Мо4де|МакКег тесно связан с языком и средой Оеры. 

Новые классы создаются в сложных программных проектах для оптимизации 
повторного использования раз созданного кода, а также при создании новых ком- 
понентов. Поэтому в этой главе, иллюстрирующей методику работы с Моде Макег, 
мы также коснемся общей проблемы создания новых компонентов. 


Методика создания компонентов 


В этом разделе рассматриваются разнообразные аспекты, связанные с созданием 
собственных (нестандартных) компонентов. Если быть более точным, в ней рас- 
сматривается методика создания новых классов, так как компонент является лишь 
вариантом реализации объекта класса, лежащего в его основе. 


Методика создания компонентов 543 


Зачем нужны новые компоненты 


В состав ОерЫ входит более 400 компонентов, рассчитанных на самые разные 
сферы применения. И, тем не менее, в некоторых случаях приходится создавать 
новые компоненты, поскольку: 


* всуществующих нет нужной функциональности, а новый компонент не только 
предоставит эту функциональность, но и будет использоваться много раз в раз- 
личных приложениях; 


”) вы желаете деструктурировать сложный алгоритм на несколько относительно 
простых и устойчивых к ошибкам фрагментов, используя для реализации каж- 
дого один или несколько классов; 


вы хотите создать компонент на продажу (стандартная цена нового компонен- 
та — от 10 до 100 долларов; часто такие деньги позволяют покупателям сэконо- 
мить время на его создание, которое в стоимостном выражении намного боль- 
ше этих затрат, так что такого рода бизнес может приносить неплохой доход). 


Как бы там ни было, вы читаете этот раздел, а значит, у вас есть свое мнение по 
этому вопросу. Приготовьтесь! Процесс создания нового компонента потребует от 
вас основательного владения техникой объектно-ориентированного программи- 
рования. 


Этапы разработки 


В этом разделе перечисляются этапы разработки компонента, кроме, возможно, 
самого главного: этапа «вынашивания» основной идеи компонента, то есть реше- 
ние для себя вопроса, — чем будет отличаться новый компонент от существующих 
и будет ли он полезен в других программах или другим программистам. Последнее 
обстоятельство — возможное тиражирование компонента — очень важно, так как 
если компонент используется всего один раз или в одной-единственной програм- 
ме, вряд ли стоит тратить дополнительные усилия на придание ему функциональ- 
ности именно компонента, скорее всего, задачу с успехом решит специализиро- 
ванный модуль. 


Выбор родительского класса 


Огромную роль играет правильный выбор класса, от которого новый компонент 
будет наследовать свои основные свойства, методы и события. На рис. 26.1 пред- 
ставлена иерархия важнейших классов Оер|\, на основе которых создано подав- 
ляющее большинство компонентов. 

Родоначальник иерархии ТОБ)ес® может использоваться как предок только 
при создании невизуального компонента (точнее, класса, так как компонентами 
в РерЫ принято считать прямых или косвенных потомков ТСотропеп+). Функ- 
циональность ТОБЗ ес связана, в основном, с поддержкой механизма распределе- 
ния в динамической памяти объектов УСТ, предоставлении программе информа- 
ции о типе объекта (Кип Типе Туре шЮгтайоп, КТТГ), с поддержкой интерфейсов 
и т. п. Использовать его в качестве родительского класса можно для относительно 
простых компонентов, не требующих сохранения их на диске (то есть создавае- 
мых не на этапе конструирования, а в ходе прогона программы) и не связанных 


544 Глава 26. Создание компонентов с помощью МодеМакКег 


ТОгарМсСогиго! 


ТЗсгойпа\ИптСопгой |ТСизотСогиго| 
ТСизютРогт 


Рис. 26.1. Иерархия важнейших классов Верт 


с объектами других классов. Типичным примером наследника ТОБ-ес+ может быть 
компонент ТТп1Е1 1е, который инкапсулирует в себе все необходимое для досту- 
па к файлам инициализации \/1140\5. 

Класс ТРег51з$еп® передает потомкам умение работать с потоками данных, 
чтобы читать из них (записывать в них) свойства связанных с классом других объ- 
ектов. Например, сложное свойство ТМемо .Т1пез относится к прямому потомку 
ТРегз1з6епе — классу Т5&г1паз; к этому же классу относится свойство Тфетз 
компонента ТТ,1 зЕВох, Поэтому с помощью метода Азз1ап класса ТРегз1 зкепе 
можно содержимое одного компонента передать другому: 


Мето1 .11пе$.Аззтап (11$6Вох]1.Тфетз$); 


Вряд ли вам будет достаточно только этой функциональности, поэтому на 
практике в качестве родительского класса невизуальных компонентов обычно ис- 
пользуется ТСотропеп\, наследники которого являются полноценными компо- 
нентами — они могут регистрироваться в палитре компонентов Пер}: к их опуб- 
ликованным свойствам открыт доступ на этапе конструирования, они могут владеть 
и управлять другими компонентами, при необходимости они могут быть преобра- 
зованы в компоненты Асйуех. 

Класс ТСопего1 является базовым для всех визуальных компонентов. Имен- 
но в нем инкапсулируются все события, свойства и методы, общие для любого ви- 
зуального компонента. Однако вряд ли следует выбирать этот класс в качестве 
родительского: его ближайшие наследники Тбгари1сСопего1 и ТИ1пСопего1 
разделяют все визуальные компоненты на две группы: имеющие дефицитный сис- 
темный ресурс — дескриптор окна (потомки ТИ1пСопЕго1) ине имеющиеего (по- 
томки Тбгарв1сСоп&го1). Класс ТСозбомСопего1 передает своим потомкам 
механизм канвы. 

Таким образом, для создания невизуального компонента следует наследовать 
его основные свойства от класса ТСотропеп*, для создания визуального — от класса 
ТСкарр1сСоп®го1, ТИ1пСоп®го1 или ТСазеомСопЕго1, взависимости от того, 
нужен ли вашему компоненту дескриптор окна и свойство Сапуа$. 
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Эти рекомендации носят самый общий характер. В реальном случае следует 
выбирать потомка одного из классов, который бы в максимальной степени при- 
ближался в функциональном плане к вновь создаваемому компоненту: только 
в этом случае вы сможете с максимальной эффективностью воспользоваться 
преимуществами ООП, в частности, повторным использованием ранее созданно- 
го кода. Замечу, что именно для этих целей разработчики Ое!рЬ! предусмотрели 
множество промежуточных классов с именами типа ТСи з с омММММ, в которых ин- 
капсулируются наиболее общие для некоторой функциональности свойства, ме- 
тоды и события. Например, стандартный компонент ТТафе1 порожден от класса 
ТСазсомЬаье1, являющегося базовым для любых визуальных компонентов, 
которые демонстрируют на экране текст, но не имеют дескриптора окна. Класс 
ТСозбом$ а 1сТехе обладает почти такой же функциональностью, но получает 
дескриптор окна и так далее. Обычно в программе экземпляры этих классов не 
используются, так как в большинстве случаев они (классы) являются абстрактны- 
ми. Однако если вы создаете собственную «неоконную» метку, новый класс, воз- 
можно, окажется удобнее наследовать от ТСазфотГае1, а не от ТГафе1, точно 
так же как наследование от ТСазфом5 $ а*1сТехе будет удобнее, чем от Т5кае1с- 
Тех, при создании «оконной» метки и так далее. 


Добавление свойств 


Напомню, что только те свойства, которые включены в секцию ручЬ].1зВеа, появ- 
ляются в окне инспектора объектов, и программист может их изменять на этапе 
конструирования. В этом пункте речь пойдет именно об опубликованных свой- 
ствах, так как вид их представления в инспекторе объектов существенно зависит 
от типа свойства. 


ПРИМЕЧАНИЕ Все приводимые в этом разделе фрагменты программного кода носят 
иллюстрирующий характер и не имеют самостоятельного значения. 


Простые свойства. Простыми являются свойства, имеющие значение одного 
из «простых» типов — целого, вещественного, строкового, логического и т. п. 'Гакие 
свойства не требуют специальных механизмов доступа. Вот как, например, 
в компонент можно добавить два простых свойства: 


суре 
ТМуСотшр = с1а$$ (ТИ1пСопего1) 
ргалуаке 
// Закрытые поля для свойств 
ЕТпеедегРгор: Тпфедег; 
ЕоЕг1паРгор: $Зег1па; 
ручЬ115Веа 
// Простые свойства 
ргорегеу ГптедегРгор: 
Тпеедег геаа ЕТпеедегРгор мга®е ЕТптедетгРгор; 
ргорег®еу 5Ег1паРгор: 
ЗЕг1па геаа Еб5ег1паРгор мгае Е5ег1поаРгор; 
епа; 
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Замечу, что обычно все поля для свойств именуются с префиксом Е и размеща- 
ются в секции рге1уафе. 

Перечисленные свойства. Особенностью перечисленных свойств является пред- 
определенный набор их возможных значений. Поэтому в окне инспектора объек- 
тов в поле значения свойства автоматически появляется кнопка, щелчок на кото- 
рой приводит к раскрытию списка возможных значений. Добавим в компонент 
перечисленное свойство: 


Суре 
ТЕПомРгор = (ерёего, ерОпе, ерТио, ерТЬгее); 
ТМуСомр = с1аз$$ (ТМ1пСопего1) 
рг1уафе 


// Закрытые поля для свойств 
РКЕпомРгор: ТЕпипРгор; 
ручЬ11зВеа 
// Перечисленное свойство | 
ргорек®еу ЕпопРгор: ТЕпаомРгор геаа ЕЕпоптРгор 
ига фе ЕЕпопРгор; 
епа; 


Замечу, что свойства логического типа являются, по существу, перечисленны- 
ми, поэтому их значения в окне инспектора объектов тоже можно выбирать в списке. 

Свойства-множества. Свойство-множество в окне инспектора объектов раскры- 
вается в список логических свойств. Вот как можно его добавить: 


Суре 
ТбееРкгорТ®ем$ = (5рА, эзрВ, 5$рС, 5рП); 
ТбееРгор = зе оЕЁ ТбеЕеРгортТеетз; 
ТМуСошр = с1аз$$ (ТМ1пСоп®го1) 
рг1уаее 
// Закрытые поля для свойств 
ЕзееРгкор: Т5ееРгор; 
руЬ11зВеа 
// Свойство-множество 
ргорек®у Зе Ргор: ТбееРгор геаа ЕбеЕРгор 
мг16е ЕГбеЕеРгор; 
еп; 


Свойства-объекты. Как известно, полями компонента могут быть объекты дру- 
гих классов. Это позволяет вставлять в компонент свойства-объекты. При этом 
необходимо учесть три аспекта: 


”” после создания компонента нужно создать объекты-поля; 
"” перед удалением компонента нужно удалить объекты-поля; 


’: установка нового значения свойства (то есть присваивание свойству другого 
объекта) должна сопровождаться освобождением ранее созданного. 
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Пусть в компонент добавляется свойство-объект ОБ) Ргор, которое экспонирует 
два своих простых свойства Ргор1 и Ргор2 (эти свойства будут доступны в окне 
инспектора объектов). В свойство-объект помещается объект следующего класса: 

Суре 

ТТппекОБ]есе = с1аз$$ (ТРегз1зеепь) 
рг1луаее 
ЕРгор1: Тпеедег; 
ЕРгор2: $%г1пд; 
руБЬ11зВеа 
ргорегеу Ргор1: Тпеедег геаа ЕРгор1 мгк1*е ЕРгор1; 


ргорегеу Ргор2: ЗЕгапд геаа ЕРгор2 мгаее ЕРгор2; 
епа; 


Для корректного создания/уничтожения компонента следует перекрыть кон- 


структор и деструктор компонента (ЕОБ)Ргор — поле, содержащее внутренний 
объект): 


сопзгасеог ТМуСопр.Сгеафе (АОипег: ТСоптропеп®); 
// ПРи создании объекта создается внутренний 
// объект-свойство 
Бед1п 

1прехг1еа; 

КОБ]Ргор := ТТппегОоОБ]есе.Сгеаее; 
епа; 


аезегас®охг ТМуСопр.Безегоу; 
// При удалении вначале удаляется внутренний 
// объект-свойство 
Бед1п 
ЕгееАпам11 (ГОБ]Ргор); 
1пБег1феа; 
епа; 


Объявим свойство простейшим образом: 


ТМуСотр = с1азз (ТИ1пСоп®го1) 
рг1уа®е 
// Закрытые поля для свойств 


ГОБ]Ргор: ТТппегОБ)есе; 

ручЬ11с 
сопз&гасфок Сгеасе (АОмпег: ТСотропеп®); омегг1ае; 
дезЕгас®ог Пезегоу; оуекг1ае; 

руЬ11зреа 


// Свойство-обект 
ргорегЕу ОБ]Ргор: ТТппегОБ)есЕ кеаа гОБ)Ргор 
мг16е ГОБ)Ргор; 
епа; 
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Тогда при замене значения свойства старый объект не будет удален, так как 
поле КОБ] Ргор хранит лишь указатель на динамически распределенный объект, 
и простая замена указателей не ведет к освобождению памяти. Поэтому устанав- 
ливать новое значение нужно в два этапа: сначала удалить старый объект и только 
затем заменить указатель: 


ТМуСотшр = с1аз$$ (ТИ1пСоп®го1) 

ргачаее 

РОр]Ргор: ТТпипекОр]есе; 

ргосеаиге 5есОБ)Ргор (соп$® \а1ае: ТТппегОр)ес®); 
ручЬ11с 
руЬ11зреа 

ргорег®у ОБ)Ргор: 

ТТппегОБ]есЕе хгеаа ГОБ]Ргор мк1%е 5ееОБ)Ргор; 


епа; 
ргосе4иге ТМуСопр.5ееоЬ7Ргор (сопз® Уа1ае: ТТппекОБ)ес®); 
Бед1п 
1Е Азз1апеа (Уа1още) %Ъеп 
Бед1п 
ЕГгееАпам11 (ЕОБ]Ргор); 
ГОБ)Ргор := Уа1ае 
епа 
епа; 


Свойства-массивы. Такого рода свойства содержат сразу несколько значений, 
доступ к каждому из которых возможен с помощью индекса. Например, свойство 
.1пез компонента ТМемо содержит индексированный массив строк: 


Таре11.СарЕ1оп := Мето1.Ъ1пе$[0]; 


В отличие от обычных массивов, свойства-массивы могут иметь индексные 
выражения строкового типа. Например, у компонента ТТаЪ1е свойство Е1е19- 
\Уа1цез содержит массив значений текущей записи, который индексирован по 
именам полей: 


Таь1е1.Е1е1а\а11ез [ 'ВМаме'] := 'Настольная книга 
программиста'; 


Важной особенностью свойств-массивов является то, что, как правило, они не 
имеют соответствующего поля для хранения значений, а доступ к их значениям 
реализуется методами 5еЕ ХХХХ и сеЕхХхХХХх. 

Добавим в компонент ТМуСопр два свойства-массива. Одно изних (Рауо{Иеек) 
будет возвращать название дня недели по его номеру, другое (рауМатьекг) — но- 
мер дня недели по его названию (листинг 26.1). 


Листинг 26.1. Определение свойств-массивов' 


Суре ТМуСотр = с1а$$ (ТИ1пСопфго1) 


' Все представленные в книге тексты программ можно загрузить с сайта издательства по адресу ВЕр:// 
мимм/.рКег.сот/Чомип(оад — Примеч. ред. 
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рг1луа%е 


Еапсе1оп СесрауМаме (соп$® АТпаех: Вуке): $З&гапда; 
ЕопсЕ1оп СесрауМопрег (соп$е АМаме: $З&г1па): Вуее; 
руЬ11с 


// Свойства-массивы нельзя публиковать в секции 
// риБ]1т15Веа! 
ргорегеу ПауоОЕМеек[соп$® АТпаех: Вусе]: 
СЕг1па геаА сеерауМапе; 
ргорег®Еу ПРауМапрег[соп$® АМате: $%г1пЗ]: 
Вусе хеаа СеерауМ№оаптЬег; 
ручЬ11звеа 


епа; 
ргосеаиге Ведч1з%ег; 


1пр1емепфа*1оп 


/И/ Массив названий дней недели: 


соп$е 
Мапез: агхгау [1..7] оЁ $%&г1па[11] = ('понедельник', 
'вторник', 'среда', 'четверг', "'пятница', 'суббота', 
'воскресенье'); 


Еапсе1оп ТУЕ5сгапаеСоптр.сеерауМапте (соп$& АТпаех: Вуее): 


ЗЕгапа; 
Бед1п 
1Е АТпаех 1п [1..7] ЕБеп 
Везо]1{ := Мамез [ АТтаех] 
е1зе 


га1зе Ехсере1оп.Сгеате ( 
'Неверный номер дня недели: '+ТпЕТобег (АТпаех)) 
епа; 


ЕопсЕ1оп ТУРЕ гапаеСопр. СеерауМотрег (сопзЕ АМапе: $%&г1п9): 
Вуее; 
Бед1п 
Везо1Е := 0; 
гереае 
1пс (Ве5о1е) 
ип611 (ВКезо1Е=8) ог (ОррегСазе (Мате$ [Веза1*]) = 
ОррегСазе (АМапе) ); 
3Е Везо1Е=8 ЕБеп 
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га15е Ехсер®1оп.Сгеаке ('Неверное имя дня недели: '+ 
АМапе) 
епа; 


Обратите внимание: свойства-массивы нельзя объявлять в секции руЪ1 1 Вед, 
то есть они не могут быть доступны на стадии конструирования. Это ограничение 
в ряде случаев можно обойти, объявив свойства скалярными и создав специализи- 
рованные редакторы свойств. 

Умалчиваемые значения свойств. Если компонент ТМуСоптр поместить на фор- 
му, он будет невидимой точкой, так как все его поля в момент создания обнуляют- 
ся, поэтому свойства Незаве и И1асв, определяющие видимые размеры компо- 
нента, будут равны 0. Присваивание умалчиваемых значений свойствам компонента 
реализуется в его конструкторе: 


сопзЕгасвог ТМуСопр.Сгеаее (АОмпег: ТСопропеп®); 
// При создании объекта осуществляется присваивание 
// умалчиваемых значений свойствам и создается внутренний 
// объект-свойство 
Бед1п 
1прег1еа; 
ИТАев := 20; 
Незапе := 20; 
ГОБ)Ргор := ТТппегОБ)есе.Сгеаке; 
епа; 


Определение любого свойства можно сопровождать зарезервированным сло- 
вом аеЁац1*: 


ргорегЕу ТпуеедегРкгор: 
Тпсхедег геаа ЕТпфседегРгор мхк1®е ЕТпседегРгор аеЁач1* 100; 


Однако такое определение отнюдь не означает определение умалчиваемого зна- 
чения (английское слово (е/аи! означает неявка, невыполнение; в компьютерной 
литературе часто используется как синоним слову умалчиваемый). Оно лишь ука- 
зывает, что если значение свойства равно 100, оно не будет сохраняться в РЕМ- 
файле формы и считываться из него при повторной загрузке, так как оно уста- 
навливается автоматически перед чтением данных. Если значение отлично от 
определенного директивой ае{а1*, оно сохраняется в файле и считывается из 
него, заменяя предварительно установленное значение. Рекомендуется по возмож- 
ности чаще использовать директиву ае{ал1*, так как она сокращает время за- 
грузки/сохранения формы. 

Умалчиваемое свойство-массив. Директива аеЁа121*, стоящая в определении 
свойства-массива, делает это свойство умалчиваемым. Это означает, что доступ 
к свойству может проходить без ссылки на свойство. Пусть, например, сделано 
умалчиваемым свойство ТМуСопр .БауОоЕЩеек: 


ргорегЕу ПауоОЕМеек[соп$® АТпаех: Вуесе]: 
ЗЕгапа геаа СесрауМате 4еЁац1*; 


Тогда допустим такой оператор: 
Табе11.СарЕ1оп := МуСопр[ 2]; // 'вторник' 
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В компоненте может быть только одно умалчиваемое свойство-массив. 

Доступ к свойствам внутренних компонентов. Во многих случаях вновь созда- 
ваемый компонент включает в себя другие компоненты — метки, поля, таймеры 
и т. п. Некоторые свойства таких компонентов обычно требуется включить в опуб- 
ликованные свойства вновь создаваемого, чтобы иметь к ним доступ на этапе кон- 
струирования. Для этого части геа@ и их1е свойства должны ссылаться на ме- 
тоды, в которых осуществляется доступ к соответствующим свойствам внутренних 
компонентов. 

Вставим в компонент ТМуСотр таймер ТТ1мег и опубликуем его свойства 
Епаб]1е4и Тпеегуа1 так, как показано в листинге 26.2. 


Листинг 26.2. Доступ к свойствам внутренних компонентов 


ТМуСотр = с1а$$ (ТИ1пСопего1) 
рглуаве 
ЕТ1пег: ТТ1пег; 
Еапс&1оп СесТ1мегЕпаю1е: Воо1еап; 
Еапсе1оп СееТ1тегТпеегуа]1: Саг@1па1; 
ргоседиге бетТ1тегЕпар1е4 (сопз® Уа11е: Воо1еап); 
ргоседиге ЗееТ1тегТпЕегуа] (соп$® \Уа1ие: Саг1па1); 
рчЬ11с 
сопзёгасеог Сгеафе (АОмпег: ТСотропеп®); очегг1ае; 
ЯдезЕгас®ог Пезегоу; оуеггзае; 


рур11звеа 


// Доступ к свойствам таймера 
ргорегеу Т1пегЕпаб]1е: Воо1еап 
геаЯ СееТ1тегЕпаЪ1еа имг1%е бесТ1тегЕпаЪ1еа; 
ргорег®еу Т1пегТпфегуа1: Сага1па1 
геаа СесТ1мегТпфеегуа1 мх1ее ЗесТ1тегТпфегуа1; 
епа; 


сопзЕгасеок ТМуСотр.Сгеате (АОмпег: ТСотропепе); 
// При создании объекта осуществляется присваивание 
// умалчиваемых значений свойствам, а также создаются 
// внутренние объекты 
Бед1п 

1прег1еа; 

Итан := 20; 

Незайе := 20; 

ГКОБ]Ргор := ТТппегОБ]есе.Сгеа*е; 

ЕТ1мег := ТТ1мег.Сгеаке (5$е1Е); 
епа; 
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аезЕгасеог ТМуСопр.Пезфкгкоу; 
// При удалении вначале уничтожаются внутренние объекты 
Бед1п 
ГОр)]Ргор.Егее; 
ЕТ1мег.Егее; 
1прег1еа; 
епа; 


ЕапсЕ1оп ТМуСопр.СесТ1тегЕпаЮю1е: Воо1еап; 
Бед1п 

Везо16 := ЕТ1лмег.ЕпаЪ1еа 
епа; 


ЕапсЕ1оп ТМуСопр.СсееТ1тегТпеегуа1: Саг@1па1; 
Бед1п | 

Вези1$ := ЕТ1лмег. Тпбегуа1 
епа; 


ргосеацге ТМуСопр.бееТтмегЕпаь1еа (сопз® Уа1ое: Воо1еап); 
Бед1п 

ЕТ1тег.Епаю1еа := Уа1ае 
епа; 


ргосеаиге ТМуСопр.бееТ1тегТпфегуа1 (соп$® Уа]пе: СагЯ1па1); 
Бед1п 

ЕТ1тег.Тпфсегуа]1 ;:= Уа1ае 
епа; 


Публикация свойств родительского класса. В некоторых случаях может понадо- 
биться публикация неопубликованных свойств родительского класса. Если, на- 
пример, компонент ТМуСопр будет получать фокус ввода, ему понадобится опуб- 
ликовать свойства ТаБОгаег и Таб5®ор своего предка ТИ1пСоп*го1, у которого 
эти свойства объявлены в секции руЪ11с и, таким образом, недоступны на этапе 
конструирования. 

Публикация заключается в простом упоминании (не объявлении!) нужного свой- 
ства в секции ручЪ11звеа: 


ТМуСошр = с1а$$ (ТИ1пСопего1) 
ручЬ11звеа 


ргорек®Еу ТарОгаег; 
ргорег®у Тарб®ор; 
епа; 
Нельзя опубликовать закрытые свойства родителя (то есть объявленные в сек- 
ции рг1уафе). 
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Создание методов 


Создание методов, как правило, не вызывает особых трудностей. Следует отме- 
тТить три момента. 


"" При перекрытии конструктора его новое объявление должно сопровождаться 
директивой оуегг1Ае, если перекрываемый конструктор родительского клас- 
са объявлен как виртуальный (все потомки класса ТСопропеп* имеют вирту- 
альные конструкторы). 


а 


" Анализируя свойство СопропепЕ 5$ а%е, конструктор может выявить флаг 
сз0е$1ап1па, который помещается в это свойство, если компонент создается 
на стадии конструирования. Таким образом, в конструкторе можно разрешить 
или запретить некоторую функциональность компонента в зависимости от того, 
создается ли компонент в период прогона программы или на стадии конструи- 
рования формы. Например: | 


сопзгасвог ТМуСотр.Сгеафе (АОмпехг: ТСоптропеп®); 
Бед1п 
1прег1еа; 
1Е сз0ез1ап1па 1п Сопропепебеафе еВеп 
// Выполнение специфичных действий 
епа; 


= При перекрытии конструктора вначале вызывается унаследованный конструк- 
тор для распределения памяти и создания соответствующего объекта, ТОЛЬКО 
После этого ВЫПОЛНЯЮТСЯ специфические действия, например, установка нНа- 
чальных значений. При перекрытии деструктора наоборот — сНачаЛа выполня- 
ются действия по освобождению выделенных компоненту ресурсов, После чего 
вызывается унаследованный деструктор. 


Создание событий 


Создание событий имеет одну особенность, связанную с диспетчеризацией. Как 
и любое другое свойство, событие обычно имеет связанное с ним закрытое поле, 
в которое помещается адрес обработчика. Определив, тем или иным образом, факт 
наступления события, компонент должен проверить содержимое этого поля и, если 
в нем находится адрес обработчика, передать ему управление. 

Определим для компонента ТМуСотр событие ОпТ1 мег, связанное со срабаты- 
ванием его внутреннего таймера (листинг 26.3). 


Листинг 26.3. Диспетчеризация события ОпТитег 


ТМуСотр = Сс1аз$$ (ТИ1пСопего1) 
рг1уа®е 
ГОпТ1мег: ТМ№о&1ЕуЕуепе; 
ргосеацге Оп!ТппегТ1пег (бЗеп4ег: ТОБ]есё); 
ручЬ11с 
сопзЕгасеог Сгеате (АОмпег: ТСотропеп®е); очеггаае; 
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руЬ11звеа 
ргорегЕу ОпТ1мег: ТМ№ое1ЕуЕуепе геаа ЕОпТ1мег мг1ве 


ГОпТ1пег; 
епа; 


сопзЕгасвог ТМуСоптр.Сгеафе (АОипег: ТСотропеп®); 
Бед1п 


ЕТ1пег := ТТ1мег.Сгеаке ($е1Е); 


ЕТ1мег.ОпТ1мег := Оп1ТппегТ1мег; 
епа; 


ргоседиге ТМуСопр.ОпТппегТ1тег (бЗепаег: ТОБ]ес*); 
// Диспетчеризация события ОпТ1тег 
Бед1п 
1Е Азз1апеа (ЕОпТ1мег) &Ъепл 
ЕОпТ1мег (бепаег) 
епа; 


Как и в процессе создания свойств, следует опубликовать необходимые собы- 
тия родительского класса. Например: 


ТМуСомр = с1азз (ТМ1пСопЕго1) 
рУЬ11с 


ргорег®еу ОпКеуромп; 

ргорегеЕу ОпКеуРге$$; 

ргорегеу ОпКеуЧр; 
епа; 
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Приводившиеся выше примеры наглядно демонстрируют, какой значительный 
объем кода сопровождает создание нового компонентного класса. Моде!Макег во 
многом избавляет программиста от ручного кодирования свойств, методов и со- 
бытий, сокращая сроки разработки. 

В этом разделе на примере создания функционально законченного компонента 
иллюстрируется методика использования Мо4е!Макег. Компонент, о котором пой- 
дет речь, есть всего лишь специализированная метка ТТаБе1, которая в своем свой- 
стве СарЕ1оп отображает строковое представление целого числа. 


Этапы разработки 


В Моде|Макег используется понятие модели как аналог проекта в Ое|р]1. Ниже 
перечислены основные этапы работы с Моде! Макег. 
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1. Создается новая модель. 


2. В модель помещается новый класс. При этом определяется родительский класс 
и указывается имя нового класса. 


3. В классе определяются новые и/или перекрываются старые свойства, методы 
и события. 


4. Для каждой новой сущности класса программист кодирует только операторы 
исполняемого кода. 


5. Новый класс помещается в модуль. 


6. Выполняется генерация вновь созданной модели, в результате которой полу- 
чается полный исходный текст модуля. Модель и файл модуля сохраняются на 
диске. | 


7. С помощью ОерЫ! осуществляется отладка нового модуля, и, если он содержит 
новые компоненты, эти компоненты регистрируются в УСГ. 


8. С помощью Мо4е|Макег исходный текст документируется (снабжается ком- 
ментариями). Мо4е]МаКег поможет также создать необходимый файл по- 
мощи. 


В следующих подразделах каждый из указанных этапов рассматривается более 
подробно. 


вы  аззез 


‚< и 
= я Упкпомп 
ргоседше (бепдег. ТОЫес{ о! оБес"; 


змий 


«АЙ саедопез» = | | 


ть, лететь аа 


$ 3 БЫ Сеае; 
У | Оезгоу; 


Чпсе ыескед: ТОБесе, 3 4а$56$ п тоде! 


Рис. 26.2. Окно визуальной среды разработчика модели 
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Активизация МодеМакКег 


После установки Мо4е!|Макег в главное меню ОерЫ! автоматически добавляется 
пункт Моде[Макег. Выберите команду Моде[МакКег ›» Кип Моде|Макег. На экране по- 
явится окно визуальной среды разработчика модели (рис. 26.2). 

Верхняя часть окна содержит главное меню и инструментальные кнопки для 
манипуляции моделью как таковой. 

Левая часть окна занята двумя браузерами. Верхний управляется двумя вклад- 
ками, переводящими его в режим отображения дерева классов и интерфейсов 
(вкладка С(а$5е$) или связанных с моделью модулей (вкладка Чп\$). Нижний ото- 
бражает сущности выбранного класса (интерфейса). 

Вся оставшаяся часть окна занята рабочей зоной, содержимое которой управ- 
ляется вкладками в ее верхней части. 


Вставка нового класса 


Как уже отмечалось в предыдущем разделе, важным шагом при создании нового 
компонента является правильный выбор родительского класса. Для нашего при- 
мера таковым будет класс ТТаре1, для которого достаточно добавить новое свой- 
ство МопУа10е. Для правильной генерации нового класса в браузере классов сле- 
дует указать сначала имя родительского класса. Это может показаться сложным: 
для родительского класса нужно указать его родителя, затем родителя родителя 
ит. д. К счастью, это не так. В Мо4е|Макег для родительского класса нового класса 
можно указать любого родителя, например, ТОБ]ес® или ТСомропепе. 


1. Выберите команду Ре ›» №ем Гот Оегаи{. 


2. Вокне браузера классов щелкните на классе ТСотропепь и нажмите клавишу 
[п$. 


3. Замените умалчиваемое имя ТРеЁац1%1 именем ТТаре1. 


4. Вновь нажмите клавишу [п5$ для определения нового класса и замените его имя 
именем ТТпЕГаье1. После этого окно браузера должно выглядеть так, как по- 
казано на рис. 26.3. 


СЕ 'Саззез | Ци | 4 


|; 2-13 ТРегуяем 

‚ЕН ТСотропеи 
-; 2 Паа 
‚ ЕЕ Тб по$ 


НХ 


Рис. 26.3. Определение нового класса 


Определение новых свойств и методов 


В новом классе ТТпЕТаре1 следует определить новое свойство и два метода для 
доступа к нему. Результирующий код должен быть приблизительно таким: 


Суре 
ТТлеТаре]1 = ©1аз$ (ТГаБе1) 
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ргобесвеа 
Еипсе1оп СесМотУа1ае: Тпеедзег; 
ргосеачиге Зе -МотУа1ие (Уа1ие: Тпеедег); 
рур11зВеа 
ргорегеу МиаиУа11е: 
Тпееаег геаа сСесМопУа]ае мг1е бесМитУа1ае; 
епа; 


Для добавления к классу новых членов используется нижний браузер, окно 


которого показано на рис. 26.4. 


‘рих 2 
уз. 9. 
лн® =. 


Рис. 26.4. Окно браузера членов класса 


В его верхней части содержатся инструментальные кнопки для добавления НО- 


ВЫХ полей, методов, СВОЙСТВ, событий и определения областей их ВИДИМОСТИ. 


1. 


мрт 


Щелкните на кнопке добавления свойства (третья слева в верхнем ряду). На 
экране появится окно определения свойства (рис. 26.5). 


В поле Мате введите имя свойства МамУа1ое. 
В группе М $11 у установите переключатель риб$Пед. 
Убедитесь, что в группе Ва*а фуре установлен переключатель [п{едег. 


В группах Кеа4 Ассез$ и \"е Ассез$ установите переключатели Ме По4$ и закройте 
окно щелчком на кнопке ОК. 


В окне браузера Членов класса ДОЛЖНЫ появиться названия двух методов (Сее — 


МитУа1иеи 5е МимУа1че) и свойства (№атУа1ае). 


Вставка исполняемого кода 


Вы уже, очевидно, поняли, что значительную часть кода Моде!Макег генерирует 
автоматически. Взгляните на конечный код двух методов: 


Еипсе1оп ТТаЕГаБе1.сееМимУа1ае: Тпфеазег; 


Бедап 
Вези1Е := бЕгТотпЕреЕ (Сарё1оп, О0) 
епа; 
ргосеаиге ТТпЕГаре1.бееМимУа1ае (Уа1ие: Тпфедег); 
Беда п 
СарЕ1оптп := ТпЕТобег (Уа1ще) 


ета; 
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Тули ве! ргорегу 
__ Зкалдага Гаага Госте Увивфеврол |. В 
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. г орет сме ра и. = м о ое | во адотае д 


| на едег =. ПИ и сотдмов г зо о. 

С Гоп 5 Вобеаи = _^ Або Г. Мапаги 

ег А еле Г бы. - 2 . к ОЕЕ\айам 
оС бое — ое Сл —. : С ибн 
м > Силесу - п чан 


‚ов ТуроМате- о о 


С -Веад Ассезе- = те и р м 

1 ” Мое. ТИ г "Коте 
пе _ ИВ Ио ‘Дею 
ие г г. Менов _ о __ > е — та ` Мене _ 

С ры и — Мийо раиатенег о 


а Саво И линиие -} _ :” И . ] | — в и 


Рис. 26.5. Диалоговое окно определения нового свойства 


Заголовки методов и зарезервированные слова Ъед1 п и еп4 вставляет Мо4е]- 
Макег. Программисту нужно вставить лишь две строки, определяющие исполняе- 
мую часть методов. Разумеется, во многих практически важных случаях вставляе- 
мые методы не будут такими простыми, как в нашем примере, и потребуют 
значительно большей ручной работы. Но и тогда экономия времени очевидна. 


1. Щелкните на методе бсе-М№амУа1че в окне браузера членов класса. 


2. Перейдите на вкладку [тр(етет{айоп в рабочей зоне Мо4де|Макег. Рабочая зона 
будет содержать набор инструментальных кнопок, окно браузера локального 
кода, окно результирующего кода и окно редактора кода (рис. 26.6). С помощью 
инструментальных кнопок в формируемый метод можно при необходимости 
вставить локальные переменные и локальные процедуры, которые будут тут 
же отображаться в окне браузера локального кода. Щелчок на локальной про- 
цедуре в этом браузере приведет к отображению локальной процедуры в окне 
редактора кода, что позволит сформировать ее исполняемую часть. Щелчок на 
окне результирующего кода активизирует текущую секцию этого кода в окне 
редактора кода. 
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ООО ВОО БОБОВ ООО ОВО ВОО ООО О О ОИСИ 


Инструментальные 
Е си. р Г выч. зо. ща 


АР ИИ АА И их 


Заголовок метода ее: топсето Семи еще : `Тоседек; 


Поле редактора ——- 
Опе Чпег ! | 


| - мак 
| - 10са1 соде 


телки. 


По И и ль 


[Везц1е = ЗесТоТиере# (Сарезоп, 0) 


Браузер 
локального кода 


Окно 
редактора 
кода 


ПР ООИИИИ 
Окно — Я 
результирующего | 


Кода ‘ета; 


нЕт 


пи пили лия о ие Илии в ле и ее лоте воле тов таль 


Рис. 26.6. Вид рабочей зоны в режиме ввода исполняемого кода 


3. Щелкните в окне редактора кода и введите следующую строку (отступы вво- 
дить не обязательно — их автоматически вставит Мо4е|МакКег): 


Вези1е := бегТотпЕреЕ (СарЕ1оп, 0)Моае1мМ 


4. Щелкните на кнопке $ауе соде (пятая слева). В окне отображения результиру- 
ющего кода появится только что введенный оператор. 


5. Щелкните на процедуре 5е=М№от\Уа1лче в окне браузера членов класса. 
6. В редакторе кода введите такой оператор: 
СарЕ1оп := ТлЕТобег (Уа1ое) 


Обратите внимание, что слева от операторов в окне результирующего кода по- 
явилась зеленая вертикальная линия. Это означает, что вами создана секция кода, 
которой вы можете распоряжаться по своему усмотрению. В код может вставлять- 
ся неизменяемая секция, которая создана как образец, не подлежащий изменению. 
Такие секции помечаются красной линией. Наконец, количество отображаемых 
строк любой секции определяется настройками редактора — поле Ро{9 ВетдГ\ на вкладке 
ЕЧ\ог$ окна Епитоптеп* ОрЯоп$ (открывается командой ОрНоп$ › ЕпмтоптепЕ ОрНоп®). 
Если в секции больше строк, она помечается второй линией пурпурного цвета. 


Создание модуля с исходным кодом 


Фактически, мы завершили формирование модели. Однако все внесенные в нее 
изменения остаются внутри Мо4е|Макег. Чтобы показать их еры, необходимо 


создать модуль и сохранить этот модуль на диске. Результирующий код модуля 
показан в листинге 26.4. 


Листинг 26.4. Код модуля паБе!.ра$ 


(116 ТпеГаре]1; 

1п$егЕасе 

изез 
$5уУ$0Е115$, ИМ1паом$, Меззадез$, С1аззез, СгарН1с5, Соп6го1$, 
Гогт$, 01а1оа$, 5ЕАСег1$; 


560 Глава 26. Создание компонентов с помощью МоадеМакег 


Суре 

ТТпеГаре1 = с1аз$$ (ТТаБе1) 
рговесвеа 

Еапсе1оп СесМомУа10е: Тпфедег; 

ргосеаиге Зе еМомУа1ае (Уа11е: Тпеедег); 
руЬ11звеа 

ргорег®еу МатУа11е: 

Тпседег хеаа сеЕМопУа1ае мг1®е беЕсМотУа10е; 


еп; 
ргосеаиге Кед1зкег; 
1пр1етепфка®1оп 
ргосеаиге Ведазфег; 
Бедап 
Кедч1з$егСоптропеп*$ ('ММ Рето', [ТТпЕЬаБе1]); 
епа; 
Еапс®е1оп ТТпЕГаре]1.СеЕМитУа10е: Тпкедег; 
Бедлп 
Кезо1{ := бЕегТотпЕреЕ (Сарф1оп, 0); 
епа; 
ргосеаиге ТТпеГаре]1.5ееМамУа1ае (Уа1ще: Тпседег); 
Бед1п 
Сар®е1оп := ТпЕТобег (Уа1ае); 
еп; 
епа. 


Щелкните на вкладке п окна браузера классов. 


2. Щелкните наединственной доступной инструментальной кнопке Ада. На экра- 
не появится окно редактора модуля (рис. 26.7). 


3. Оставьте выбранным пункт <№ айаз> в списке 5оигсе раЁН АНа5. 


4. Введите в поле Ке[аНуе Уп {е пате полный маршрут доступа к файлу. Напри- 
мер, С:\ММ ПРемо\ТпЕГаБе1.РА$. Для формирования сложного маршрута 
используйте кнопку Вго\мзе. 


5. В списке АуаЦаЩе с|аз5ез щелкните на классе ТТпЕГаЬе1 и затем на кнопке 
с направленной вправо стрелкой. 


6. В графе УСЕ Раде списка С(аз5е$ 1п ипЁ введите имя ММ ПБемо в качестве имени 
вкладки галереи компонентов Оеры, на которой должен разместиться созда- 
ваемый компонент (эта вкладка будет создана в момент регистрации компо- 
нента). 


7. Щелкните на кнопке ОК. В правой части рабочей зоны появится такой текст: 


ип1е <!0п1ЕМате!>; 

1п$егЕасе 

и5е5 
5у$06115$, М1паом$, Меззааез, С1а55ез$, СгарП1с$, 
Сопего1$, РГогм$, П0О1а]1о9$; 

фуре 

ММИТМ: 5ТАКТТМТЕКГАСЕ 
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ММИТМ: СТГАЗЗ5ТМТЕКГАСЕ ТТпЕГаре1; Тр=533; 

ргосеаиге Кедазфег; 

1тр1емепвае1оп 

ргосеаиге Кед1зтег; 

Бед1п 

ММИТМ: СТСАЗЗВЕСТОТКАТТОМ ТТпЕГаБе]1; Тр=533; 
Раде='ММ Рето'; 

епа; 

ММИТМ: $5ТАКТТМРГЕМЕМТАТТОМ 

ММИТМ: СТАЗЗТМРТЕМЕМТАТТОМ ТТпЕГаре1; 10=533; 

епа. 


| бий | боситенщаноп | 
бошсе ран Аз | <№ айаз>_ | Ме абаз_ 


РАМА 


Веёуе Ций ве паме _ | \РТЕРОЙЯ ‘бомесбрар. СМА _  Божее 


сад пеш Ций етпр/ае` _ Кбвеваловдн етраю> __._ Вгомке | 


Саедоку 


г Ао епегабол ЕпаЫед 

Го Не Нот ций мен 

№ \!ат ог изяпд с1аз$ {29$ 
Саззез Ее | 
ДуайаЫе 6а55е$ | —— _С!а53е$ М ций И . № Не-огде | 
- А п к ши шашш 


т Сотропен! м Е Мм Оето 


| ТРегз ети 
1Т5ид$ 


иле тли тии кии меикрииге 


Сапсе! 


Рис. 26.7. Окно редактора модуля 


Этот текст содержит различные теги (начинаются символами ММИТМ), кото- 
рые при генерации текста будут заменены стандартными операторами. В пред- 
ложении азе5$ перечислена стандартная последовательность модулей, которые 
обычно используются при создании нового модуля в реры. Родительский класс 
ТГае1 объявлен в модуле 5 АСег1 з, которого в этой последовательности нет. 


Добавьте ссылку на $&А9СЕг15$ в предложение ззез вручную. 


Щелкните на кнопке Фа\уе соде. Теперь все готово для генерации исходного мо- 
дуля шаБе|.ра5. 
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10. Щелкните на кнопке Упоск соде депегаоп (6-я слева в верхнем ряду). 
11. В окне браузера модулей щелкните на кнопке бепега{е (3-я слева). 


Теперь исходный код создан и находится на диске в указанной вами папке 
в файле с именем [п аБе|.раз. Дальнейшая работа с модулем (отладка и регистра- 
ция компонента в УСТ.) должна происходить под управлением Ое!р1. Загрузите 
среду Ое|рЫ (если онаеще не загружена) и нажмите клавиши СЕ+Е11 или перейди- 
те в Пер! вручную. 


Отладка компонента 


Особенностью отладки компонента является необходимость его регистрации в УСГ. 
Однако если новый модуль имеет серьезные ошибки, это может привести к сбоям 
Ое|рЬ! вплоть до полной потери работоспособности системы. Поэтому отладку 
компонента рекомендуется вести до его регистрации. Для этого создается новый 
проект, к которому присоединяется модуль с компонентом. В главном окне проек- 
та размещаются все необходимые для проверки нового компонента элементы управ- 
ления. Сам компонент не может быть создан на этапе конструирования програм- 
мы (он еще не зарегистрирован в УСГ,), поэтому его следует создавать на этапе 
прогона программы (обычно в обработчике события ОпСгеа‹е главной формы). 

С помощью главного окна проекта Зоитсе\СВар_26\ММОето\Тез{ММОето.арг тес- 
тируется компонент ТТпеЪаБе1. Обратите внимание на такой фрагмент текста 
модуля главной формы: 


уаг 
ТпеЬаре1: ТТпЕГаре1; 
ргосе4иге ТГогп1.ГогтСгеафе (Зеп4ег: ТОБ)ес®); 


Бед1п 
ТпЕГаре1 := ТтаЕ&ГаБе]1.Сгеате (5е1Е); 
ТпЕТаре1.РагепЕ := 3Зе1Е; 

епа; 


В обработчике события ОпСгеа+е формы не только создается объект класса 
ТТпЕГафе!1, но и вего свойство Рагеп* (Родитель) помещается ссылка на объект 
формы. Только в этом случае можно синхронизировать прорисовку главной фор- 
мы и всех ее дочерних компонентов (см. раздел «Родительские и дочерние компо- 
ненты» в главе 14). 


Совершенствование компонента 


В результате тестирования компонента могут выявиться те или иные недочеты, 
требующие исправления. Для исправления компонента можно, разумеется, вне- 
сти исправления в модуль ТпЕЪаБе1 средствами редактора кода Ое]ры, но есте- 
ственнее использовать возможности Мо4де|!Макег. В этом последнем случае исход- 
ный код будет сгенерирован заново, и все внесенные в него редактором Ое!рЬ! 
изменения окажутся потерянными. | 

Например, наш компонент ТТпЕТаре1 не виден в начале прогона программы 
ВПЛОТЬ ДО ТОГО, Как мы не пошлем ему число или текст. Для исправления ситуации 
следует перекрыть его конструктор, чтобы в его свойство №амУа11е поместить 0. 
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Более того, если бы мы зарегистрировали компонент в его теперешнем виде, он 
стал бы доступен на этапе конструирования, и при помещении его на форму среда 
ОерЫ! поместила бы в его свойство Саре {оп собственное имя компонента (вроде 
Тп&Ъаре11). Таким образом, в перекрытом конструкторе мы должны запретить 
изменение его свойства Сар {оп на этапе конструирования программы. В резуль- 
тате конструктор должен иметь такой вид (см. раздел «Свойства разного назначе- 
ния» в главе 14): 


сопзгасеог ТТпеГаре1.Сгеаее (АОмпег: ТСотропеп®); 
Бед1п 

1пБег1$еА Сгеате (АОмпег); 

// Запрещаем изменение свойства СарЕ1оп 

// на этапе конструирования 


Сопёго156у1е := Сопёго15$у1е - [сзбееСар®1оп]; 
// Устанавливаем свойство МитУа]ие 
М№омУа10е := 0; 

епа; 

Вернемся к Моде!Макег. 


1. Щелкните на кнопке \!гаг4$ в окне браузера членов класса (5-я в верхнем ряду). 


2. В новом окне (рис. 26.8) щелкните на строке Сгеа{е(Омтег: ТСотропеп) и убеди- 
тесь, что установлен флажок Са 1пНег\ед те{под. 


1 3; 5 Оезноу; 
1 3$ 3 Гоадед; 
| № 2 Монйсаног(аСотропепе ТСотропеги; Орегабоп: 


р не о рая ие НН 


Рис. 26.8. Окно перекрытия метода 


3. Закройте окно щелчком на кнопке ОК. 


4. Перейдите на вкладку Гтр(етегаНоп в рабочей зоне. Вы увидите, что средой 
Моде|Макег была вставлена неизменяемая секция кода с единственным опера- 
тором: 
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1прег16еа Сгеафе (АОмпег); 
5. Добавьте новую секцию кода щелчком на кнопке Ад зесНоп. 


6. Введите в редакторе кода следующий текст и сохраните его щелчком на кнопке 
Зауе соде: 


// Запрещаем изменение свойства СарЁ1оп на этапе 
// конструирования 


Сопёго156у1е := СопЕхо156у1е - [сз5ееСар®1оп]; 
// Устанавливаем свойство МитУа]1ие 
М№опУа]11е := 0; 


Для регенерации исходного кода можно было бы еще раз щелкнуть на кнопке 
бепегаНоп, но у Мо4ае|Макег есть более гибкая возможность: щелкните на кнопке 
ЕпаЩе Ацфо бепегаоп в окне браузера модулей и затем вызовите Оер|1. Вы заме- 
тите, что файл п аБе(.ра$, представленный в окне кодового редактора, автомати- 
чески заменен новым. Пример тесного взаимодействия Мо4е|Макег с Реарь!! 


Оформление компонента 


В этом небольшом подразделе рассказывается о рутинной, но весьма нужной ра- 
боте над вновь созданным компонентом. Конкретно мы поговорим: 


* одокументировании исходного листинга средствами Мо4е|МакКег; 


„„ О создании значка компонента, который будет виден на нужной вкладке палит- 
ры компонентов, 


# осоздании справочной службы компонента и ее интеграции со справочной служ- 
бой Ое|ры. 


Документирование исходного листинга 


Мод4е|МакКег позволяет в определенной мере автоматизировать и унифицировать 
процесс создания документированного листинга нового компонента. К сожалению, 
автоматически создаваемые этим инструментом строки рассчитаны на англоязыч- 
ного пользователя. 

Чтобы продемонстрировать возможности Мо4е!Макег, перейдите в эту среду 
и щелкните на вкладке Ооситеп+а оп в рабочей зоне. Затем щелкните на кнопке 
МАтага и согласитесь с предложением мастера произвести стандартную генерацию 
документации. Щелкайте поочередно на каждом члене класса ТТпЕТаЪе1 в окне 
браузера и вы будете видеть представленный ниже текст. 


Для метода сееМитУа1ае (СесМимУа1ие — метод чтения свойства МамУа11е): 


СсееМ№амУа]1щае 1$ ЕПе геаА ассез$ пмеевоЯ оЕЁ ЕПе МамУа1ае 
ргорег®еу 


Для метода бе МаошУа10е (Зе М№омУа]1е — метод записи в свойство №ам\Уа1 ще): 


ЗеЕМ№амУа1ае 15$ %Бе мг1Ее ассезз$ пеЕервоЯ оЕЁ ЕПе МашУа]ае 
ргорег®у 


и Для свойства МамУа]иае (свойство №омУа] че доступно для чтения/записи на 
этапе прогона и конструирования): 
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Ргорегеу МамУа1ае 1$ геаа / мг1%е аЕ гоп &1те апа аез1ап 

Е 1пе 
» Для конструктора Сгеа*е (конструктор Сгеа*е перекрывает унаследованный 
конструктор Сгеа{е; вначале вызывается унаследованный конструктор, затем 


инициализируется внутренняя структура данных): 


СопзЕегасЕог Сгеафе оуегг1Аез ЕВе 1пВег1%еа Сгеа*%фе. 
Е1г5Е 1прег16еа Сгеабе 15$ са11еа, ЕВеп $Ве 1пеегпа1 Чафа 
5егисбиге 1$ 1п0161а112еа 


Согласитесь, это не так уж плохо. Но для русскоязычного пользователя такая 
документация может не подойти. В этом случае вы можете в окне редактора на 
вкладке Ооситег(аНоп вставить любой текст (см. проект боигсе\СНар_26\ММбето\ 
Рго}ес*1.трь). 


Создание значка 


Для создания значка воспользуйтесь редактором [тазеЕ4Ког, входящим в постав- 
ку Р@ар!! (выбрав команду Тоо($ › [таде ЕЧКог). Создайте с его помощью растровое 
изображение (команда Ее ›» Мем » Сотропеп+ Везоигсе Ее и затем Кезоигсе › №ем ›» 
В тар) размером 24 х 24 в цветовой палитре из 16 цветов. Назовите новый ресурс 
именем класса компонента (ТТМТТАВЕГ), причем обязательно используйте про- 
писные буквы, после чего сохраните ресурсный файл в той же папке, где располо- 
жен модуль компонента, назовите его именем модуля с расширением ОСК (Тп+- 
[ аБе(.4сг). После этого в момент регистрации ресурс будет автоматически связан 
с компонентом. 


Создание справочной службы 


Моае|МакКег автоматизирует процесс создания справочной службы для разрабо- 
танного компонента. Для этого Мо4е|МаКег использует созданную этой средой 
и/или программистом документацию и представляет ее в виде готового к компи- 
ляции КТЕ-файла и НР]-файла проекта. Мо4е|МакКег автоматически включает 
в заголовки тем (разделов) справки ссылки В, обеспечивающие необходимую ин- 
теграцию НРГ-файла со справочной службой среды Оеры. 

Для генерации файлов, необходимых для создания справочной службы, в рас- 
крывающемся списке на вкладке ВоситепваНоп выберите пункт Уп 5 и щелкните 
на небольшой кнопке Не(р Ве слева от списка (эта кнопка недоступна при любом 
другом выбранном в списке пункте). В появившемся диалоговом окне (рис. 26.9) 
вы должны указать папку для размещения файлов и имя КТЕ-файла. 

С помощью переключателей группы (1а$$ тетБег$ \151Ы1Йу вы можете опреде- 
лить области видимости членов класса, информация о которых будет помещена 
в справочную службу: 


". Озег (риБ@с, риуБИ$Вед, ащота{еа) — информация рассчитана на пользователя; 
документируются члены, располагающиеся в секциях раЬ11с, раБ]115реа, 
азота ед; 


" Сотропеп* муп\ег (Уз$ег рш$ ргое ед) — информация рассчитана на программис- 
тов, которые будут создавать наследников вашего компонента; документация 
дополняется членами, объявленными в секции рхо&ес*еа; 
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_НеРАТЕ П8 о . О 
| ь ИНЕТЕ ВЕ ыЕ 


в ее рые; ней змотаед) 
С Сотропеии инет (Цвет Риз роесе 
С Сезтег Сы Без) | 


г“ Модие моседие УзЫвех- 
ом Рис - Чес1аге4 | И уцецасе 


(Г Выве- бесед прететарол ра 
57] Сапа | 


Рис. 26.9. Окно настройки параметров генерации справочной службы 


# Оез1адпег (а 111 е$) — документируются все члены класса. 


С помощью флажков группы Модще ргоседите у Иез выбираются процеду- 
ры модуля, которые будут документированы: 


} РиБИс - дес[агеЯ 1п т\егасе — процедуры, объявленные в интерфейсной части 
модуля; 


и Рпуае - дЧецагед тп 1трететаНоп — процедуры, объявленные в исполняемой 
части. 


Флажок КеГогта* РагадгарН$ обычно установлен и обязывает Мо4е|Макег пре- 
образовать в единый абзац все строки документации. Если он сброшен, строки не 
преобразуются. 

После задания необходимых параметров щелкните на кнопке ОК. 


СОВЕТ — При преобразовании строк Мо4де|МакКег использует кодировку КОИ-7, соглас- 
но которой старший бит каждого символа отбрасывается. Поскольку символы 
кириллицы занимают коды от 128 и выше, русскоязычная документация будет 
безнадежно испорчена. В этом случае можно порекомендовать ручной (через 
буфер обмена) перенос текстовых фрагментов с вкладки доситеп*а оп в резуль- 
тирующий КТЕ-файл. 


Для генерации НЁ.Р-файла используется компилятор НСМ.ЕХЕ, который распо- 
лагается в папке Нер\Тоо{5 каталога размещения Ое]рр1. С помощью команды 
[Це › Ореп или щелчком на соответствующей инструментальной кнопке откройте 
созданный Мо4де!Макег файл проекта 1паБе(.Вр}, после чего щелчком на инстру- 
ментальной кнопке Сотр\е получите файл справки. 


Регистрация компонента 


После отладки компонента и создания его значка можно зарегистрировать компо- 
нент в палитре компонентов Пери. Для этого в среде Ое|р выберите команду 
Сотропеп* ›» Тпз+аЦ Сотропеп*. По умолчанию Ое|р|! предлагает перенести компо- 
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нент в пакет! ИБ\ас(изег.Арк каталога размещения Ое|рр1. Если вы хотите уста- 


новить компонент в собственный пакет, перейдите на вкладку [п{0 пе\м раскаде 
(рис. 26.10). 


Зешси ра: . г 


| Раскаде ве пате: 


| | вы дезобт :г — 


Рис. 26.10. Регистрация компонента в новом пакете 


В поле Упй Яе пате следует указать имя файла с модулем компонента. Сове- 
тую использовать кнопку Вго\узе, так как в этом случае не только упрощается ука- 
зание маршрута доступа к файлу, но и этот маршрут автоматически дополняет 
список 5еагсН ра{В, в котором перечисляются папки для поиска связанных с ком- 
понентом ресурсов. В поле РасКаде П{е пате нужно указать имя вновь создаваемого 
файла пакета. Поле РасКаде дезспрЯоп может содержать произвольную текстовую 
строку, которая будет идентифицировать пакет в списке всех зарегистрированных 
пакетов. 

После заполнения полей и щелчка на кнопке ОК осуществляется компиляция 
модуля (если он не был предварительно откомпилирован). В ходе регистрации 
автоматически ищется файл с компонентным ресурсом (СВ). Если он небыл най- 
ден (а это может быть, если вы не назвали его по имени компонентного модуля 
или компонентного класса), компоненту будет присвоен значок родительского 
класса или специальный значок, если родительский класс не имеет значка. После 
успешной регистрации вы можете увидеть компонент на вкладке, определенной 
первым параметром обращения к процедуре Вед1 з+егСотропепез в модуле ком- 
понента (если до регистрации компонента такой вкладки не существовало, она будет 
создана). 

При экспериментах с компонентами вам может понадобиться отказаться от ре- 
гистрации компонента. Для этого необходимо в контекстном меню палитры ком- 
понентов выбрать команду Ргореге$, в поле Раде$ открывшегося окна Рае е 
Ргореге$ активизировать нужную страницу и щелкнуть на кнопке ее. 

Для связывания файла справки компонента со справочной системой Оеары 
выберите команду Не\р ›» Сизоту2е, в открывшемся окне перейдите на вкладку Ипк 
и щелкните на кнопке АВА Е(ез или выберите команду Е@\* ›» АВА ЕЦез. 


' Пакетами в Ое]рЫ называются особым образом оформленные библиотеки 01.1, предназначенные 
для хранения компонентов. 


Приложение А 


Интегрированная среда 
разработчика 


Интегрированная среда разработчика (ИСР) Пер! содержит огромное количе- 
ство вспомогательных утилит и диалоговых окон, описать которые в одном прило- 
жении просто невозможно — для этого требуется отдельная книга. В этом прило- 
жении мы познакомимся с командами главного меню, а также особенностями 
работы с текстовым редактором и возможностями отладки. 


Главное меню 


В этом разделе описываются главное меню Оерь! 7, а также наиболее важные ин- 
струменты этой среды (включая хранилище объектов, менеджер проекта, менед- 
жер трансляций ит. д.) и приемы работы с ней (включая управление группой ком- 
понентов, выбор языков локализации, настройка параметров среды и пр.). Следует 
сказать, что некоторые пункты главного меню появляются только после установ- 
ки необязательных утилит. Эти (необязательные) пункты не рассматриваются. 


Меню ЕПе 


Команды меню Р(е перечислены ниже. 


""_ Мем — подменю со следующими командами: 

С] АррИсаНоп — создает новую программу для \УМш4о\з; 

О СХ АррИсайоп — создает новую программу для \/114о\з и Гапих; 
С] Оафа Модще — создает новый модуль данных; 

О ГРгт — создает новую форму и подключает ее к проекту; 

О Рате — создает новую рамку; 

С О{Пег — открывает окно хранилища объектов (см. ниже). 


„" Ореп — открывает ранее созданную форму. 


*" Ореп РгодесЕ — открывает ранее созданный проект. 
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Кеореп — вызывает список ранее загружавшихся проектов и форм для выбора 
и повторной загрузки. 


”. Узе Уп — вставляет в текущую форму ссылку на другой модуль. 


” РипЕ — печатает активную форму или модуль. 


”. ЕХК — прекращает работу Оеры. 


Хранилище объектов 


Окно хранилища объектов Пер (рис. А.1) открывается при выборе команды 
Ее › Мем ›» О{Вег. 


о Роесв о Оза Моше. | миамеь | Вожбой | `\Меббемеез | 
| Визе. | \/е6биар _ ] _  М/еБ боситей8 | Соба | 
| — № |. АсвуеХ ^ | “Мише | Рюесё “1 Роз. 1 `баюфе || 


ВасН Ре СХ Согтропем Сопзое 
Аррисайоп Аррисаноп 


Сопина Рапе! СопнаРапе! баз Модие ОШ МАгагд Рот 
Аррисанот Моде 


Р'оес{ б'оир Аезошсе ОЦ. — Зегмюсе 


И МИЛА ААА ЕАМ 


.] в Сапсе! = Нер 


__ Сапе! ^ | АмммААмчимилАлАллллм 


Рис. А.1. Окно хранилища объектов Веры 


На вкладках этого окна расположены значки для выбора прототипов форм, 
модулей, проектов и мастеров (экспертов) построения форм и проектов. Переклю- 
чатели Сору, [пНепЁ и У5е определяют режим связи между хранящимся в хранили- 
ще прототипом и его копией в проекте: 


*" Сору — выбранный элемент копируется в текущий каталог и автоматически под- 
ключается к проекту; между прототипом и его копией нет никакой связи; 


"” пней — в проекте создаются наследники выбранного элемента и всех его ро- 
дителей; любые изменения прототипа проявляются во всех проектах, которые 
его унаследовали; изменения наследника не влияют на прототип; 
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.‚ Уе — выбранный элемент становится частью проекта; любые его изменения 
в проекте приводят к изменениям прототипа и сказываются во всех других про- 
ектах, которые его унаследовали или используют. 


Ниже кратко описывается методика размещения в хранилище разработанной 
программистом формы. 


1. Разработайте форму, которую вы часто будете использовать в разных проек- 
тах!. Поместите на ней все необходимые интерфейсные компоненты и, если это 
необходимо, закодируйте обработчики их событий. 


2. Сохраните форму в любой папке жесткого диска. Для упорядочения поиска 
прототипов можно использовать для этих целей папку ОБгеро$ каталога разме- 
щения Беры. 


3. Щелкните на форме правой кнопкой мыши и в контекстном меню выберите 
команду Ада {о Кероз\огу. На экране появится диалоговое окно регистрации 
формы в хранилище (рис. А.2). 


4. В поле Пе введите имя, под которым форма будет зарегистрирована в храни- 
лище, например, ИогкГогм, в поле дезсирЯоп — описание формы, например, 
Основная форма для проекта В1611ор|Н11, в поле Ац\Пог — свое имя. 


5. Раскройте список Раде и выберите ту вкладку хранилища, на которой следует 
разместить форму, после чего щелкните на кнопке ОК — форма окажется в хра- 
нилище. 


ВНИМАНИЕ Если вы не укажете страницу, форма не будет размещена в хранилище, 
однако вы сможете ее найти на вкладке с именсм вашего проекта. Тиражи- 
рование такой формы, как и любой другой формы этой страницы, возможно 
только в рамках вашего проекта. 


Рис. А.2. Окно регистрации формы в хранилище объектов 


' Если вы хотите тиражировать какую-то форму текущего проекта, ее нет нужды размещать в храни- 
лище — она там уже есть на вкладке с именем вашего проекта (такая вкладка в окне хранилища авто- 
матически создается для каждого открываемого проекта). 
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Вновь размещенную форму можно сделать главной. Главная форма создается 
при старте нового проекта с помощью команды Ее › №ем » АррИсаНоп. Для опреде- 
ления главной формы выберите команду Т00(5 » Кероз\огу, в открывшемся диало- 
говом окне укажите вкладку размещения в списке Радез и форму в списке ОБ]ес&5, 
после чего установите флажок Мат Гогт. Если установить флажок №№ Гогт, выб- 
ранная форма будет создаваться при щелчке на кнопке № ем Гогт панели инстру- 
ментов или при выборе команды Ее ›» № м › Рогт. 


Меню ЕЗК 


Команды меню Е@\* перечислены ниже. 


*" Упдо — отменяет последнее изменение проекта. 


"" Кедо — восстанавливает последнее изменение Проекта. 


* (и — вырезает выбранный компонент формы или фрагмент текста и помещает 
его в буфер обмена (сИрБоага). 


” Сору — копирует в буфер обмена выделенные компоненты формы или фраг- 
мент текста модуля. 


” Рае — извлекает из буфера обмена и переносит компоненты на форму или ко- 
пирует текст в модуль (в позицию, идентифицируемую текущим положением 
текстового курсора). 


" Оеее — удаляет выделенные компоненты или фрагмент текста. 


# ес АЦ — выделяет все компоненты формы или весь текст модуля. 


*” АЙдп То бй4 — привязывает выделенные компоненты к масштабной сетке так, 
чтобы их левые верхние углы располагались в ближайших точках сетки. 


= Випд То [гоп — перемещает выделенные компоненты на передний план. 


”” 5епа То Васк — перемещает выделенные компоненты на задний план. 


т АЙдп — вызывает окно выравнивания выделенных компонентов (см. ниже). 


 912е — вызывает окно изменения размеров выделенных компонентов (см. 
ниже). 


= эсае — масштабирует выделенные компоненты (см. ниже). 


"" ТаБ Огдег — изменяет порядок обхода компонентов, выполняющийся по нажа- 
тию клавиши Таб. 


* Стеайоп Огдег — изменяет порядок создания невизуальных компонентов. 


[р СПЦатеп — изменяет свойство В121Моде для всех или только для выделен- 
ных компонентов. 


*{ [оск Сопго[$ — блокирует возможность перемещения компонентов на форме. 


АДА То Тпже асе — определяет новые свойства, методы и события для компонен- 
тов Асйуех. 


Управление группой компонентов 


Показанные на рис. А.3-А.5 окна предназначены для обработки группы выделен- 
ных на форме компонентов по образу (или относительно) первого выделенного. 
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Чтобы выделить группу компонентов, нужно нажать и удерживать клавишу 5МИ, 
после чего щелкать на компонентах левой кнопкой мыши. Каждый отмеченный 
таким образом компонент выделяется маркерами (серыми квадратиками) по уг- 
лам его видимых границ. Затем вызывается команда Ед9\* › АПдп, Еа\ › $12е или 
ЕЧТЕ › $са(е соответственно для выравнивания, изменения размеров или масштаби- 
рования компонентов. Другой вариант — не отпуская клавиши $, щелкнуть пра- 
вой кнопкой мыши на любом свободном месте формы и выбрать нужную команду 
в контекстном меню. 


г Мешсаг | 
8 Мо свапае 


теневое - Ва Торз. 


.. с сете _ :. 2 | Г . © „бете . 

| Вон 94ез - — . | { ‚ Войоте | 

} ^ Зрасе едиайу о а “ `брасе едцайу 
^ Сетег! м ры о | > ” _ Сета} п уипдом, 


Рис. А.З. Окно выравнивания компонентов 


И Несдр: 
8 | ® № Спалде : 
- о 1% обВИик [С зтайезе | 
ра бон ` ен — 7 1. био {вое .. 


| гу Ума: ГГ . с ‚НЫ .] 


Рис. А.4. Окно изменения размеров компонентов 


2: ^ На о 
‚ Самсе! . а 


ам ыыы “< м 


Рис. А.5. Окно масштабирования компонентов 


Переключатели в окне выравнивания компонентов позволяют выбрать вари- 
ант выравнивания всех выделенных компонентов относительно самого первого 
выделенного компонента (эталона): 


"" № спапде — компоненты не выравниваются; 


 1еЁ я4е$ — компоненты выравниваются по левой границе; 
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>” КОП $14е5 — компоненты выравниваются по правой границе эталона; 


Е Зрасе едиаЦу — между всеми компонентами устанавливается равное расстояние 
по горизонтали или вертикали, 


 Сетщег1п илпдом — все компоненты центрируются относительно границ окна; 
" Тор — компоненты выравниваются по верхнему краю; 


” ВоМот$ — компоненты выравниваются по нижнему краю. 


Группа переключателей МИ в окне изменения размеров компонентов регу- 
лирует ширину выделенных компонентов, а группа переключателей Нед — их 
высоту: 


3 № сНапде — размеры компонентов не меняются; 


 эпппк фо зта(ез — уменьшает размеры компонентов до размеров наименьшего 
ИЗ НИХ; 


 бгом $о [агдез{ — увеличивает размеры компонентов до размеров наибольшего 
ИЗ НИХ; 


"МПа — позволяет задать ширину компонентов; 


‚’_ НедрЕ — позволяет задать высоту компонентов. 


В поле 5$саЙпд Гасфог окна 5сае вводится коэффициент масштабирования ком- 
понентов в процентах от текущих размеров. 


Меню Феагсп 


Команды меню ФеагсН перечислены ниже. 


 Апа — ищет фрагмент текста и подсвечивает его, если он найден. 


" Апа пл Ре — ищет фрагмент текста во всех файлах проекта, только в открытых 
файлах или, наконец, во всех файлах текущего каталога. 


 Керасе — ищет и заменяет фрагмент текста. 


"” ЭеагсН Адатп — повторяет поиск или поиск и замену. 


® ]пстетепка( Зеагсй — ищет текст по мере его ввода — сначала первую букву, за- 
тем две первых буквы ит. д. 

"" бото Ипе МитБег — перемещает курсор на строку с указанным номером от нача- 
ла файла. 


# Нпд Етог — по адресу ошибки периода прогона программы отыскивает фраг- 
мент кода, связанный с ее возникновением. 


’” Втгомзе 5утБо{[ — показывает место определения символа программы (команда 
доступна только после успешного прогона программы). Символом считается 
любой глобальный идентификатор вашего проекта. 


Меню Мем/ 


Команды меню \Мем перечислены ниже. 
=" Рго]есЕ Мападег — показывает окно менеджера проекта. 


" Тап&аНоп Мападег — открывает доступ к менеджеру трансляций. 


”_ ОБесЕ Тпзресфог — показывает окно инспектора объектов. 
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#_ \МЛпдом 1$ — подменю со списком открытых окон проекта. 
# Ааа опа| Меззаде [по — вызывает диалоговое окно для подготовки файла заме- 


чаний, чтобы переслать его на сайт Вог|ап4. 


О 
О 
О 


00000 


”" ОеБид \Мпдом$ — подменю отладочных окон со следующими командами: 


ВтеаКро1п{5 — показывает окно точек останова; 
Са ${аск — показывает окно стека; 


М/асН1пад Ехрге5$10п$ — показывает окно наблюдения за переменными/выра- 
жениями; 


[оса( Уапае$ — позволяет наблюдать за изменениями локальных перемен- 
ных в отладочном режиме; 


ТЮгеад$ — показывает окно статуса потоков команд; 

Модще$ — показывает окно модулей проекта; 

Еуеп{ [109 — показывает журнал событий; 

СРУ — показывает состояние регистров центрального процессора; 

ЕРУ — показывает состояние регистров арифметического сопроцессора. 


 ОезКор$ — подменю управления конфигурациями основных окон со следую- 


щими командами: 


О 
О 
О 


Зауе ОезКор — сохраняет текущую конфигурацию; 
Оее{е — удаляет ранее сохраненную конфигурацию; 
Зауе ОеБид ОезКор — определяет текущую конфигурацию как отладочную. 


# Тода(е Гогт или То99(е Уп — переключает активность из окна формы в окно кода 


программы и обратно. 


ыаскЯ 


 /п\$ — показывает окно модулей. 

*# Гогт$ — показывает окно форм. 

"" Туре Ибгагу — показывает окно библиотеки типов. 

*"_ М№ем ЕЧ МАпдом — открывает новое окно с кодом текущего модуля. 
*" Тоо{аг$ — показывает окно настроек панелей инструментов. 


Отладочные окна подробнее рассматриваются в разделе «Отладка программ». 
Некоторые другие окна, вызываемые командами меню Ме\м, описываются ниже. 


Менеджер проекта 


Центральную часть окна менеджера проекта (рис. А.6) занимает список всех свя- 
занных с проектом форм. Кнопка №\ открывает доступ к хранилищу, позволяя 
добавить новый модуль к проекту. Кнопка Ветоуе удаляет модуль из проекта. После 
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`. Ро Е НЫ 
О:\Ргодгат Рйез\Войап9\ОерН7\Раес$ 
О:\Р'одгат Риез\Войап\Оеры7\Р'гоес$ 


Рис. А.б. Окно менеджера проекта 


щелчка правой кнопкой мыши на имени модуля появляется контекстное меню, 
с помощью которого можно открыть модуль или сохранить его под другим именем. 

С помощью менеджера проектов осуществляется компиляция проекта на тот 
или иной язык локализации (см. ниже пункт «Менеджер трансляций»). Если для 
проекта определены языки локализации, в группе проектов помимо исполняемо- 
го файла Имя_проекта.ЕХЕ будут дополнительные проекты с тем же именем, но раз- 
ными расширениями (по одному проекту на каждый язык локализации). Если, 
например, язык локализации английский (Великобритания), в группе будет про- 
ект Имя_проекта.Е№б. Сделайте активным нужный проект и выберите команду 
Рготес® » Ви Имя_проекта. В результате будет откомпилирован нужный ресурс- 
ный файл. После этого вновь активизируйте проект Имя_проекта.ЕХЕ, с помощью 
команды Рго]ес{ ›» [апдиаде ›» 5е{ АсНуе укажите язык локализации и вновь отком- 
пилируйте проект. К проекту будет подключен нужный ресурсный файл, и ваша 
программа станет локализованной. 


Менеджер трансляций 


Менеджер трансляций упрощает создание локализованных версий программных 
продуктов. Он становится доступным только после указания языков, на которые 
будут переводиться текстовые сообщения, надписи, имена интерфейсных элементов 
и другие текстовые ресурсы программы. Для каждого языка создается своя динами- 
чески подключаемая библиотека ресурсов. Изменение этой библиотеки перед ком- 
пиляцией программы изменяет ее язык (см. выше подраздел «Менеджер проекта»). 

Для выбора языка (языков) локализации используется команда Рго]ес › [ап- 
дичаде (см. пункт «Выбор языков локализации» в подразделе «Меню Рго]ес®»). Глав- 
ным языком программы по умолчанию считается язык локализации \/ 114%, так 
что если РерыЫ работает под управлением русскоязычной версии М/т4о\, глав- 
ным языком будет русский. 

Окно менеджера трансляций показано на рис. А.7. Для представленного на нем 
примера главным языком программы является русский, а языком локализации — 
английский (Великобритания). 
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Рис. А.8. Вкладка \\МогкК$расе менеджера трансляций 
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В окне менеджера трансляций имеются три вкладки. На вкладке Еп\тгоптепЕ 
содержится список всех языков локализации (их может быть несколько). Вкладка 
Нез отображает все ресурсы проекта, которые следует локализовать. Обычно это 
ресурсные файлы (ОВС) и файлы описания форм (ВЕМ). Вкладка МогКзрасе (рис. А.З) 
содержит две панели. 

Левая панель отображает древовидную структуру проекта. Перемещаясь по 
этому дереву (раскрывая соответствующие узлы), можно выбрать нужный ресурс. 
Его содержимое тут же отображается в правой панели. Теперь можно осуществить 
трансляцию строк (на рис. А.8 переведен термин Обновить). 


Список заданий 


Список заданий предназначен для координации работы нескольких программис- 
тов в рамках одного проекта. Этот список отображает все комментарии проекта, 
которые начинаются символами / /ТОрО (рис. А.Э). Комментарии содержат сооб- 
щения руководителя проекта и/или программистов об обнаруженных ошибках 
и обычно располагаются там, где обнаружена неточность. После вызова списка за- 
даний переход к нужному комментарию осуществляется двойным щелчком мыши 
на соответствующей строке списка. Программист может сообщить об устранении 
ошибки, установив флажок в левой части строки списка — в этом случае текст стро- 
ки выводится перечеркнутым шрифтом. 


|+ С] УапаЫез/Сопжат8 : 


'ц5е= Разе0о113; 


(ркосейике ТРогси1.Сочис; 

'//основной подсчет 

`//торо 8 -ссрочно -оБ.Гейтс:Ошибка в подсчете супы! 
'уаг 

: Эми: Веа1; 
Р1езсрау: Трате; 
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Рис. А.9. Пример списка заданий 
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В списке заданий можно указать приоритет сообщения (колонка «!›), его авто- 
ра (Омпег) и категорию (Саёедогу). Эти параметры можно задать с помощью соот- 
ветствующих ключей непосредственно в комментарии или в окне редактора сооб- 
щения (оно вызывается после активизации сообщения и нажатия клавиши Ё2). 


Браузер объектов 


Браузер объектов (рис. А.10)) доступен только после успешного прогона програм- 
мы. Он представляет в наглядной форме используемые в проекте и доступные обЪ- 
екты, позволяя просмотреть иерархию объектов, а также их свойства и методы. 


: боБаз Саззез Ц 
|=: 5% ТОЫес! 
2; э5 ТРезжеи 
2: 5 ТСотропем 
=: 2% ТСопио РС | 
2} =% ГиИиСопио! | - $. АЛегСопзнаснот 


^ 3% ТОБес — 


ела: | в +. 


$> Вегиебезиисиоп 
‚ $. ОЧазию 
5 #5 ТРО | ‚ $› Чаз5Мате 
5% ТРоти ‚$. Саз$Магте!$ 
| „$. СаззРагем 
`.а. СаззТуре 
юм СеапириЯаисе 
‚ Сгезе 
$. ОевиНапдег 
Пе<Нпу 


Рис. А.10. Окно браузера объектов 


Меню Рго]ес+ 


Команды меню Р!го]ес* перечислены ниже. 


" Ааа То Рго]ес* — добавляет файл к проекту. 


ры 


 Ветоуе [тот Рго]есЕ — удаляет файл из проекта. 


# [трой Туре ИБгагу — импортирует в проект библиотеку типов элементов АсНуеХ. 


33 Ада То Кероз\огу — помещает проект в хранилище. 


". \Мем $оитсе — показывает окно с кодом проекта. 


= [апдцаде$ — подменю, которое позволяет добавить НОВЫЙ, удалить или сделать 
Главным один из существующих языков Локализации. Команды В этом подме- 


ню следующие: 

О Ада — добавляет новый язык локализации (см. ниже); 
С Ветоуе — удаляет существующий язык локализации; 
[] 5е{+ АсНуе — делает активным язык локализации; 


С] Урда Кезоигсез ОМ. — создает заново ресурсные библиотеки ОЕ. управля- 
ющие локализацией программы. 


= АЧА М№ем РгодесЕ — добавляет программу, ОТ. или пакет к текущей проектной 
группе. 
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 АЧа Ех1$5 Рго]есЕ — открывает проект и добавляет его к текущей проектной группе. 


" СотрЦе Имя_проекта — компилирует модули, которые изменились с момента 
предыдущей компиляции проекта. 


Виа Имя_проекта — компилирует все модули проекта и создает исполняемую 
программу. 


„‚ бупфах СНеск Имя_проекта — проверяет синтаксическую правильность программы. 


# шогтайоп — показывает информацию о вашей программе. 


® Сотрие АЦ Рго]ес{5 — компилирует все файлы данной проектной группы, кото- 
рые изменились с момента предыдущей компиляции. 


*} Виа АЦ Рго]ес{$ — компилирует все файлы данной проектной группы независи- 
мо от того, изменялись они с момента последней компиляции или нет. 


} \М№еь Бероутеп* Орйоп$ — устанавливает компонент Асйуех или АсНуеГогт на ва- 
шем веб-сервере. Вызывается перед компиляцией проекта. 


Меь Оероу — устанавливает компонент АсН\еХ или АсНуеРогт на вашем веб-сер- 
вере. Вызывается после компиляции проекта. 


 Орйоп$ — показывает диалоговое окно установки параметров проекта. 


Выбор языков локализации 


После выбора команды Рго]ес® › [апдиаде$ » АЯ открывается окно эксперта по вы- 
бору языков локализации проекта (рис. А.11). 


беес! опе ог июге рищес$ ЮГ ииСИ 10 таке гезомсе 0$. То сПапде а гос 
днес‘огу ог Базе ‘апошаре. вым ск оп [8 Тре о! $ Ше юр гпо$Е диесогу с! - 
| пе рес о и И | 


30000041 3 


_ ЗееаАн |  ОезаесьА 


Рис. А.11. Окно выбора языков локализации 


В окне указывается один или несколько проектов, для которых осуществляет- 
ся локализация, и главный язык проекта (код $00000419 соответствует русскому 
языку). В следующем окне (после щелчка на кнопке №х) вы сможете выбрать 
языки локализации, отметив их флажками. На следующем шаге эксперт предло- 
жит вам указать каталоги размещения библиотек, которые будут содержать лока- 
лизованные ресурсы. Все библиотеки имеют одинаковое название Имя_проекта.ОКС, 
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поэтому они должны размещаться в разных каталогах. Для компиляции програм- 
мы стем или иным языком локализации используется менеджер проекта (см. пункт 
«Менеджер проекта» в подразделе «Меню Уле\») и команда Рго]ес{ ›» [апдиаде › $е+ 
АсНуе. 


Управление параметрами проекта 


Управление параметрами проекта осуществляется с помощью диалогового окна, 
вызываемого командой Рго]есЕ » Орйопз. 

На вкладке Гогт$ окна параметров проекта (рис. А.12) выбираются главная фор- 
ма проекта (список Мат Гогт), а также автоматически создаваемые формы (Ащо- 
сгеа{е гогт$) и доступные проекту формы (АуаЦаЫе Тогтз). Кнопки в центре этой 
вкладки позволяют переносить формы из одного списка в другой. Флажок Оегаий& 
разрешает или запрещает использовать текущие параметры как значения по умол- 
чанию для других проектов. 


1 Ащо-сеае“отия: 2 


Ш В. 
9) 


о 
..-% 
7 


. О 


к] са | | 
Рис. А.12. Окно параметров проекта 


На вкладке АррИсаЙоп указывается подпись на значке свернутой программы 
(Пе), сам значок (Тсоп) и имя файла помощи (Не #{е). 

На вкладке Сотриег собраны флажки, управляющие параметрами процесса 
компиляции. В том числе (в скобках указана соответствующая директива ком- 
пилятора): 


” АПдпед тесота Яе|4$ ($А) — размещает данные, выравнивая их на границу 32-раз- 
рядного слова; 


" Эфаск Нате$ ($) — заставляет компилятор создавать стековые рамки для всех 
процедур и функций; 


Главное меню 581 


 РепНит-баЁе РОТУ ($0) — вырабатывает код, предохраняющий от ошибок в ве- 
щественных вычислениях на процессорах Репиит ранних выпусков; 


* Вапде СпесЮтд ($8) — создает код проверки выхода за границы массивов; 


3 1/0 СпесЮтд ($ Т) — создает код проверки корректности выполнения операций 
ввода-вывода; 


®® Оуе ом Спесктд ($0) — вырабатывает код проверки переполнения при выпол- 
нении целочисленных операций; 


{пс Маг-5%1п195 ($\) — определяет строгую проверку соответствия строковых 
типов при обращении к подпрограммам; 


* Сотр&е Водеап Е\уа[ ($В) — определяет полное вычисление логических выра- 
жений; 


”” Ежепдед 5упах ($Х) — включает расширенный синтаксис ОБесё Разса]; 


_ Туред @ Орегафог ($Т) — контролирует типы указателей в операции @; 


 Ореп Рагатефег$ ($Р)) — разрешает использование открытых параметров в под- 
программах; 


”. Ниде ${йпд$ ($Н) — связывает зарезервированное слово $%х1п43 с длинными 
строками; 


” А$51дпаЫе Туред Соп$ап{$ ($7) — разрешает присваивание типизированным кон- 
стантам; 


”" ОеБид ТпТогтайоп ($0) — помещает в ОСО-файл отладочную информацию; 


® [юса| бутЬо[$ ($Т.) — создает отладочную информацию о локальных символах 
программы; 


” ЗутБо[]пРогтайЙоп ($У) — создает отладочную информацию о символах про- 
граммы; 


 ЭНом Нтт{5 — заставляет компилятор выдавать рекомендации; 


Ном Магп!пд$ — заставляет компилятор выдавать предупреждающие сооб- 
щения; 


„” АззегЧоп$ ($С) — заставляет вырабатывать код для отладочных процедур. 


Вкладка ИпКег определяет параметры компоновщика, в том числе: 
и ОЕ — запрещает создавать карту распределения памяти; 


 едтеп5 — карта содержит список модулей и адреса точек входа всех подпро- 
грамм; 

и РиБИс$ — дополняет вариант 5едтеп{5 отсортированным списком символов сек- 

ций ручЬ11с; 


 Оефа {ед — дополняет вариант Рибс$ детальной информацией о модулях; 


® бепегае 0СУ$ — создает стандартные для Ое|ры ОСО-файлы; 


}} бепегафе С ОБ]ес* Нез — создает файлы в формате объектов языка Си; 


 бепегае С++ ОБес+ е$ — создает файлы для связывания с программой, создан- 
ной с помощью С++ ВиИаег; 


"} бепегафе Сопзо[е АррИсаНоп — создает консольную программу; 
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# пошае ТОЗ2 ОеБцд 1пто — помещает в исполняемый файл информацию для внеш- 
него отладчика; 


[псиде гето{е деБид зутбо(5 — используется для удаленного вызова отладчика; 


М ЗЖаскК $12е — устанавливает минимальный размер стека; 
\ Мах ЗХасК 512е — устанавливает максимальный размер стека; 


3 [таде Вазе — указывает начальный адрес для загрузки изображений (для О11.); 


 ЕХЕБезсирюг — информационная строка длиной до 255 символов, которая вклю- 
чается в исполняемый файл (например, для объявления авторских прав). 


Вкладка Оттесопез/Соп91опа(5 позволяет задать каталоги размещения и услов- 
ные символы: 


'" Оцёри{ Отесфогу — указывает каталог размещения исполняемого файла; 


Уп ОцЕри: Оттесвогу —- указывает каталог размещения ОСО-файлов; 


". Зеагсй РаЁИ — каталог размещения файлов с исходными текстами программы, 
если они не обнаружены в текущем каталоге (чтобы в любом из описанных выше 
полей указать несколько каталогов, они разделяются точкой с запятой); 


 ОеБид зоигсе раён — определяет каталог размещения внешнего отладчика; 


}} ВРЕ оцЕриЕ Чтескогу — определяет каталог размещения файлов компиляции па- 
кетов; 


}} ОСР оцёри* ФтесЕогу — определяет каталог размещения файлов для локализации 
программ; 


" СопаТопа| Вей пез — определяет символы для условной компиляции; 


'‚ Опт АПазез — определяет псевдонимы модулей. 


На вкладке \Уег51оп1п®о сосредоточены параметры управления информацией 
о версии программы: 


# Тпсшае уегялоп 1погтайоп 1п рго]есё — если установлен этот флажок, в проект 
включается информация о версии программы, которую можно прочитать по- 
сле щелчка правой кнопкой мыши на значке программы и выборе в контекст- 
ном меню команды РгорегЧе$ (Свойства); 


ВНИМАНИЕ Все остальные интерфейсные элементы этой вкладки становятся доступ- 
ными только после установки флажка пс(иде уег$1оп 1погтай оп 1п рго]ес&. 


 Модще \Мегзлоп МитБег — поля Ма]ог, М1тпог, К@еазе, Ви 4 определяют составной 
номер версии; 


": Ацфо-тпсгетепЕ Би (9 питБег — если установлен этот флажок, номер версии авто- 
матически наращивается при каждой компиляции программы; 


" ОеБид Виа — указывает на создание отладочной версии программы; 


"" Рге-Вееазе — указывает на создание некоммерческой версии программы; 


}: ресЛа| Ви — указывает на специальную версию программы; 


}: Риуае Виа — указывает на версию, не предназначенную для широкого распро- 
странения; 
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[апдиаде 10 — идентификатор языка, на который рассчитана программа. 


Меню Вип 


Команды меню Кип перечислены ниже. 


3 Кип — компилирует программу и делает ее прогон. 


# АКасй Фо Ргосез$ — позволяет присоединиться в режиме отладки к одному из 
уже запущенных процессов на другой сетевой машине. 


 Рагатефег$ — определяет командную строку для запуска вашей программы. 


" Кедт${ег АсНУеХ $егуег$ — регистрирует ваш проект в реестре \/!т4о\$. Команда 
доступна только для проектов АсйуехХ. 


" Упгедт${ег АсИуеХ $егуег$ — удаляет ваш проект из реестра \Мт4о\з. Команда 
доступна только для проектов Асйуех. 


#2 [па МТ$ ОБес{5 — регистрирует в вашем проекте объект МТ$. 


\} 5\4ер Оуег — в отладочном режиме выполняет текущую строку кода без контроля 
вызываемых подпрограмм. 


3 Ттасе [по — в отладочном режиме выполняет текущую строку кода с контролем 
вызываемых подпрограмм. 


 Ттасе То Мехё $оигсе Ипе — программа выполняется до ближайшего от текущего 
положения курсора исполняемого оператора. 


* Кип То Сигзог — в отладочном режиме выполняет программу и останавливается 
перед выполнением кода в строке с текстовым курсором. 


Кип Упи! Кеёит — в отладочном режиме выполняет текущую подпрограмму 
и останавливается. 


} пом ЕхесиЧоп Ро1пё — отображает в окне кода оператор, на котором было пре- 
рвано выполнение программы. 


Е - Ргодгтат Раизе — приостанавливВает прогон отлаживаемой программы. 


* Ргодгат Кезе{ — прекращает прогон программы и восстанавливает режим разра- 
ботки программы. 


"" Тпзрес( — открывает окно проверки текущего значения. 
\} Еуашае/Мо4Му — открывает окно проверки/изменения переменных. 


ААА Максй — добавляет переменную или выражение в окно наблюдения. 


 АЧО ВтеаКро!пЕ — добавляет точку останова. 


Меню Сотропеп 


Команды меню Сотропеп% перечислены ниже. 


}: М№ем Сот ропепЁ — открывает окно эксперта компонентов. 


2 Тп$аЦ Сотропепе — помещает компонент в существующий или новый пакет. 


# [трой АсНуеХ Согто[ — добавляет к проекту библиотеку типов компонентов 
АсйуехХ. 
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# Стеае Сотропеп* Тетр(а*е — помещает шаблон в палитру компонентов. 


"=" па РасКадез — позволяет указать пакеты, необходимые на этапе конструиро- 
вания и прогона программы. 


* СопЯдите Рае {е — вызывает диалоговое окно настройки палитры компонентов. 


Меню Оатабазе 


Команды меню Оа+аБазе перечислены ниже. 


* Ехроге — вызывает инструмент исследования баз данных — ЗОГ. Ехр]огег. 


щей наборы Данных из удаленных или локальных баз данных. 


Меню Тоо]$ 


Команды меню 1005 перечислены ниже. 


® ЕпутоптепЕ Орйоп$ — вызывает окно настройки параметров среды Ое|ры и ее 
инструментов. 


 ЕЧКог Орйоп$ — вызывает окно настройки параметров редактора Оери. 


 ОеБиддег Орйоп$ — вызывает окно настройки параметров отладчика Оер|1. 


 Ттап&аНоп То0($ ОрНоп$ — вызывает окно настройки параметров локализации. 


 Керо$Когу — показывает окно управления хранилищем объектов Реры. 


*" Тап{аЯоп Керо$\ору — показывает окно хранилища объектов трансляции. 


_ МеБ Арр ОеБиддег — позволяет выбрать отладчик для веб-приложений. 


" Кедепегафе СОКВА ТО Е\е$ — создает заново ГОГ.-файлы для межмашинного вза- 
имодействия по технологии СОКВА. 


”" СопЯдиге Тоо[$ — показывает диалоговое окно редактирования меню Тоо(5. 


”. ОакаБазе ОезКор — вызывает инструмент обслуживания баз данных — ОабаБазе 
ОезКор. 


*" Гтаде Ед\ог — вызывает окно редактора графики. 


„” РасКаде СоЦесНоп Е4\ог — вызывает редактор наборов пакетов. 


} ХМЕ Маррег — вызывает утилиту для отображения данных в виде ХМГ-файла. 


”" Вауе Оез1дпег — вызывает визуальную среду разработчика отчетов Кауе Кероп$. 


Настройка параметров среды 


Диалоговое окно настройки параметров среды (рис. А.13) вызывается командой 
Тоо[$ » Епутоптеп* ОрЯопез. 


Вкладка Рге{егепсе$ открывает доступ к параметрам среды Ое|ры: 


2 ЕаКог Нез — перед прогоном автоматически сохраняются все измененные 
файлы; 


". Рго]есЕ Ое$Кор — перед прогоном автоматически сохраняется информация о со- 
стоянии экрана; 
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Рис. А.13. Окно настройки параметров среды 


 ОезКор Оп(у — при выходе из программы сохраняется информация о состоянии 
экрана, 


" Ое$Кор апа $утбо[5 — при выходе из программы сохраняется информация о со- 
стоянии экрана и символах программы на момент последней удачной компи- 
ляции; 

"" Ацо агад досКтд — разрешает причаливание одного инструментального окна 
к другому; 

пом сотрЦег ргодге$$ — показывает индикатор процесса компиляции; 

2 \М/агп оп расКаде геБи 4 — предупреждает о перекомпиляции пакетов; 


 Миттисе Оп Вип — сворачивает окна Ое|р|! в момент старта программы; 


# Не Без дпег$ Оп Кип — скрывает вспомогательные окна (окно инспектора объ- 
ектов и окна форм) в момент старта программы; 


2 Озтесфогу — путь к файлу хранилища объектов ОЕЕРН132.080; если путь не ука- 
зан, используется вложенный каталог В]М каталога размещения Ое]рн:. 


Вкладка Ое$1дпег содержит параметры конструирования форм: 
\ О15р(ау бп4 — показывает сетку на пустой форме; 


пар о 6194 — «привязывает» компоненты к узлам сетки; 


2 ЭПом/ сотропеп* сарЯоп$ — показывает имена компонентов на этапе конструи- 
рования программы; 


ЗНом дез1дпег №1п{5 — показывает оперативную подсказку об именах компонен- 
тов и их типах на этапе конструирования; 
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ЭПом/ ех{епае4 сопёго[ 1п{$ — показывает оперативную подсказку с расширен- 
ной информацией; 
Мем Гогт$ а5 Тех — сохраняет файлы описания форм в текстовом формате; 


Аифо сгеа{е Гогт$ & да{а тодще$ — при установке этого флажка каждая добавляе- 
мая к проекту форма или модуль данных помещается в список автоматически 
создаваемых форм, в противном случае — в список доступных форм; 


Спа $12е Х — горизонтальный шаг сетки; 
Спа $12е У — вертикальный шаг сетки. 


Вкладка ОБес* 1п5ресог открывает доступ к параметрам инспектора объектов: 
Зрее45е{Нпд$ — позволяет выбрать один из следующих вариантов настройки: 


С] Си$от со[ог5 & $еИпд$ (Настраиваемые цвета и установки); 
С Оегаий со{ог$ & зе пд$ (Цвета и установки по умолчанию); 
С Оерн1 5 етщаЧопт (Эмуляция Оер!! 5); 

О \1зча[ $+и о (ТМ) етщайоп (Эмуляция У15ца| Зи 10); 


Со{ог$ — позволяет настроить параметры цветового выделения команд в окне 
инспектора объектов; 


ЗНом 1п${апсе 15{ — показывает в верхней части инспектора объектов список 
компонентов и имен их классов; 


ЗНом/ с(а$5пате 1п 1п5${апсе [15+ — показывает имена классов в списке инспектора 
объектов; 


ЗНоми $фафиз$ Баг — показывает строку состояния в нижней части инспектора объ- 
ектов; 


Кепдег Баскдгоцпд дп4 — отделяет строки горизонтальными линиями; 


[п%едга( НетдНЕ (мПеп по{ доске) — если флажок установлен, изменение верти- 
кального размера окна осуществляется так, чтобы полностью вместить значе- 
ние каждого свойства или события; 


ЗПом геад оп(у ргорее$ — показывает свойства, предназначенные только для 
чтения; 


Во{4 поп Чегац уаше$ — выделяет жирным шрифтом значения, отличающиеся 
от умалчиваемых; 


Ехрапа 1пПпе — раскрывает свойства и методы внешнего объекта; 
ЗНом/ оп еуеп{5 раде — показывает внешний объект на вкладке событий; 
Вкладка РаеЦе предоставляет средства для настройки палитры компонентов: 


вы может изменять Порядок следования компонентов и страниц, переименовы- 
вать страницы, добавлять к ним новые компоненты, удалять существующие ит. д. 


ин 


Вкладка И Ьгагу определяет каталоги размещения библиотек Ое|ры: 
ИЬгагу раёН — маршрут поиска библиотечных файлов; 


ВРЕ оифри* ИБгагу — выходной каталог для размещения ВРТ.-файлов; 
ОСР оцёри* ИБгагу — выходной каталог для размещения ВСР-файлов; 
Вгом/$1пд Ра{Н — каталоги для браузера. 
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Вкладка Ехр(огег позволяет настроить свойства кодового браузера, окно которо- 
го обычно «причалено» к окну редактора кода: 


*” АшотайсаЦу $Пом/ Ехр(огег — если этот флажок установлен, окно кодового брау- 
зера будет появляться при создании каждого нового проекта; 


*_ Н19Ийдие псотр&{е с!а$$ {ет$ — незавершенные определения классов выделя- 
ются цветом; 


” Ном аеагаНоп зупах — позволяет помимо имен элементов показывать свой- 
ства и методы; 


 Ехрогег отд — определяет способ сортировки элементов (по алфавиту или 
по порядку объявления); 


"" Рп1$Н 1псотр(е ргорег1ез — завершает определения не только классов, но 
И СВОЙСТВ; 


и |1а[ Бтом$ег лем — переключатели этой группы позволяют выбрать приори- 
тет показа классов, модулей или глобальных определений; 


* Втомузег соре — определяет символы, отображаемые браузером (только опреде- 
ленные в текущем модуле или все); 


 Ехрогег сйедопе$ — флажки этой группы определяют категории отображаемых 
СИМВОЛОВ. 


Вкладка Туре ИБгагу служит для управления свойствами редактора библиотеки 
типов (используется при разработке многозвенных приложений баз данных). 

Вкладка Епупоптеп* Уайае5 определяет так называемые переменные среды 
разработки, в том числе тип операционной системы, положение основных файлов 
операционной системы ит. п. 

Вкладка Гегпеё управляет форматами создаваемых файлов для передачи по 
интернету или локальной сети. 

С помощью небольшой вкладки берН1 О1тесЕ можно управлять автоматической 
связью с сайтом Ое|рЫ! для обновления информации об этом программном про- 
дукте. 


Настройка параметров кодового редактора 


Окно параметров кодового редактора вызывается командой Т00[$ » Е4Ког Орйоп. 
Вкладка бепега| этого окна позволяет настроить общие свойства кодового ре- 
дактора: 


 пзек Моде — определяет режим вставки по умолчанию (переключается клави- 
шей [пзец); 


# Сигзог ТАгоидН ТаБ$ — разрешает курсору «перескакивать» через символы табу- 
ляции; 


"" бгоир Упдо — разрешает удалять группу последних изменений текста при нажа- 
тии клавиш АК+ВасКзрасе или выборе команды ЕЯ ›» подо; 


" Сигзог Веуопа ЕОЕ — позиция курсора включает символы конца строки; 


** БоицЫе СИскК Ипе — выделяет цветом всю строку при двойном щелчке на любом 
ее символе; 
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". Гогсе Си Апа Сору ЕпаЩе4 — разрешает выполнение команд ЕЧЁ › Суфи Е@И › Сору, 
даже если текст не выделен; 


”; Ацфо-сотр(е{е {ехЕ фо Ппа — разрешает автоматическое дополнение текста в диа- 
логовом окне поиска; 


* Упдо АЁег $ауе — разрешает восстанавливать изменения, бывшие до последнего 
сохранения файла; 


и ВпеЁ Кедщаг Ехргез$1оп5 — разрешает использовать шаблоны при поиске и поис- 
ке с заменой; шаблоны включают в себя следующие специальные символы: 


О ^ или % — вначале строки означает, что искомый фрагмент должен распола- 
гаться в начале строки; 


С] $ или > — в конце строки означает, что искомый фрагмент должен распола- 
гаться в конце строки; 


О ? — на этом месте может стоять любой СИМВОЛ, 


С @-— после символа указывает на любое, в том числе нулевое, число этих сим- 
волов в этом месте (ро@ означает роо, ро, Бо+); 


О + — после символа указывает на любое ненулевое число символов, которые 
следуют дальше (ъо+ означает Боо, Бопиз, рок, но нер или Бо}; 


С] | — выбор одного из выражений до или после черты (Ъахг | саг означает Баг 
или саг); 


О - — на этом месте не должен стоять следующий СИМВОЛ, 


[ ] — на этом месте должен стоять любой из указанных в скобках символов 
([6ое] означает Ъ, о или *); 


О [^)] — на этом месте не должен стоять любой из указанных в скобках симво- 
лов ( [^Бо+х] означает любой символ за исключением Ъ, сои); 


О [-] — задает диапазон символов ( [5-о] означает любой символ в диапазо- 
не от ь до о включительно); 


СО () — определяет вложенный шаблон, среда допускает до 10 уровней вло- 
женности; 


С \ — отменяет действие стоящего за ним специального символа, позволяя 
вести поиск этого символа как такового. 


и Регул{епЕ ВосК$ — указывает, что выделенный блок остается выделенным, даже 
если его покидает текстовый курсор (выделение сохраняется до нового выде- 
ления); 


= Оуегмтие Вюск$ — заменяет выделенный блок текстом из буфера обмена; если 
при этом установлен флажок Рег$15%еп{ В{осК$, блок вставляется сразу за выде- 
ленным; 


"‚ РАпа Тех Аё Сигзог — если флажок установлен, в образце поиска при поиске или 
поиске с заменой будет появляться слово, рядом с которым располагается тек- 
стовый курсор; 


"" Упдо Ит!\ — определяет предельное число отменяемых командой Еа\ ›» Упдо 
операций; 
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Вкладка $оигсе Орйоп$ управляет свойствами создаваемого текста: 
 5оигсе Ме фуре — определяет тип синтаксического выделения, предусмотрен- 
ный для выбранного в списке языка; 


" Мм — вызывает диалоговое окно для ввода нового элемента в список $оигсе Не 
(Уре; 
”” Ое&{е — удаляет текущий язык в списке; 


" Ашо пдепЕ Моде — реализует автоматический отступ (при нажатии клавиши 
Еп{ег курсор устанавливается на начало предыдущей строки); 


** Це ТаБ СВагасег — при нажатии клавиши Та в текст вставляется символ табу- 
ляции (если флажок не установлен, вставляются символы пробела); 


# этак ТаЬ — при нажатии клавиши ТаБ смещает курсор к первому непробельно- 
му символу в предыдущей строке; 


 ОрИта[РЩ — начинает каждый автоматический отступ с минимального количе- 
ства символов табуляции и/или пробела; 


"; ВасК5расе Уп1пдеп*5 — разрешает удалять автоматический отступ клавишей Васк- 
5расе; 


® Кеер Татд В(апК$ — сохраняет ведомые символы пробела; 


} ЭПом $аБ сПагасёег — показывает символы табуляции в виде символов >>; 


Ном зрасе свагас{ег (.) — показывает символы пробела в виде точек; 


" зе Зущах НтаПИ9НИпд — разрешает использование синтаксического цветовыде- 
ления; 


# бупах НаНИНа*ег — позволяет выбрать стиль цветовыделения; 
*. Воск 1т4еп{ — определяет отступ для блока; 


"} Та $+ор$ — определяет перемещение курсора при нажатии клавиши Та; 


ЕД Соде Татр(ае5 — вызывает диалоговое окно редактирования образцов кода 
(см. ниже пункт «Вставка текстовых заготовок» подраздела «Интеллектуаль- 
ные возможности редактора» в разделе «Работа с редактором»). 


Вкладка 015р(ау позволяет выполнить настройку экрана: 
з ВпеЁСигзог $Нарез — заставляет использовать формы курсора, характерные для 
редактора Вмеё 


*. Сгеа{е Васкир Ее — заставляет создавать резервный файл с расширением, начи- 
нающимся символом тильда (-); 


" Гоот То Ри $сгееп — разрешает развертывание кодового окна на весь экран; 


# 50 рорир раде тепи — сортирует команды контекстного меню редактора кода 
В алфавитном порядке, 


 \М$Ые Е1аНЕ Магатп — разрешает показывать правую границу текста в виде вер- 
тикальной пунктирной линии; 


® МяЫе ди ег — разрешает показывать служебную зону в левой части окна ре- 
дактора; 


"" ВТ9ПЕ Маготп — определяет правую границу текста; 
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 биКег ЧЕН — определяет ширину левой служебной зоны; 


‚и ЕЧ\Ког РопЕ — определяет используемый в редакторе шрифт; 
® 512е — задает высоту шрифта. 


Вкладка Со{ог позволяет выбрать цвета для отдельных синтаксических элемен- 
тов. Выбранные цвета используются для синтаксического цветовыделения. 

Вкладка Кеу Марр!пд$ позволяет настроить «горячие» клавиши, используемые 
в кодовом редакторе для ускорения решения типовых задач. 

Вкладка Соде [15191 позволяет настроить некоторые интеллектуальные возмож- 
ности кодового редактора: 


\" Соде Сотр(еНЯоп — разрешает использовать подсказку в виде списка свойств, 
методов и событий, появляющуюся после ввода имени класса (или имени объ- 
екта) и следующей за ним точки (рис. А.14); 


ргосейиге ТРоги1.РокгиАсс1уасе (5еп4ег: ТОБ)ес®}; 
ели 
Арр11састот. 


ела; 1} сопзнисюг Сгеае (АО ипег. ТСотропепй; 


НОзЯниН 


ела. 


резов 


Е росефие 
. (носедуиЕ 
Е роседфие 
| резжафие 
. росе 
СПОР 

. реоседмие 
Е рюсядуге 
| Головой 

Е БиСНой 

ипсбои 

ЕмисНой 

Е росадиге 
| реосефчге 
[росе ие 
Е особые 
Е риаседиге 


Обезноу: 

АсбуажеНит(СизоРо$: ТРом{); 

ВппоТоЕРгопЕ; 

СопноЮезноуе (СопноЕ ТСопио]; 

Сапсе НЕ; 

СгеаеРогт (изапсеСаз$: ТСотропеп(С аз: маг Веегеп 
СгеаеНап4е; 

ЕхесшеАсбоп(Асйоп: ТВаясАсйон): Водеап; 

НапЧеЕ хсерНоп (бепдег. ТОЫес{); 

НапЧеМеззаде; 

НерСоттап(Соттапо: |\едег; Баз: еде): Водези 
НерСомех(СощехЕ ТНерСотме»х(: Воцеан; 
Нер\итр(соп; Литр О: $ипа): Вофеам; 

НерКеушогО (сопз{ Кеумога: Зита): Водеам; 
НдеНимЕ. 

Ним МоизеМеззаде (Сопио!: ТСопно!; уаг Меззаде: ТМез‹. 
НооКМат\Атдоч(Носк: Т\ИпдомНоок]; 
НоокКбупсопе\аКецр; 

пщахе; 


Рис. А.14. Список имен методов и свойств 


 Со4е Рагатефег$ — разрешает появление подсказки с перечислением формаль- 
ных параметров при определении вызовов методов класса (рис. 4.15); 


Арр1у/рдасез („ | — 
сопз( Ваезбев: апау о! ТОВОбаа$ е1 


Рис. А.15. Всплывающая подсказка с именами формальных параметров 


# Тоо\р Ехргез$1оп Еуа\аНоп — разрешает показывать подсказку, в которой на этапе 
останова программы в контрольной точке будет отображаться текущее содер- 
жимое переменной или выражения при указании на них мышью (рис. А.16); 


% Тоо!р ЗутБо( Тп$19 НЕ — разрешает показывать информацию о параметрах иден- 
тификатора (рис. А.17); 


Главное меню 591 


1 Сазре &тел 
ъе9 Сане = Тие 


Рис. А.16. Всплывающая подсказка со значением переменной 


ргоседиге ТРоги1. ВцстопАурр1уС11СсК 
ъед1л 
РасаНоЧи1еСасре . РВазеСасНе . Арр!1` 


ей „г СИрОм.базМодиеСасНе - СИрОМ.раз 38] 


Рис. А.17. Всплывающая подсказка с параметрами идентификатора 


" Соде Сотрейоп Ое|ау — определяет задержку в секундах до включения интел- 
лектуальных возможностей редактора; 


”” СовеТп$1айЕ Со[ог$ — определяет цветовыделение. 


Меню Нер 


Команды меню Не[р перечислены ниже. 


””_ Оерн! Неф — основная справочная служба Де|ры. 


* Оерн: Тоо{[$ — справочная служба по инструментам Р@ары. 


® \Мпдом$ $ОК — справочная служба по \/т4о\з АРТ. 


" ВоЦап@ Ноте Раде — домашняя страничка компании Вог|ап4 (рис. А.18). 


 Вопапа Беуеорег Ме{могк — страничка поддержки разработчика Вог|апа 
(рис. А.19) 


 Оеры Ноте Раде — домашняя страничка Ое]рЫ (рис. А.20). 


_ ВоЦапа Оеуеорег5иррог — страничка поддержки разработчика Пе|рЫ! (рис. 4.21). 


" Оефры ОлтесЕ — окно Интернет-поддержки разработчика (рис. А.22). 


и Сизюпихе — вызов службы ОрепНерр. 
" АБоц* — окно с краткой информацией о ОерН:. 


Особенности справочной службы Верш 


Многие компоненты Оеры 7 могут использоваться для программ, работающих 
как под управлением \/11940о\$, так и под управлением Глпих. В силу принципи- 
альной разницы этих платформ компоненты СГХ (так называется библиотека ви- 
зуальных компонентов, поддерживаемая обеими платформами) имеют в общем 
случае несколько иной набор методов, свойств и событий, чем аналогичные ком- 
поненты УСТ, (то есть рассчитанные на работу только под \/шао\5). В связи с этим 
при обращении к встроенной справочной службе среда показывает промежуточ- 
ное диалоговое окно, в котором название компонента (или его свойства, метода 
и события) повторено дважды. Учтите, что верхняя строка открывает доступ 
к справке СХ, а нижняя — к справке УСГ. 


Служба ОрепНер 


Служба ОрепНер предназначена для модификации справочной службы Пер: 
с ее помощью можно удалять ненужные разделы и, что наиболее важно, вставлять 
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Рис. А.19. Страничка поддержки разработчика Во|апа 


Юмабмие : Зама Циих — Темибошсе О$Р 
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Рис. А.21. Страничка поддержки разработчика Оберы 
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Рис. А.22. Окно Интернет-поддержки разработчика 


новые. Последнее связано с тем, что существует множество относительно неболь- 
ших фирм, занимающихся разработкой и продажей пакетов компонентов для Оеры 
и С++ ВиЙ4ег (пакеты компонентов для этих двух инструментов идентичны), а так- 
же компонентов АсйуеХ. Сама среда Пер! имеет развитые средства создания 
новых компонентов. Поставщики компонентов обычно поставляют вместе с ними 
нужные файлы справочной информации, которые ОрепНер может сделать частью 
справочной службы Пер. | 

Служба ОрепНер вызывается командой Не|р >» Сиз{отл2е главного меню. Ее окно 
показано на рис. А.23. 
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Рис. А.23. Окно службы ОрепНер 


Четыре вкладки этого окна управляют содержанием справочной службы (вклад- 
ка Сопеп*), набором файлов помощи (птдех), контекстной помощью (ИпК) и про- 
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ектами (Рго}ес!). Чтобы удалить раздел содержания, файл справки или проект, нуж- 
но перейти на соответствующую вкладку, щелкнуть на удаляемом компоненте 
и выбрать команду ЕЧЁ › Кетоуе РЦез или щелкнуть на кнопке Е панели инстру- 
ментов. ” 

Для добавления к содержанию нового раздела требуется предварительно со- 
здать два специальных файла: файл с таблицей содержания (с расширением ТОС) 
и файл содержания (СМТ). ТОС-файл, как следует из документации, есть стандарт- 
ный файл содержания (СМТ-файл), создаваемый утилитой Пс\.ехе, с тем отличи- 
ем, что в нем нельзя использовать секции ТМСЬОРЕ. СМТ-файл, в свою очередь, 
отличается от стандартного тем, что в нем должны быть только две директивы: 
ВАЗЕ и ТТТЬЕ, причем содержимое ТТТГЕ у обоих файлов должно быть одинако- 
вым, и они должны располагаться в одной папке. После создания файлов вызы- 
вается служба ОрепНе]р и на вкладке Сопепё выполняется щелчок на кнопке 
2“ или выбирается команда Е › Аа РЦез. В появляющемся вслед за этим диало- 
говом окне нужно указать путь к ТОС-файлу. 

Для добавления справочного файла (НЕР) открывается вкладка пдех, выпол- 
няется щелчок на той же кнопке и указывается путь к НЕР-файлу. 

Как показывает практика, эти два действия вполне достаточны для нормально- 
го подключения к справочной службе новой информации. Если вы закроете окно 
службы ОрепНерр, появится запрос о необходимости обработки внесенных изме- 
нений. После утвердительного ответа новый вариант справочной службы будет 
готов к работе. 
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Все команды редактора можно разделить на команды перемещения курсора, ко- 
манды удаления и вставки, команды работы с блоками, прочие команды. 


Команды перемещения курсора 
Клавиши, соответствующие командам перемещения курсора, представлены в 
табл. А.1. 


Таблица А.1. Клавиши перемещения курсора 


Клавиши Переход ` Клавиши = | Переход 
= | Насимвольлеюю | не | Виачало строки 


> | Насимволвраю | 9 [| Вконенетроки 
+ | Настрокувни | бе | Вкопенфайя 
[р Настраницу вверх ___| ©1+05в | Вначалоблока 
[40| Настраницуюи _ | ик — | Вконеибла — — 
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Команды удаления и вставки 


Клавиши, соответствующие командам удаления и вставки, представлены в 
табл. А.2. 


Таблица А.2. Клавиши для удаления и вставки 


№5 Включить/отключить режим Ое|е{е Удалить символ справа от 
вставки курсора 
СЕ+У Удалить строку С++ 
Удалить символ слева (Ег+2 


от курсора 
Команды для работы с блоками 


При подготовке текстов программ часто возникает необходимость перенести фраг- 
мент текста в другое место или удалить его. Для такого рода операций удобно ис- 
пользовать блоки — фрагменты текста, рассматриваемые как единое целое. Длина 
блока может быть достаточно большой, он может занимать несколько экранных 
страниц. В каждый момент в одном окне редактора может быть объявлен толь- 
ко один блок. Обмен блоками между окнами возможен только через буфер 
обмена. Клавиши, соответствующие командам для работы с блоками, представ- 
лены в табл. А.З. 


Удалить слово справа 
от курсора 


Вставить строку 


Удалить остаток строки 
справа от курсора 


Отменить последнее 
изменение текста 


Таблица А.З. Клавиши для работы с блоками 


СЕ+К+Т Пометить в качестве блока слово слева от курсора 


СИНКУР 


С++К+Н Убрать выделение блока цветом; повториое нажатие клавиш СЕ+К+Н 
вновь выделит блок 


СУ 


Считать блок из дискового файла в позицию, определяемую текстовым 
курсором 


Копировать блок в буфер обмена 


Вставить содержимое буфера обмена в позицию, идентифицируемую 
текстовым курсором 
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Прочие команды 


В табл. А.4 представлены клавиши, соответствующие командам, не относящимся 
ни к одной из перечисленных выше категорий. 


Таблица А.4. Клавиши для выполнения дополнительных команд 


СИЕ Искать по образцу 


стей 
Стенки 
Сатенои 


со 
сено+о 
ИЯ 
СЕВЕР 


Хотя назначение большинства команд понятно, некоторые нуждаются в пояс- 
нении. 

Нажатие клавиш С +К+и устанавливает в текущую позицию курсора маркер 
с номером п = 0-9. Маркер на экране появляется в виде небольшого окна с номе- 
ром маркера в служебном поле слева от текста. Он никак не влияет на исполнение 
программы. После назначения маркера нажатием клавиш (С+0+и можно вызвать 
команду поиска маркера с номером и. Это делается для ускорения поиска нужных 
фрагментов текста при разработке больших программ. Раз установленный маркер 
нельзя удалить, но можно его поместить в другое место файла. При записи на диск 
маркеры не запоминаются, то есть после чтения файла с диска маркеры в нем от- 
сутствуют. 

Нажатие клавиш (+0+] инициирует поиск ближайшей парной скобки. Та- 
ким образом удается отыскивать пары скобок (и), {и }, [и]. Расположите 
курсор непосредственно перед одной из скобок и нажмите клавиши С#1+0+] -— ре- 
дактор отыщет нужную парную скобку. 

Нажатие клавиш (#+0+0 заставит редактор поместить в самое начало файла 
строки, содержащие текущие параметры среды в виде директив компилятора, на- 
пример: 

{5А+,В-, С+т,Э+,Е-,Е-,С+,Н+,Т+, УЧ+,К-,Ь+,М-,М+,О+,Р+,О-,К-,5-, 

Т-,0-,У+,И-,Х+,У-} 

{5МТМ5ТАСКУТЕЕ $00004000} 

{5МАХЗТАСКЗУТ2Е $00100000} 

{$ТМАСЕВАЗЕ $00400000} 

{5АРРТУРЕ СИТ} 


В окне кода можно запрограммировать часто повторяющиеся манипуляции 
с клавишами в виде макроса. Чтобы начать запись макроса, нажимаются клавиши 
С++ В. После этого любые действия программиста с клавиатурой запомина- 


598 Приложение А. Интегрированная среда разработчика 


ются вплоть до повторного нажатия той же комбинации клавиш. Запомненный 
макрос исполняется нажатием клавиш СЕ +ЗМАР. 


Интеллектуальные возможности редактора 


Термин «интеллектуальные возможности» носит Условный характер — он обозна- 
чает действия, которые редактор выполняет автоматически или по вашей команде 
и которые существенно упрощают анализ текстов программ, подготовку стандарт- 
ных программных заготовок, отладку программ. 


Поиск объявлений 


Если активизировать окно кода и перемещать в нем указатель мыши при нажатой 
и удерживаемой клавише СЁ, текст программы приобретает свойства гипертекста: 
на идентификаторах стандартный указатель мыши заменяется рукой с пальцем, 
а соответствующий идентификатор выделяется цветом и подчеркивается. Если 
в этот момент нажать левую кнопку мыши, редактор попытается отыскать исход- 
ный текст модуля, в котором объявлен соответствующий тип, подпрограмма или 
глобальная переменная и, если поиск окажется удачным, загрузит текст модуля 
в окно кода и установит в нем текстовый курсор в начале описания типа (подпро- 
граммы, переменной). Того же эффекта можно достичь, если щелкнуть на иденти- 
фикаторе правой кнопкой мыши и выбрать в контекстном меню команду РАпа 
Оес[агаЯ оп. 

Поиск идет в следующем порядке (перечислены команды меню и поля соответ- 
ствующих окон, содержащие пути к нужным каталогам): 


1. Ргодес® » Орйоп$ › Плтескопе$ > Сопаопа[$ » 5еагсИ ра{П. 

2. Рго]есЕ » ОрНоп$ › Олтесюпе$ » Соп4опа[$ › ВеБид зоитсе ра+Н. 
3. 100$ » Епупоптеп* Орйоп$ ›» ИБгагу » Вгом/$1пд ра*Н. 

4. 100$ » ЕпупоптепЕ Орйоп$ ›» ИБгагу » ИБгагу рав. 


Нельзя искать объявления, если текущий программный модуль еще ни разу не 
был сохранен на диске. 

Если мышь оказывается на идентификаторе без нажатой и удерживаемой кла- 
виши 5Н\, рядом с указателем мыши появляется всплывающая (оперативная) 
подсказка, в которой сообщается, к какому элементу языка относится идентифи- 
катор (к процедуре, функции, переменной и т. д.), а также имя модуля и номер 
строки в нем, где этот идентификатор впервые описан. 


Создание стандартных заготовок для новых 
свойств и методов 


При объявлении новых свойств класса в интерфейсной секции вы можете напи- 
сать лишь имя свойства и его тип. После нажатия клавиш (1+5 МА -+С или щелчка 
правой кнопкой мыши и выбора в контекстном меню команды Сотр(е{е С1а$$ аё Сигзог 
редактор добавит необходимые элементы Веа@ и Мг 1 е вописание свойства и вне- 
сет другие изменения в текст программы. Пусть, например, вы написали следую- 
щий код и нажали клавиши (1+5 -+С (текстовый курсор при этом должен нахо- 
дится в любом месте внутри описания класса): 
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Суре ТМуВаебоп = с1азз$ (ТВае оп) 
ргорег®у 512е: Тпфедег; 
ргосеасге Поботеей1па; 

епа; 


Редактор изменит описание класса следующим образом: 


фуре ТМуВаЕбоп = с1аз$з (ТВае оп) 
ргорегеу $517е: Тпфедег геаа Е517е мг1®е 5е%512е; 
ргосеаиге Поботеей1тч9; 
рг1уафе 
Еб12е: Тпфедег; 
ргосеаиге 5е+512е (сопз® Уа11е: Тпфедег); 
епа; 


Кроме того, в исполняемую секцию будет добавлено описание двух методов: 


{ ТМУуВчЕЕол } 
ргосеацге ТМуВоебоп.Робомееп1п9; 
Бед1п 
| 


епа; 


ргосеацге ТМуВиекоп.бее$12е (сопз® \а11е: Тпфедег); 
Бед1п 

Е5б12е := Уа1ае; 
епа; 


Вы можете также вставить в раздел 1тр]1етепфа*1оп новый метод класса и на- 
жать клавиши (1+5 АС — редактор вставит прототип метода в объявление класса 
в секции 1п$егЕасе. 


Навигация внутри модуля 


Клавиши перемещения курсора Ти} в сочетании с нажатыми и удерживаемыми 
клавишами С и $МА осуществляют переключение между секциями 1пех{асе 
и 1мр1емеп+ а оп текущего модуля. Если в секции 1п%ег{асе вас заинтересо- 
вала реализация того или иного метода, щелкните на нем мышью и нажмите кла- 
виши С (+5 НА — редактор отыщет реализацию и покажет ее вам. Наоборот, что- 
бы из секции 1тр1етеп+а*1оп переместиться к заголовку метода в секции 
1 п%ег{асе, нажмите клавиши (+5 МА+Т. 


Вставка текстовых заготовок 


Редактор может вставлять в текст множество текстовых заготовок, позволяющих 
экономить время ввода кода программы. Просмотреть имеющиеся текстовые заго- 
товки и при необходимости добавить к ним собственные можно с помощью кноп- 
ки Еа и Соде Тетр(а{е$, расположенной на вкладке 5оигсе ОрНоп$ окна Е4Ког Ргоре@ез, 
открываемого командой Т00($ » ЕЯ\ог ОрНоп$. Окно редактирования текстовых за- 
готовок показано на рис. А.24. 

В списке Тетр/а{е5 можно выбрать имя и краткое описание образца, а в поле 
Соде увидеть и при желании отредактировать соответствующую текстовую заго- 
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| годе Тетрацез 


_ Тетрьез; 


| апау4 :  апау дебагайоя (ха) м 
| апаус аиау десаганоп (соп${ 
| сазе$ сазе жаетей 


Рис. А.24. Окно Со4де Тетр!&{е5 

товку. Кнопка Ад 4 позволяет добавить новый образец, кнопка Е4\{ — изменить его 
имя и краткое описание, а кнопка Вев{е — удалить. При редактировании имею- 
щейся или вставки новой заготовки учтите, что символ вертикальной черты 
(|) определяет позицию текстового курсора после вставки заготовки в текст 
программы. 

Для вставки созданной заготовки введите ее имя в окне кода и нажмите клави- 
ши (+) — имя заменится полным текстом заготовки. Если вы не помните всех 
имен заготовок, их можно выбирать в списке. Для этого установите текстовый кур- 


сор вто место, в которое вы хотите вставить заготовку, и нажмите клавиши (+) — 
на экране появится окно с именами и краткими описаниями всех заготовок. 


Отладка программ 


В Веры имеется мощный встроенный отладчик, значительно упрощающий от- 
ладку программ. Основными инструментами отладки являются точки контрольного 
останова и окно наблюдения за переменными. 


Точки контрольного останова 


Точка контрольного останова определяет оператор в программе, перед выполне- 
нием которого программа прервет свою работу, и управление будет передано сре- 
де Иер. Точка останова задается командой \Лем » ОеБид млпдом$ › ВгеаКроп{5. 

Окно точек останова (рис. А.25) содержит список всех установленных в проек- 
те точек, перед обработкой которых происходит прекращение работы программы 
и управление получает среда Ое!р. 


Отладка программ 601 


е/АЗа 


Рис. А.25. Пустое окно точек останова 


Для добавления новой точки следует щелкнуть в окне правой кнопкой мыши 
и выбрать в контекстном меню команду Ада › 5оигсе ВтеаКро1п\. В этом случае по- 
является окно, с помощью которого можно задать параметры добавляемой точки 
(рис. А.26): 


" Репате — путь и имя файла (в момент появления окна в поле этого списка 
содержатся данные открытого файла); 


_ пе питЬег — номер строки от начала файла (в момент появления окна в поле 
этого списка содержится номер строки с текстовым курсором); 


"" СопЧ\оп — в поле этого списка можно указать условие останова в виде логи- 
ческого выражения (например, МууУа1ще = МахУа11е-12); 


"2 Ра$5 соип® — в поле этого списка можно указать количество проходов програм- 
мы через контрольную точку без прерывания вычислений; 


| ‚ №епате: о” [САРПЕВ\ОеанескИи раз | т] , 
| Ци питьег: ‚74 | "| | 
| ое | 


ООО 
к ме 


| Разз соийё 


$ 
Е Е .“ поодоььеегиевикььевьмесььь оксиметры еда .: | , 
|: бтоир: > 1 "" ве 
Н В 
{ 


||: Ема[ ехриезяюл: | 


| ЁпаЫе дгочр: 


Рис. А.26. Окно добавления новой точки 
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м бгоир — определяет группу, к которой принадлежит точка останова. Описание 
раскрывающегося списка бгочцр см. ниже в подразделе «Группировка точек пре- 
рывания>. 


') Айуапсед — щелчок на кнопке открывает или закрывает нижнюю часть окна Ада 
Зоигсе ВгеаКро1п\. 


Окно наблюдения 


Наблюдать за состоянием переменной или выражения можно с помощью специ- 
ального окна (рис. 4.27), вызываемого командой \е\м ›» ОеБид м1пдомз » \МатсВез. 


Рис. А.27. Пустое окно наблюдения 


Окно наблюдения используется в отладочном режиме для наблюдения за из- 
менением значений выражений, помещенных в это окно. Для добавления нового 
выражения щелкните в окне наблюдения правой кнопкой мыши и выберите в кон- 
текстном меню команду Ада Ма{сН. В поле раскрывающегося списка Ехргез$1оп от- 
крывшегося окна (рис. А.28) введите выражение. Подобно точкам останова, объ- 
екты наблюдения можно группировать. Для этого используется список бгоир пате. 
Поле Кереа{ соип* определяет количество показываемых элементов массивов дан- 
ных; поле 0195 — количество значащих цифр для отображения вещественных дан- 
ных; флажок ЕпаЩе4 разрешает или запрещает вычисление выражения. Флажок 
АЦо\м РипсЯоп Са($ разрешает вычислять и показывать объекты, которые определя- 
ются в нетрассируемых подпрограммах. Остальные элементы определяют способ 
представления значения. Замечу, что вы можете просмотреть в отладочном режи- 
ме текущее значение любой переменной, если задержите на ней указатель мыши: 
значение появится во всплывающей подсказке рядом с указателем. 


`Вереё сомиЕ > 
СР кабы 


а 


В: 


С Неа Весо4/5нисние | 
С Боаорой Я в о 
об раме 2 Г Мемоубит 


Рис. А.28. Окно добавления в окно наблюдения нового выражения 
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Принудительное прерывание работы программы 


Если программа запущена из среды Оер, ее работу можно прервать в любой мо- 
мент с помощью клавиш (+Е2, кнопки: ] команды Кип > Ргодгат раизе или, нако- 
нец, установив точку контрольного останова в той части программы, которая вы- 
полняется в данный момент или будет выполнена в дальнейшем. 


Трассировка программы 


Перед исполнением оператора, в котором установлена точка контрольного оста- 
нова, работа программы будет прервана, управление получит среда ОерЫ, а вокне 
наблюдения отразится текущее значение наблюдаемых переменных и/или выра- 
жений. Теперь программист может прослеживать работу программы по шагам с по- 
мощью клавиш Е7 и ЕВ или кнопок № ‚ панели инструментов. При нажатии 
клавиши [8 будут выполнены  апрогоаммированные в текущей строке действия, 
и работа программы прервется перед выполнением следующей строки текста. За- 
мечу, что контрольная точка останова выделяется по умолчанию красным цветом, 
а текущая прослеживаемая строка — синим. Если программа остановлена в конт- 
рольной точке, когда текущая строка совпадает со строкой останова, строка выде- 
ляется красным цветом. Признаком текущей строки является особый символ вы- 
деления строки в служебной зоне слева в окне редактора (рис. А.29). 


Признак текущей 
строки 

Признак точки 
останова ЗесСо1ог 


Признак исполняемых := Р1Е55СО10Е; 
строк программы 


Рис. А.29. Фрагмент окна редактора в режиме отладки 


Кстати, чтобы установить/снять точку контрольного останова, достаточно щелк- 
нуть мышью в служебной зоне слева от нужной строки или установить в эту стро- 
ку текстовый курсор и нажать клавишу Е5. 

При нажатии клавиши Е7 среда выполняет те же действия, что и при нажатии 
клавиши Е 8, однакоесли в текущей строке содержится вызов подпрограммы пользо- 
вателя, программа прервет свою работу перед выполнением первого исполняемо- 
го оператора этой подпрограммы, то есть клавиша Ё7 позволяет прослеживать ра- 
боту вызываемых подпрограмм. 

После трассировки нужного фрагмента программы можно продолжить нормаль- 
ную ее работу, нажав клавишу Е9. 


Действия в точках прерывания 


С любой точкой можно связать одно или несколько действий. Для этого нужно 
щелкнуть на точке останова правой кнопкой мыши и выбрать команду Ргорег@е<. 
В появившемся окне свойств точек останова остается щелкнуть на кнопке Адуапсеа, 
чтобы получить доступ к дополнительным свойствам (рис. А.3З0). 
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Рис. А.30. Окно связывания точки останова с действием 


В нижней части окна имеется область Асйоп$, с помощью которой и определя- 
ются действия для точки останова, указанной в верхней части окна. 


и ВтеаК — простой останов Перед выполнением помеченного оператора. 


"” Тдпоге зибзедиепЕ ехсерНоп$ — если флажок установлен, игнорируются все воз- 
можные последующие исключения в текущем отладочном сеансе до очередной 
точки останова, в которой, возможно, это действие будет отменено. 


": Напе зиБ5едиеп* ехсерНоп$ — после установки этого флажка отменяется дей- 
ствие предыдущего флажка и возобновляется обработка возможных исклю- 
чений. 


— [09 те$5аде — этот список позволяет выбрать произвольное сообщение, связан- 
ное с точкой останова. 


5} Бма| ехргез$1оп — этот список позволяет вычислить некоторое выражение и по- 
местить его результат в сообщение, выбранное в списке (09 те$5аде. 


Описание раскрывающихся списков ЕпаЩе дгоцр и 015аЫе дгоир см. в следую- 
щем подразделе. 


Группировка точек прерывания 


В Реры имеется возможность объединения точек останова в группы. Для этого 
используется все то же окно (см. рис. А.30): в раскрывающемся списке бтоцр сле- 
дует выбрать имя группы, к которой принадлежит точка, а с помощью списков 
ЕпаЫе бтоир и 015ае бгоир соответственно разрешить или запретить действие всех 
точек останова, относящихся к выбранной группе. 
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Вычисление выражений и изменение значений 


С помощью окна Ема|иа{е/Мо4 у (рис. А.31) можно узнать значение любого выра- 
жения или установить другое значение переменной. Это окно вызывается в режи- 
ме отладки нажатием клавиш СЕ-+РУ. 


её 
_ Еуамае_ _ Мод _ Мас _ озрея Н 
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Рис. А.31. Окно прослеживания/изменения значений 


Это окно — модальное, то есть оно прерывает отладку программы до тех пор, 
пока не будет закрыто. В поле списка Ехрге$$1оп можно ввести имя переменной или 
интересующее вас выражение. После щелчка по кнопке Еуаца{е в поле Везий по- 
явится текущее значение переменной (выражения). Если в поле Ехргез$1оп содер- 
жится имя переменной, одновременно становится доступной кнопка Мод\\,, а в поле 
списка Ме\м уаше повторяется текущее значение переменной. Если изменить это 
значение и щелкнуть на кнопке МоаТу, переменная получит новое значение, кото- 
рое и будет использоваться при дальнейшем прогоне программы (если определя- 
ется значение выражения, кнопка Мод и поле №ем уаше будут недоступными). 

Если вы щелкнете на кнопке \М/а*сй, выражение (переменная) из окна Еуащцае 
будет перенесено в окно наблюдений \\а&сН, щелчок на кнопке [пзрес{ отображает 
выражение (переменную) в специальном окне ОеБид Тпзреског (рис. А.З2). 


ПЕФИТехе ТСаршоп $320ЕРВ 


Рис. А.32. Окно инспектора отладки 


ПРИМЕЧАНИЕ Как уже упоминалось в подразделе «Интсллектуальные возможности 
редактора» раздела «Работа с редактором», при перемещении указате- 
ля мыши в режиме отладки на имени переменной текущее значение 
этой переменной появляется во всплывающей подсказке рядом с ука- 
зателем. 
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Ведение протокола работы программы 


В ряде случаев бывает неудобно или невозможно пользоваться пошаговой отлад- 
кой программ. Если вы, например, установите точку останова в подпрограмме про- 
рисовки сетки ТОВСг1а, программа после останова не сможет нормально продол- 
жить свою работу, так как в этом случае она будет пытаться восстановить экран 
и вновь будет остановлена ит. д. В таких ситуациях вам могут помочь контрольные 
точки, которые не прерывают работу программы, а лишь помещают некоторую 
информацию в специальный файл трассировки. Для реализации такой точки рас- 
кройте окно $оигсе ВгеаКро1пЕ Ргорег@е$ (см. рис. А.30), снимите флажок Вгеак и вве- 
дите сообщение в поле раскрывающегося списка [09 те5заде. Вы можете также 
в поле списка Е\а( ехргез$1оп ввести некоторое выражение, которое будет вычисле- 
но и вместе с сообщением помещено в протокол работы программы. Этот прото- 
кол можно просмотреть в любой момент (в том числе и после завершения прогона 
программы) с помощью команды Ме\м > еБид \МЛпдомз › Еуеп 109. 


Приложение Б 


Некоторые стандартные 
подпрограммы, 
переменные, классы 


В этом приложении приводятся некоторые стандартные подпрограммы, систем- 
ные переменные и классы, определенные в различных программных модулях. 


Подпрограммы модуля Ма{сп 


Подпрограмма 


ЕапсЕ1оп АгсСо$ (Х: Ехбепаечд): 
Ехфбепаеа; | 


Еапс1оп АгсТап2 (У, Х: Ехфепаеа): Вычисляет арктангенс У /Х и возвращает 
Ехсепаеа; угол в правильном квадранте (функция 


АгсТап модуля 5узфем ине учитываст 
квадрант) 


Еопсе1оп Соз(Х: Ехфепаед): Косинус 
Ехсепаеа; 


Еипсёоп Созесап+ (сопз$* Х: Косеканс (1/5 п(Х)) 
Ехсепаеа): Ехеераесд; 

Еапсе1оп Собап(Х: Ехкепаеа): Котангеис 
Ехфсепаеа; 


ЕапсЕ1оп Нуро* (Хх, У: Ехфепаея): Корспь квадратный из (Х? + У?) — 
Ехеепаеа; гипотенуза прямоугольного 


треугольника по двум катетам 
прод 


олжение :# 
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Подпрограмма описание 


ЕипсЕ1оп бес (сопзе Х: Ехкепаеа): Секанс (1/Со$(Х)) 
Ехсепаеда; 

Еипсе1оп 51п(Х: Ехеепаед): Синус 
Ехеепаеа; 


ргосеааге 51пСоз$ (ТВефа: Ехеепаеа; Возвращает одновременно синус 
уаг 51п, Соз: Ехбепаеа); и косинус угла ТБека (почти в 2 раза 
быстрее, чем раздельное получение 
синуса и косипуса) 


ЕапсЕ1оп Тап(Х: Еххепаед): Тангенс 
Ехсепаеа; 


Функции преобразования углов 


Еапсе1оп Сус1еТоВаа (Сус1ез: ВаЧ41апз := Сус1езх2р 
Ехсепаеа) : Ехфепаеа; 


Еапсе1оп ОПедТовВаа (Педгеез: 
Еххепаеа) : Ехкепаеа; 


ЕапсЕ1оп СгааТоВаа (Сга@&з: 
Ехеепаеа) : Ехеепаеа; 


ЕипсЕ1оп КааТоречд (КаЧ1апз: 
Ехсепаеа) : Ехфепаеа; 


ЕипсЕ1оп КаЯТоСкгаа (ВаЯ1апз: СгаЯ$ := ВаЧ1апзх 200/р 
Ехсепаеа) : Ехфепаеа; 


Еапсе1оп КаЧТоСус1е (Ваа1апз: Сус1ез := Каа1апз/2р 
Ехсепаеа) : Ехфепаеа; 


Гиперболические функции 


Еипсе1оп АгсСозП(Х: Ехфбепаеча): Гиперболический арккосинус 
Ехсепаед; 


Еапсезоп Агсб1пП(Х: Ехбепаеа): 
ЕхЕепаечл; 


ЕипсЕ1оп АгсТапВ(Х: Ехеепаед): Гиперболичсский арктангенс 
Ехфепаеа; 

Еипсе1оп Со5В(Х: Ехбсепаеа): Гиперболический косинус 
Ехсепаеа; - 

Еапсе1оп б1пН(Х: Ехеепаеад): Гиперболичсский синус 
Ехфсепаеа; 


ЕипсЕ1оп ТапВ(Х: Ехеепаеа): Гиперболический тангенс 
Еххепаед; 


Логарифмические функиии 


ЕипсЕ1оп ГпХР1(Х: Ехеепаеа): Логарифм натуральный от (Х+1)Д. 
Ехсепаеа; Используется, когда значение Х близко 
к нулю 


Еипсе1оп [Год910(Х: Ехбсепаеа): Десятичный логарифм 
Ехсепаеа; 
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Подпрограммы модуля Май 


Подпрограмма Описание 


Еапс®1оп Гоа2 (Хх: Ехтепаед): 


ЕхЕепает; 


Еипсе1оп Госдм(Вазе, Х: Ехкепаеа): 


ЕхЕепаед; 


Двоичный логарифм 


Логарифм от Х при основании Вазе 


Экспонениинальные функции 


Еипсе1оп ТпеРоиег (Вазе: Ех®епаеа; 
Ехропеп®: Тпеедег): Ехфепаеда; 


ЕапсЕ1оп Ромег (Вазе, 
Ехсепаеа) : Ехеепаед; 


Ехропепё: 


Возведение Вазе в целочислениую 
степень Ехропере 


| Возведение Вазе в ВСОЩЕСТВСннНУЮ 
| стеиснь Ехрсрейс 


Подпрограммы разного назначения 


ЕапсЕ1оп Се11(Х: Ехеепраеа): 


ТрЕедег; 


ргосеаиге П1уМоа (01у14епа: 
Иога; уаг 
Иога); 


21 \1$0г: 
ВКетазпаег: 


Тпседег; 
Кези1%, 


ЕипсЕ1оп ЕпзогеКапде (сопзЕ АУа1ае, 
АМ1п, АМах: Тпеедег): Токедег; 


Еапс&1топ Е1оог(Х: Ехкепаеа): 


Тпбсеаег; 


Ехсепаеа; уахг 
уаг Ехропепе: 


ргоседиге Егехр (Хх: 
Мап*155а: Ехфепаеая; 
Тпеедег); 


ЕапсЕ1оп ТпКапде (соп$® АУ\Уа1ае, 


АМ1п, АМах; Тпеедег): Воо1еап; 


Еапсе1оп Гаехр(Х: Ехкепаеа; Р: 
Тпеедег): Ехфепаеа; 


Ехеепаея; 
аггау оЕЁ 


Еипсе1оп Ро1у(х: 
соп$Е СоеЕЁЕ1тстерёз: 
РоцЬ]1е): ЕхЕепаеад; 


Ближайшее меньшее целое 


Целочисленное деление: Везо1е — 


1; Кепазпаег — моа 


Возвращает результат впутри диапазона 
АМ1п...АМах: ссли АУа1Тае в диапазоне, 
возвращает АУа1 че, иначе АМ1п или 
АМах. Вместо типа Табедек могут 
использоваться ты Тре64 или 
Роир1е 


Ближайшее большее целое 


Возвращает мантиссу и степень 
веществсеиного числа 


Возвращает Ткце, если АУа1 ое 

в диапазоне АМ1п...АМах. Вместо типа 
Тпсесег могут использоваться тины 
10%64 или Боцр1е 


| Возвращает Хх Р- 


Значение полипома А Х\`+В Х\1+...+7. 
Коэффициенты задаются в порядке 
‚ возрастания степени 


Статистические подпрограммы 


ЕапсЕ1оп Мах(А,В: 
Тпееаег; очег1оаа; 


Тпеезег): 


Еопсе1топ МахТпе\Уа1ое (соп$® Пата: 
аггау оЕ Тпседег): Тпседег; 


Возвращает максимальное из двух 

‚ чисел. Вместо тина Таведег могут 
использоваться типы Тр® 64, з1пате, 
Бопб1е, Ехсепаеа 

| Возвращает максимальное из набора 

| 


целых чисел .. | 
| продолжение = 
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Подпрограмма [Опивание 


Еипсе1оп МахУа1иае (сопз® Рака: Возвращает максимальное из набора 
аггау оЁ Поцб]1е): ПошЪ1е; вещественных чисел 


Еопсе1оп Меап (соп$® Бата: 
РооЬ]1е) : Ехеепаеа; 


Вычисляет арифметическое среднее для 


аггау оЕЁ 
°| набора веществениых чисел 


ргоседиге МеапАпа5еаретх (сопз®е Дака: 
аггау оЕЁ ПооЬ1е; чаг Меап, 5ЗЕарет: 
Ехсепаеа); 


Вычисляет арифметическое среднее 
и стандартное отклонение для набора 
вещественных чисел 


Еопсе1оп М1п(А,В: 
Тпеедег; оучег1оаа; 


Тпеедег): Возвращает минимальное из двух чисел. 
Вместо типа Тпседег могут 
использоваться типы Тпё 64, $1па1е, 


РоцЬ1е, Ехсепаеа 


Еипсе1оп М1пТре\Уа1ще (сопз® ПРака: 
аггау оЁ Тптеадег):;: Тпъеедег; 


Возвращает минимальное из набора 
целых чисел 


ЕапсЕ1оп М1пУа1ое (соп$® ПБафа: 
аггау оЁ ПооЬ1е): ПРоиБ1е; 


Возвращает минимальное из набора 
вещественных чисел 


Вычисляет статистические моменты 
порядков с первого по четвертый, 

а также асимметрию $Кем и эксцесс 
Кигео51 $ для набора чисел 


ргосеацге Момепе5КемКиг(о0$51$ 
(сопзЕ Пафа: аггкау оЁ ПоцЬ]1е; 
уаг М1, М2, МЗ, МА, ЗКем, 

Кигео$1$: Ехфепаеа); 


Еапсе1оп Мог (сопз® Пафа: аггау 
оЕ ПоцБ1е): Ехбепаеа; 


Возвращает норму (квадратный корень 
из суммы квадратов) вещественных 
чисел 


Еипсе1оп Рорпбсареу(сопз® Паста: 
аггау оЁ ПопЬ1е): Ехсепаеа; 


Выборочное стандартное отклонение. 
Отличается от обычного стандартного 
отклонения тем, что использует 
выборочное зпачение дисперсии (см. 
ниже функцию РорпУаг1апсе) 


Еипс&1оп РорпУаг1апсе (сопз® Пафа: 
аггау оЁ ПооЬ1е): Ехеепаеа; 


Выборочная дисперсия. Использует 
«смещенную» формулу 

Тоса1Уаг1апсе/М (см. ниже функцию 
Тоса1\Уаг1апсе) 


Езпсё1оп КапаС (Меап, 5$аретх: 
Ехсепаеа) : Ехкепаеа; 


Генерирует псевдонормально 
распределениую последовательность 
чисел с заданным средним значением 
Меап и стандартным отклонением 
5саре\ 


Еапсе1оп осарех(сопзе Рафа: аггау 
оЕ Поир1е): Ехеепаеа; 


Вычисляет среднеквадратическое 
отклонение для набора чисел 


Еопсе1оп бом(сопз® Пафа: акгау оЁ 
РоцЬ1е}: Ехфепаеа гед1з%екг; 


Вычисляет сумму чисел 


ргосеаиге ЗомзАпабацаге$ (соп5® 
Рафа: аггхау оЁ ПРооЬ]1е): Ехъепаеа; 


Одновременное вычисление суммы 
и суммы квадратов для набора чисел 


ЕапсЕ1оп бомТпк(сопзе Раса: аггау Сумма набора целых чисел 


оЕ Тпседег): Тпеедег гедтзхекг; 
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Подпрограмма описание 


Еапсе1оп бимОЕбацаге$ (соп$® Пафа: Сумма квадратов чисел 
аггау оЁ Поор]1е): Ехфсепаеа; 


Еопсе1оп Тоса1\Уаг1апсе (сопзе Пафа: | Сумма квадратов расстояний всех 
аггау оЁЕ Попр1е);: ЕхЕепаеа; величин от их среднего 
арифметического 


Еапсеоп Уаг1апсе (сопзе Рафа: Выборочная дисперсия для набора 
аггау оЁЕ Попр1е): Ехсепаеа; чисел. Использует «несмещенную» 
формулу Тока1Уаг1апсе/(М-1) 


Финансовые функиии 


фуре ТРаупепеТ1пе = Перечисленный тип, используемый 
(рЕЕПЯОЕРек1оа, рЕЗеаг®ОЁРег1о4а); в финансовых функциях 


Еипсе1оп РооЬ1ер0ес11п1паВа1апсе 
(СозЕ, За]уаае: Ехеепаеа; Г1Ее, 
Рег1о: Тпеедег): Ехеелаеа; 


Вычисление амортизации методом 
двойного баланса 


Еапсе1оп Гибоге\а14е (Вафе: 
Ехсепаея; МРег1оа$: Тпеедекг; 
Раумеп®, Ргезеп&\Уа]це: Еххепаеа; 
Раумеп&Т1пе: ТРаумепеТ1ме): 
Ехсепаеа; 


Будущсс значение вложения 


Еарсе1оп ТпсегезсРаумеп® (Вафе: 
Ехсепаея; Рег1оа, МРег1оа35: 
Трседег; Ргезеп&Уа1ае, 
РКабиге\Уа11е: Ехфепаеа; 
Раумеп*Т1те: ТРаутмепеТ1ме): 
Ехфепаед; 


Вычисление процептов по ссуде 


ЕопсЕ1оп ТпеегезеВаке (МРег1оа5$: Норма прибыли, необходимая для 
Тпекедег; Раумеп®, РгезепеУа1ае, получения заданной суммы 
РГабигеУ\Уа1ие: Ехфхепаеа; РаумепеТ1те: 

ТРаумепеТ1ме): Ехфепаеа; 


ЕапсЕ1оп пеегпа1ВасеоЕВефогп 
(Соезз: Ехкепаеа; сопз® СазВЕ1омз: 
аггау оЕЁ Попе); Ехсепаеа; 


Вычисление внутренней скорости 
оборота вложения для ряда 
последовательных выплат 


ЕапсЕ1оп МееРгезепе\Уа1оае (Кафе: 
ЕхбепаеЯ; сопз® СазПЕ1ом$: аггау 
оЕ ПооЬ1е; РаумепеТ1ме: 
ТРаумеп*Т1ме): Ехеепаеа; 


Вычисление чистой текущей стоимости 
вложения для ряда последовательных 
выплат с учетом процентной ставки 


Еапс®1оп МатрегОЕРет1оа$ (Вахе, 
Раутеп®, Ргезепе\Уа1ое, 
РГобоге\уа]це: Ехёепаеа; 
Раумепт*Т1ме: ТРаумепеТ1ме): 
Ехфепаеа; 


Количество периодов, за которые 
вложение достигнет заданной величины 


ЕипсЕ1оп РаумепЕ (Кафе: Ех%епаеа; 
№Рег10а$: Тпфедег; РгезепеУа1ае, 
РГабагеУа]1ще: Ехфхепаеа; РаупепеТ1ще: 
ТРаумеп®Т1ме): Ехсепаеа; 


Размер периодической выплаты для 
погашения ссуды при заданном числе 
периодов, процентной ставке, а также 


тскущем и будущем значениях ссуды 
продолжение #7 
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Подпрограмма [Описание 


Еапсе1оп Рег1оаРаумепе (Ва\е: Платежи по процентам за заданный 
Ехсепаеа; Рег1оа, МРег1045$: период 

Трбеаег; Ргезеп®Уа1ое, 

Госогеуа]ае: Ехсепаеа; Раумеп®Т1пе: 

ТРаупеп®Т1пе): Ехкепаеа; 


Еапсе1оп РгезепЕ\/а1ще (Кафе: 'Текущсе значение вложения 
ЕхсепаеЯ; МРег1оа$: Тпфедег; 

Раумеп®, ЕибигеУа1ае: Ехеепаеа; 

Раумеп*Тл1лпе: ТРаумепЕТ1ме): 

Ехсепаеа; 


Еипсе1оп 5.М№)ергес1а®1оп (Соз%, Вычисление амортизации методом 
ба1уаде: Ехбепаеа; Г1Ее: постоянной нормы 
Треедег) : Ехеепаеа; 


ЕяпсЕлоп 5УРПергестае1ол (Созе, Вычисление амортизации методом 
ба1уаде: ЕхбепаеЯ; Г1Ее, Рег1оча: весовых коэффициентов 
Трседег) : Ехфепаеа; 


Подпрограммы модуля Оате {5$ 


Суре ТУа1оеке1а1оп$В1р = -1..1; Сравнивает две даты 
ЕапсЕ1оп СотрагеПасе (соп$® А, В: 
ТРафсеТ1пе): ТУа]1оеке1аетоп$р1р; 


Еапсе1оп СопрагерафеТ1ме (соп$® А, Сравниваст две даты-времени 
В: ТРафеТ1пе): ТУа1оеве1а®1оп$В1р; 

Еапсе1оп СопрагеТ1пе (соп$® А, В: Сравнивает два времени 
ТРафеТ1те): ТУа1оеке1ае1оп$р1р; 


Еапсе1оп СиггепсУеат: ШМогЧ; Возвращает текущий год по 
григорианскому календарю 


Еипсе1оп ПасеоЕ (соп$& АУ\Уа11е: Возвращает дату 
ТрафсеТ1ме): ТрабеТ1пе; 


ЕапсЕ1оп РауОЕ (сопз$е АУа]1ае: Возвращает номер дня в месяце 
ТРасеТ1те): Мока; (1...31) 


Еипсе1оп ПауОЕТЬейеек (соп$® АУ\Уа1ие: Возвращает день недели (1...7, 1 — 
ТрафеТ1ме): Мокга; понедельник, 7 — воскресенье) 


Еапсе1оп ПауОЕТреУеаг (соп$е АУ\Уа11е: Возвращает порядковый номер дня 
ТРафеТ1ме): Иога; в году (1...366) 


Еапсе1оп ПРауОЕМеек (Рае: ТразеТ1те): Возвращает день педсели (1...7, 1 — 
Тпседег; воскресенье, 7 — суббота) 


Еопсе1оп ПаузВе®мееп (сопз® АМом, Возвращает полное количество 
АТВеп: ТрРасеТ1ие): Тпфедекг; дней между двумя датами 


Еипсе1оп ПаузТпАМопеЕВ (сопзе Ауеаг, Возвращает количество дней 
АМопЕеП: Мога): Шога; в месяце 


Подпрограммы модуля Вае из 613 


Еапсе1оп ПРау$ТпАУеаг (соп$е А\еаг: Возвращает количество дней в году 
ога): ШМога; 


ЕапсЕ1оп РаузТпМопЕВ (соп$6е АУ\Уа14е: 
ТрРафеТ1ме): Иога; 


Возвращает количество дней 
в месяце 


ЕипсЕ1оп ПаузТпУеаг (соп$® А\Уа1ое: 
ТРахеТ1ме): Мока; 


Возвращает количество ДНСЙ в году 


Еипсе1оп Паубоап (соп$® АМом, АТвеп: 
ТРасеТ1ме): ПочЬ1е; 


Возвращаст разницу дат, включая 
время 


ргосеацге ПесодерГасе (Рафе: ТрафеТ1мте; 
уаг Уеаг, МопЕП, Рау: Мога); 


По дате-времени возвращает год, 
месяц и день месяца 


ргоседиге Песоаератерау (соп5& 
А\Уа] пе: ТрабеТ1ме; оч Ау\Уеаг, 
АРауОЕУеаг: Шога); 


Но датс-времени возвращает год 
и день недели 


Еипсе1оп ПесоаерасеЕго11у (соп$® По датге-времени возвращает год, 
месяц, день месяца и день недели. 
Возврашаст Ткоые, если год 
ВИСОКОСНЫЙ 


РафеТтТ1пе: Трафет1не; уаг Уеаг, МопЕВ, 
Рау, ПОМ: Шога): Воо1еап; 


ргосеаиге ПесодераеемопЕРМеек (соп5® По дате-времени возвращает год, 
А\Уа]пе: ТрафеТ1ме; оч® А\Уеахт, месяц, неделю месяца и день недели 
АМопЕР, АМеекоЕМопЕр, АРауОЕМеек: 
Мога); 


ргосеаоге ПесоаерахеТ1ме (соп$® По датсе-времени возвращаст год, 
А\Уа1ие: ТрафеТ1пе; оч Ауеаг, месяц. день месяца, часы, минуты, 
АМопЕР, Арау, АНо0г, АМ1паее, сскуиды и миллисекуиды 
Абесопа, АМ11115есопа: Шога); 

ргосе4иге ПесодерафеМеек (сопз® По дате-времени возвращает год, 
АУа]1це: ТрафеТлме; оч® А\еахг, иеделю года (1..52), день недели | 


АМеекКОЕУеаг, АПауОЕМеек: ШМога); 


ргосеаиге ПесоаерауОЕМеекТпМопсер (соп5® По дате-времени возвращает год, 

АУа1ае: ТРафеТ1ме; оче Ауеаг, АМоп®В, | месяц, исделю года (1..52), день 

АМЕПРауОЕМеек, АБауоОЕМеек: ШМога); | недели 
А 


ргосеаиге ПесоадеТ1ще (Т1ме: ТрабеТ1пе; ‚ По дате-времени возвращает часы, 
\уахг Нойшг, М1п, бес, М5ес: Иога); минуты, секунды и миллисекунды 


ЕапсЕ1оп Епсодерафе (Уеаг, МспЕВ, Рау: Г Но году, месяиу, дню формирует 
Мога) : ТрафеТаие; дату-время 
Еапсе1оп ТгуЕпсоаерате (Уеак, Мопев, 
Рау: Мога; оч Рафе: ТрасетТоме): 


Воо1еап; 

Еипсе1оп Епсоаерасерау (соп5® А\заг, По году и померу дня формирует 
АРауОЕУеаг: ШМога): ТрабеТ1ме; дату-время 

ЕапсЕ1оп Епсодера®еМопеПМеек (соп$& По году, месяцу, неделе месяца 
АУеаг, АМопЕП, АМеекКОЕМопЕп: Мока; и дню педели формирует дату- 
соп5$е АРауОЕМеек: Мога = 1): время 

ТРатеТ1мте; 
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Подпрограмма 


Еапсё1оп ЕпсоаерафеТ1ме (соп$ А\Уеахг, 
АМопЕР, Арау, АНочг, АМ1паке, 
Абесопа, АМ11]1бесоп@: Мога): 
ТРасеТ1ме; 


Еапсё1оп Епсоаера$еМеек (сопз® АуУеахг, 
АПеекКОЕУеаг: Мог; сопз® АБауоЕМеек: 
Иога = 1): Тр)азеТ1ме; 


ЕапсЕ1оп ЕпсоаеТапе (Ночг, Мат, $ес, 
Мбес: Мога)}: ТрафеТзпе; 
Еипс&1оп ТгуЕпсоаеТ1те (Ног, М1, 


бес, М5ес: Мог; озЕ Т1ме: ТрафеТ1пе): 


Воо]1еап; 


Еипс®1оп ЕпООЕАПау (сопз® АуУеаг, 
АРауОЕУеаг: ШМога): ТрафеТ1ме; 
оуег1оаа; 

Еалсе1оп ЕпЧОЕАРау (сопз® Ау\еахг, 
АМопЕП, АрБау: Шога): ТрафеТ1пе; 
оуег1оаа; 


Еапсе1оп ЕпОАОЕАМопЕВ (сопз® АуУеаг, 
АМопЕВ: Мога): ТрабеТлпе; 


Еапсе1оп ЕпаООЕАШеек (сопзе А\Уеаг, 
АМеекКОЕУеаг: Мога; сопзёе АрБауоЕМеек: 
Мог = 7): ТразеТ1те; 


Еапсе1оп ЕпООЕАУеаг (сопз% А\Уеаг): 
ТрасеТт1те; 


ЕапсЕ1оп ЕпаОЕТВехххх (сопзе АУ\а]1оае: 
ТрафеТт1ме): ТразеТаме; 


ЕапсЕ1топ НосгоОЕ (сопзе АУ\Уа1ае: 
ТРафеТ1те): Шога; 


ЕапсЕ1топ НоосгОЕТВехххх (соп$® А\Уа]11ае: 
ТрафеТт1ме): Мога; 


Еапсе1оп НоигзВеемеепт (соп$® АМои, 
АТВеп: ТрафеТ1пе): 1ТпЕ64; 


ргосеааге ТпсАМопеВ (маг Уеаг, Моп\еВ, 
Рау: Мога; МотрегоЕМопЕР$: Тпбедег 


По году, месяцу, дню, часу, 
минутам, сскундам 

и миллисекундам формирует 
дату-время 


По году, неделе года и дню недели 
формирует дату-время 


По часу, минутам, секундам 
и миллисекундам формирует 
дату-время 


Возвращает дату-время для 
последней миллисекунды 
указанной даты 


Возвращает дату-время для 
последней миллисекунды 
последнего дия указанного месяца 


Возвращает дату-время для 
последней миллисекунды 
последнего дня указанной недели 


Возвращает дату-время для 
последней миллисекунды 
последнего дня указанного года 


ХХХХ — Рау, МопЕП, Меек, Уеаг. 
Возвращает дату-время для 
последней миллисекунды 
указанной даты (месяца, недели, 
года) 


Возвращает час указанной даты 


ХХХХ — Моперв, Меек, Уеаг. 
Возвращает количество часов 
между указанной датой и началом 
первого дня того же месяца 
(недели, года) 


Возвращает количество часов 
между датами 


Увеличивает указанную дату на 
нужное количество месяцев 


Подпрограммы модуля Оае $ 615 


Подпрограмма [Описание 


Еапсе1оп ТпсххХхХх (сопз®е АУа1ие: ХХХХ — Рау, Ноаг, М1 1115есопа, 

ТРасеТт1те; соп$е АМитрегоЕХХХХ: Мтпоее, МопЕрВ, 5есопа, Меек, 

Тпседег = 1): ТрабеТ1пе; Уеаг. Увеличиваст указанную дату 
на нужное количество дней (часов, 
миллисекунд, минут, месяцев, 


секунд, недель, лет) 


Еипсе1оп Т5зГпГеарУеаг (сопз®е АУа1ае: Возвращает Тгое, если указанная 

ТрРахеТ1ме): Воо]1еап; дата принадлежит високосному 
году 

ЕипсЕ1оп ТзГеаруеахг (Уеаг: ШМога): Возвращает Тгое, если указанный 

Воо1еап; ГОД ВИСОКОСНЫЙ 

Еипсе1оп Тзбамерау (сопз$Е А\а1ое, Возвращает Тгое, если обе даты- 

АВа$1$: ТБафеТ1ме): Воо]еап; времени принадлежат одному дню 


Еапс®1оп Т5ТоЧау (соп$® А\Уа]14е: Возвращает Тгое, если указанная 


ТРафеТ1те): Воо1еап; дата-время принадлежит текущему 
ДНЮ 


Еапсе1оп М1111бесопаОЕ (сопзе А\а1ае: Возвращает количество 
ТрасеТ1ме): Мога; миллисекунд указанного времени 


Еиапсе1оп М1111бесопаоЕТвехххх (соп5Е ХХХХ — Рау, Нойг, М1паее, МопЕР, 

АУа1ие: ТрафеТ1ме): ГопаМога; Зесопа, Меек, Уеаг. Возвращает 
количество миллисекунд от начала 
указанного дня (часа, минуты, 
месяца, секунды, недели, года) 


Еапс®1оп М1111бесопазВеемееп (соп5 Возвращает количество 

АМ№ом, АТВеп: ТРафеТ1ме): Тп%64; миллисекунд между двумя датами 
Еапсе1оп М1побсеоЕ (сопзе А\Уа1]ае: Возвращает количество минут 
ТРафеТ1те): Мога; указанного времени 


Еипсе1оп М1посеоЕТвехххх  (соп$Е ХХХХ — Пау, Ноиг, Моп® р, Меек, 
АУа1ае: ТРафеТ1те): Мока; Уеаг. Возвращает количество 


минут от начала указанного дня 
(часа, месяца, недели, года) 


Еипсе1оп М1посезВехмееп (сопз® АМом, Возвращает количество минут 
АТреп: ТразеТ1те): 1пе64; между двумя датами 

Еапсе1оп МопЕПОЕ (соп$® АУ\Уа]1ое: Возвращает месяц указанной даты 
ТРафеТ1те): Мога; 

Еипсе1оп МопЕер5Веемееп (соп$® АМом, Возвращает количество месяцев 
АТреп: ТрафеТ1ме): Тпеедег; между двумя датами 


ХХХХ — Рау, Ноиг, М11115есопа, 
М1пасе, МопфВ, бесопа, Уеахг. 
Заменяет нужные части указанной 
даты-времени 


Еопсё1оп КесоаерахеТ1ме (соп$® 
АУа]ае: ТрафеТ1ме; сопз® АУеахг, 
АМопЕй, АБау, АНойг, АМ1пиее, Абесопа, 
АМ11115есоп@: Йога): ТракеТ1ме; 
Еопсе1оп Весоаера*е (соп$% АУ\Уа1о0е: 
ТРасеТ1пе; сопз® АУеаг, АМопЕП, Арау: 
Иога) : ТрафеТ1ме; 

Еопсе1оп ВесоаехХХХ (сопз® АУ\Уа11е: 
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Подпрограмма [Описание 1 


ТрРафзеТ1пе; сопз® АХХХХ: Мога): 
ТРасеТ`зпе; 


ТРасеТ1ме; соп$е Меирафе: ТрафеТ1пе); 


ргосеаиге Кер1асеТ1ще (уаг ПРасеТ1пе: Заменяет время 

ТрафеТ1ме; сопз МемТ1ме: ТраееТ1пе); 

Еирс&1оп бамера*е (сопз& А, В: Возвращает Тгое, если обе даты 
ТрафсеТ1ме) : Воо1еап; одинаковы 


Еапсе1оп бамеТ1ще (соп$® А, В: Возвращает Тгое, если оба времени 


ТРасеТ1ме): Воо1еап; одинаковы вплоть до 
миллисекунд 


ЕапсЕ1оп бесопаОЕ (соп5®е А\Уа1ае: Возвращает количество секунд 
ТраееТ1ме): Шога; в указанпом времепи 


Еапсе1оп сбесопаОЕТВехххх (соп$е ХХХХ — Вау, Нойк, М1паке, МопёВ, 
АУа1ие: ТрафеТ1ме): ГопдаМога; еек, Уеаг. Возвращает 


количество секунд от начала 
указанного дия (часа, мипуты, 
месяца, секунды, недели, года) 


Еапсе1оп бесопазВеемееп (соп5® АМо\ч, Возвращает количество секунд 
АТВеп: ТРафзеТ1пе): Тпе64; между двумя датами 


Еапсе1оп Зсаг(ОЕАХХХХ (): ТРаееТ1ме; ХХХХ — Рау, МопЕВ, Меек, Уеаг. 
Возвращает первый момент дия 
(месяца, недели, года) 


Еапсе1оп Тоаау: ТПафеТ1те; Возвращает текущую дату 
и 00:00:00 время 
Еопсе1оп Топоггом: ТрафеТ1те; Возвращает завтрашнюю дату 
и 00:00:00 время 


Возвращает неделю (1...53) 
указанной даты 


ЕапсЕ1оп МееКОоОЕ (сопзе А\Уа1ае: 
ТРаЕеТзме): ШМога; 


Еапсе1оп МееКкОоЕТТехххх  (соп$® А\Уа1ае: 
ТРаЕеТзме) : ШМога; 


ХХХХ — МопеВ, Уеаг. Возвращает 
порядковый номер недели в месяце 
(1...6) или в году (1...53) 


Возвращает количество недель 
между двумя датами 


Еипс&1оп Меек$Весиееп (соп$& АМом, 
АТПеп: ТрабеТ1те): Тпеечаекг; 


Возвращает количество полных 
недель в указанном году 


Еапс61оп МеекКзТпАУеаг (сопз® А\Уеаг: 
Мога) : Мога; 


Еапсе1оп И1ЕР1пРаз Е ХХХХ$ (соп$е АМом, 
АТБеп: Тр)афбеТ1пе; сопз® АХХХХ5: 
Трседег): Воо1еап; 


ХХХХ — ПВау, Ног, М11115есопа, 
М1писе, МопЕВ, бесопд, Меек, 
Уеаг. Возвращает Тгкое, если обе 
даты отстоят не более чем на 
указанное количество дней (часов, 
миллисекунд, минут, месяцев, 
секунд, недель, лет) 


Спецификаторы формата даты/времени 617 


Еапс1оп УеагОЕ (сопз® АУ\Уа1ае: Возвращает год указанной даты 
ТРафеТ1те): Мога; 


Подпрограмма 


Еипсё1оп УеагзВе&мееп (сопз$е АМо\, Возвращаст количество лет мсжду 
АТреп: ТРафеТ1ме): Тпфедег; двумя датами 


Еипсе1оп УезтегЧау: ТразеТ1пе; Возвращает вчерашиюю дату 
и 00:00:00 время 
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Спецификатор [бпивани 


Отображает сначала дату в формате 00.мм.гг, затем пробел и время 


в формате чч:мм:сс: 08.06.02 19:45 


Отображает день без ведущего пуля: 8 
Отображает день с ведущим нулем: 08 


Отображает день недели: суббота (для перусифицированной версии 
МЛп4о\$ — заигЧау) 


ааааа Отображает дату в формате дд.мм.гг: 08.06.02 


аааааа Отображает дату в формате д Месяи год: 8 Июнь 2002 (для 
нерусифицированной версии \УЛп4о\$ - 8 ]ипе 2002) 


аааа 


Отображает число месяца без ведущего нуля: 6 


Е 
3 


а #] Е 


Отображает число месяца с ведущим нулем: 06 


Отображает сокращенное название мссяца: июн 


т 
у или уу 
ууу или уууу 


Е 


Отображает час с ведущим нулем: 19 
Отображает минуты без ведущего нуля: 45 
Отображает минуты с ведущим нулем: 45 


т 
у 


№ 
2 


Отображает секунды без ведущего нуля: 0 
Отображает секунды с ведущим нулем: 00 
Отображает время в формате чч:ми: 19:45 


Отображает время в формате чч:мм:сс: 19:45:00 


ат/рм Отображает время в 12-часовом формате (ам — до полудня, рм — 
после полудня). Для спецификаторов ВВ:мм ам/рм получим 
07:45 рю 


продолжение 57 


Примеры приводятся для даты 8 июня 2002 г. и времени 19:45:00. 
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Слецификатор [бпибание о 


атрм Отображает время в 12-часовом формате, но без указания до/после 
полудня. Для спецификаторов ВВ:пм атрм получим 07:45 


Отображает время в 12-часовом формате (а — до полудня, р — 
после полудня). Для спецификаторов ВП:п а/р получим 07:45 р 


Отображает используемый в \У/14о\з разделитель даты. Для 
спецификаторов а/м/у получим 8.6.02 


Отображает используемый в \/!14о\5 разделитель времени. Для 
спецификаторов В : п: $ получим 19:45:0 


Системные переменные, управляющие 
стандартным отображением данных 


| Переменна____________| Описание 


Саггепсу5 Е г1па: ЗеЕ1па; Символ или символы денежной единицы; для 
русифицированной версии Уп 4о\$ ими являются 
символы <р.» 


СиггепсуЕогма*: Ву%е; Определяет положение символов денежной 
единицы: 0 — $1;1—1$;2—$ 1;3—1 $; 
в русифицированной У/Лт4о\5 используется 
формат 1 (1р.) 


МечСиггРГогмта®: Вусе; Определяет формат отрицательной суммы: 0 — 
($1);1—-$1;2—5-1;3— $1-;4-— (1$);5—-1$; 
6—1-$;7—15-;8—-1 $;9—-5$ 1;10-—1 $-; 
11-$ 1-;12—$ -1;13—1- $;14- ($1); 

15 — (1 $); в русифицированной \/т490\$ 
используется формат 5 (-1р.) 


Троизапа$ерака®ог: Сзаг; Разделитель тысяч; в русифицированной \Лп4о\з 
используется символ #166 


Рес1та]1Зерага®ког: Спаг; Разделитель дробной и целой частей числа, 

в русифицироваиной \М/т4о\$ используется 
запятая (',') 

Сиггепсу)ес1та1з: Ву%е; Количество цифр после запятой в денежном 
формате. Обычно содержит 0, что блокирует вывод 
мелкой денежной сдиницы. Чтобы в сумме 
присутствовали не только рубли, но и копейки, 

в переменную следует установить значение 2 


Расеберагаког: Спаг; Разделитель даты; в русифицированной \/1п4о\$ 
используется точка ('.!') 


зпогеБа*еГогма*: З$кЕ1па; Обычно используется формат 'аа.пм.уу', что 


соответствует, папример, дате '08.06.02' 


ГопарафеГогмта®*: $%г1пда; Для русифицированной версии содержит символы 
'аа ММММ уууу г. ', что дает 
'28 Июнь 2002 г. ' 
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Переменная о [бпивание 


Т1пеберага®ог: Сраг; Разделитель времени; в русифицированной 
\М/т4о\$ используется двоеточие (';') 


ЗПогЕТ1тегогмта®: $%г1па; Краткий формат времени (обычно 'п:пм') 
ТопаТ1мегогта*: $5%:1п9; Полный формат времени (обычно 'ВВ:пт:5$') 


бПогЕМопЕПМапез$: аггау 
[1..12]} оЕ З%гара; 


Краткие имена месяцев (янв, фев, мар, апр, май, 
июн, июл, авг, сен, окт, ноя, дек) 


ГопаМопПМамез$: аггхау 
[1..12] оЕ З%гала; 


Полные имена месяцев (Январь, Февраль, Март, 
Апрель, Май, Июнь, Июль, Август, Сентябрь, 
Октябрь, Ноябрь, Декабрь) 


Зрог&БауМамез$: аггхау 
[1..7) ОЕ З%Егапа; 


Краткие имена дней недели (Вс, Пн, Вт, Ср, Чт, Пт, 
Сб) 


Полные имена дней недели (воскресенье, 
понедельник, вторник, среда, четверг, пятница, 
суббота) 


Т.15&берагафог: Спаг; Разделитель списка строк (';') 


Правила использования параметров 
функции Ноа ТоЗЕ' 


Значение Описание 
Рогта+ 


ЕЕЕхропепе | Научная форма представления с множителем ехХ («умножить па 
10 в степени ХХ»). Ргес1 $1 оп задает общее количество десятичных 
цифр мантиссы, 01391%$ — количество цифр в десятичном порядке ХХ. 
Число округляется с учетом первой отбрасываемой цифры: 3,1416Е+00 
ЕЕЕР1хеа 


ЕЕСепега1 


ЕЕМапрег 
ЕЕСаггепсу 


' Примеры преобразования даются для Уаше = л (3,141593654), Ргесзюп = 5 и Оии$ = 2. 


.опарауМамез$: аггау 
[1..7] оЕ З&Ех1па; 


Формат с фиксированным положением разделителя целой и дробной 
частей. Ргес1 з1оп задает общее количество десятичных цифр 

в представлении числа, 0191$ — количество цифр в дробной части. 
Число округляется с учетом первой отбрасываемой цифры: 3,14 


Универсальный формат, использующий наиболсе удобную для чтения 
форму представления вещественного числа. Соответствует формату 
ЕЕЕ1хеа, если количество цифр в целой части меньше или равно 

Ргес1 з1ол, а само число -- больше или равно 0,00001, в противном 
случае соответствует формату ЕЕЕхропеп\: 3,1416 


Отличается от ЕЕЁГ1хеа использованием символа-разделитсля тысяч 
при выводе больших чисел (для русифицированной версии \Мт40\$ 
таким разделителем является пробел). Для Уа1е = лх1000 получим 
3 141,60 


Денежный формат. Соответствует ЕЕ№отЪек, но в конце строки 
ставится символ денежной единицы (для русифицированной версии 
М п4о\$ — символы «р.»). Для Уа1ие = лх1000 получим 3 141,60р. 
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Спецификаторы форматирования 
вещественных чисел 


Спецификатор | Описание 


Определяет поле для цифры. Если в данной позиции форматируемое 
число имест значащую цифру, она выводится, если нет — выводится 0 


# Определяет поле для цифры. Если в данной позиции форматируемое 
число имеет значащую цифру, опа выводится, если нет — ничего ис 


ВЫВОДИТСЯ 


ПВ Поле для разделителя целой н дробной частей числа 


Поле для разделителя тысяч 


Признак представления числа в научном формате. В этом случас 
число представляется маитиссой и десятичным порядком, между 
когорыми стоит символ Е. Сиецификаторы Е + не+ преднисывают 
выводить знак + перед неотрицательным десятичным порядком, при 
использовании Е- ие- знак + перед порядком ие выводится 


Разделител Ь сиецификаторов «формата для положительного, 
отрицательного и пулевого числа 


Подпрограммы для работы 
с файлами 


Подпрограмма Описание 

Еипсе1оп СпапсеЕ11еЕхе (сопз® Изменяст существующее расширение файла 
Г1]еМаме, Ехсепз1оп: 5©гапа): расширением, заданным параметром 
ЗЕг1па; Ехсеп$1о0п 


Ргосе4аге СПО1г(Рабер: $5&г1апа); Изменяст текущий каталог: Раёв — 
строковое выражение, содержащее путь 
к устанавливаемому по умолчанию каталогу 


Еяпсе1оп РабеТ1пеТоЕ11ерасе Преобразуст значение РабеТ1ме 
(РабеТ1те: ТрафеТ1те): Тпееаег; | всистемный формат времени создания 
(обновления) файла 


КапсЕ1оп О15КЕгее (р: Вуте): Возвращаст объем в байтах свободного 

Бопа1Тпё; пространства па указанпом диске: р — 
помер диска (0 — устройство по умолчанию, 
1 — диск А, 2 — диск Вит. д.). Функция 
возвращаст значение -1, ссли указан номер 
несуществующего диска 


ЕКапсе1оп 015К512е (р; Вуке): Возвращает объем в байтах полного 

ТопаТпе; пространства на указанном диске: р — 
помер диска (0 — устройство по умолчанию, 
1 — диск А, 2 — диск Вит. д.). Функция 
возвращает значение -1, если указан номер 


несуществующего диска 
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Подпрограммы для работы с файлами 


Подпрограмма [Описание 


Еапсе1оп Е11]еАде (соп$® 
Е11еМапе: З6г1па): Тпеедег; 


Еипсе1оп 
Ехс1оаеТга111п9Васк$]а$1 (соп$® 
5: 56.1149): 56г1па; 


ЕапсЕ1оп ЕхрапаЕ1 1еМапе (соп$® 
Г11еМапе: $З%г1па): ЗЕгапа; 


Еапсе1оп Ехрапа0ОМСЕ11еМапме 
(сопз6 ЕГ11еМапе: $&х1п9) : ЗЕг1пд; 


Еапсетоп ЕхегасЕеР11е0)1хт (соп$е 
Г1]еМмаме: 5%&глпа): $Зег1пда; 


Еапсе1оп ЕхЕгасеР11еЕхе (соп$® 
Е11еМатме: 5Ег1па): $%г1рла; 


ЕопсЕ1оп Ехсгас®Е1]еМаме (соп$е 
Г1]еМаме: 56г1па): $Зегапд; 


ЕапсЕ1оп ЕхегасеР11еРаеРМ (соп$® 
ЕГ1]еМапе: $6х1па): $З6Ег1па; 


ЕапсЕ1оп ЕхегасеВКе]ае1уеРаЕН 
(сопзе Ваземапе, ПезЕМаме: 
ЗЕг1па): ЗЕг1па; 


Еапсе1оп ЕхегасеброгеРа®*ИМаме 
(соп$6 Е11еМаме: 5&г1па): Зёг1па; 


ЕопсЕ1оп Е11ерафеТтТораЕеТ1пте 
(ЕГЕ1]ерафе: Тпбседег): ТрафеТ1те; 


ЕапсЕ1оп РЕ11ебеерафе (Напа]1е: 


Трседег): Тпфедег; 


ЕипсЕ1оп Р11ебеераке (Напа1е: 
Тпеедег; Аде: Тпеезег): 
Тпбедег; 


Еирсе1оп Гпс1оаеТга111паВаск- 
$1а$Н (сопз®е 5: 56г1па): $З6г1па; 


Рипсе1оп ТОКе5о1е: Тпеедег; 


ЕопсЕ1оп ТзРаейПе]11т1кег (сопз® 
5$: 5Ег1па; Тпаех: Трлеедег): 
Воо1еап; 


Для файла Е11еМаме возвращает время сего 
последнего обновления (в системном 
форматс) или -—1, если такого файла пе 
существует 


Исключает из строки $ замыкающий символ 
«\> (ссли этот символ не замыкает строку, 
возвращает $ без изменения) 


Дополняет имя файла текущим каталогом 
(и диском) 


Дополняет имя файла тскущим сетевым 
каталогом (и диском) 


Извлекает из полного имени файла маршрут 
доступа к нему (без последнего символа «\») 


Извлекает из полного имепи файла сего 
расширение (с ведущей точкой) 


Извлекаст из полного имспи файла его имя 
(с расширением) 


Извлекает из полного имени файла маршрут 
доступа к пему (с последним символом «\») 


Извлекает из полного имени файла имя 
маршрута относительно Рез&Маме 
(промежуточные каталоги заменяются 
символами <..\») 


Преобразует имя файла к короткому 
формату 8.3 для М5-ОО$ и \Лпао\$ 3.х 


Преобразует системный формат Е11ераке 
времени создания файла в формат 
дата-время 


По заданному дескриптору файла Напа1е 
возвращает время и дату его создания 

в системном форматс. Возвращает 0 

в случае успеха или код ошибки 


Для файла с дескрииптором НапЯ1е 
устанавливает новое время и дату его 
создания Аде в системном формате. 
Возвращает 0 в случае успеха или код 
ошибки 


Возвращает полный маршрут доступа 
к файлу с ведомым символом «\» 


Возвращает условный призпак последней 
операции ввода-вывода 


Возвращает Тгие, если в строке $ символ 
Тпаех есть «\» 


продолжение = 
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Подпрограмма 


Еапсе1оп МаксВезМазк (сопзе Возвращает Тгое, если имя Е11еМапме 
Г1]епате, Мазк: З%х1пд): соответствует групповому имени МазК 
Воо1еап; 


ргосеаиге РгосеззРа®П (сопз® Возвращает имя диска, маршрут поиска 


Еа1еТех®*: $8%г1п9; уаг Пг1уе: и имя файла в переменсиных Без уе, 
СПаг; уахг О1гРаг®: ЗегЕ1па; 01 гРаг® и Е11еРаг® соответственно; 
уаг Е11еРаг®: $%х1п9а); Еа1ТехЕ — полное имя файла 


Ргосеаиге ВпО1г(01г: $&г1па); Удаляст каталог 21 г. Удаляемый каталог 
должен быть пустым, то есть не содержать 
файлов или имен каталогов нижнего уровня 


Стандартные классы исключений 
Клас | Родитель __| Обрабатываемое исключение __ 


ЕАБОгЕ ЕхсерЕ1оп Реализует «тихую» (без какого-либо 


сообщения) обработку любого 
ЕАрзегасеЕггог ЕхсерЕ1оп 


исключения 


Программа пытается вызвать 
абстрактный метод 


Программа пыталась обратиться к не 
принадлежащей ей области памяти или 
использует недействительный указатель 


ЕАссез$\У10о1а*1оп Ехсер*1оп 


ЕАрр1е Ехсере1оп Ехсер®1оп Ошибка связана с созданием 
управляющих панелей в апплетах 

ЕАггауЕггог Ехсере1оп Возникает из-за различного рода 
ошибок при работе с массивами 
(неверный индекс, попытка вставить 
элемент в массив фиксированной длины 
или в отсортированный массив ит. п.) 

ЕАззег1опГа11а Ехсер*1оп Возбуждается отладочной процедурой 


Аззеге, когда тестируемое ею 
логическое выражение имеет значение 
Га1зе 


ЕВ1Е5Еггког Ехсер*1о0п Программа пыталась обратиться 
к свойству В1% 5 объекта ТВ1%з 
с индексом меньше нуля или больше 
максимально допустимого значения 


ЕВгокегЕхсере1оп Ехсере1оп Объскт-брокер нс может найти сервер 


ЕСаспеЕггог Ошибка в наборе данных для 


компонента Трес1з1опСоъе 
ЕС]а$$МоЕоип@ ЕЕЙегЕггог Для компонента, читаемого из потока 

данных, не найден соответствующий 

класс. Обычно возникает в случае, 


когдав форму вставлен нестандартный 
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Обрабатываемое исключение 


компонент, а в библиотеке компонентов 
Оеры нет связанного с ним класса 


ЕСопмопСа]епаагЕхггог 


о 


Возникает в объектах класса 
ТСопмопСа1епаахг и его потомках, 
когда вводится неверная дата 


Возникает при различных 
манипуляциях программы 
с компонентом (программа не может 
зарегистрировать компонент, 
переименовать его или для его работы 
требуется интерфейс СОМ, который 
компонентом не поддерживается) 


Возникаст при нажатии клавиш (+11+С 
в случае работы приложения в режиме 
КОНСОЛИ 


Ошибка преобразования В функциях 
ЗЕгТоТпЕ или $ЕгТоЕ] оае 


ЕСогЬар1зрафсь Ехсер&1оп Возникает в программах, использующих 
технологию СОВВА, при ошибках, 
связапных с несовпадением 
интерфейсов сервера и брокера даниых 

ЕСограЕхсер*1оп Ехсере1оп Возникает в программах, использующих 
технологию СОКВА 

ЕСограОзегЕхсер*1оп ЕСогра- Возникает как определясмая 


Ехсере1оп пользователем реакция па ошибки 


интерфейса 
ЕраъеТпеЕсгог 


ЕРафаЪазе- Ошибка связана с неправильной 
Еггог работой ТС11епРафа$еф 


Возникает, когда компонент 
обпаруживает ошибку в базе даиных 


Возбуждается компонентом 
ТрахеТ1теР1скКег при попытке ввода 
неверной даты или времени 


ЕОВС11еп* 


ЕРВЕЯ1Еггког Ехсере1оп Возникает, когда компонент пытается 
использовать данные, несовместимые 
с заданной маской 


ЕРафсаразе- Связана с ошибками ВОЕ 


Еггог 


Ехсер®1оп 
Ехсер®1оп Связана с нарушением размерности 
массива данных для куба решений 


ЕО1уВудего ЕТпЕЕггог Ошибка целочисленного деления 
на ноль 


продолжение = 


ЕОВЕПЯ1ПеЕггог 


ЕО1меп$1опМагЕггог Возникает, когда используемый в кубе 
решений набор данных не имеет 


агрегатных полей 


Ер1мТпаехЕггог 
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Класс Родитель Обрабатываемое исключение 


ЕРЗИг1 ег Ехсер®1оп Онтиобка при нодготовке провайдером 
накста даиных для набора дапных 


ЕЕхсегпа]1Ехсер®1 оп | ЕссгеамЕггог | Возникла опнабка, код которой ис 
| 


| ‚ является предопределенным в Рер 


попытка создать файл на устройстве, 


ЕЕСгеасеЕггог обсгеамЕггог | Ошибка при создании файла. Например, 
предназначенном только для чтепия, 
| 


| или в иссуществующсем каталоге 
О ОИ | ы ы 


Программа пытается повторно 
зарегистрировать в потоке данных один 
И ТОТ же класс 


ЕЕ] егЕгког ЕссгеамЕггог 


сссгеащЕксгог | Ошибка открытия потока данных. 
Например, попытка открыть 


иссуществующий файл 


ЕЕГОрерЕггог 


Ошиока связана с неправильными 
| операциями с динамической памятью 


ЕНеарЕхсер® 1сп 


гхсере1оп 


_ и р 

Е\ВС11еп Еггог | ЕТРЕГГОЕ Оншюока связана с функциопированисем 
| 

} 


|ВХ-клиента 


ЕТВЕГГОЕ | Ерабафазе- Общая ошибка технологии [ВХ 
Еггог 


ЕТВТпеегразеЕггог | ЕТВЕЕЕОЕ Оинибка связана с функционированием 
сервера в технологии 1ВХ 


ООО ОО 
ЕТПОЧЕЕГГОх ‚ Ехсеретол 


Любая ошибка в файловых операциях. 
Нолс ЕскогСоае объекта этого класса 
содержит код ошибки 


р 
р 
| 
| 
| 
1 


Возникает, когда компонент класса 
ТрафаВ1оск1пеегре век ие может 


ЕТпсегрхебегЕггог Ехсеретоп 


| интериретировать данные блока данных 

ЕТЛЕЕГГОЕ ЕхсерЕтол Любая ошибка в целочисленных 
вычислениях 

Г 
ЕТп с ЕСазЕЕггог | вхсерЕтлоп | Попытка недопустимого приведения 

чинов в ОТЕ-объектах 

И 

| 

Е1пОуегЕ1ом ЕТЛЕРЕГоОЕ | Ошибка целочисленного переполнения: 


| программа пытается присвоить 
целочислепной переменной значение, 
выходящее из 32 двоичных разрядов 


Возбуждастся математическими 
функциями при выходе аргумента из 
‚ допустимого дианазона 


ЕТпуа11ААганмейе 


ЕТпуа11АСаз® Программа пытается осуществить 
исдонустимое преобразование типов 


с помощью оператора а5$ 


Ехсере1оп 


Программа пытастся загрузить 
в контейнер изображение из файла, 


ЕТпуа11АСгарп1с Ехсере1оп 


Стандартные классы исключений 625 


Класс | Родитель | Обрабатываемое исключение 


который имеет недопустимый формат 
(допустимыми форматами являются 
растр, метафайл, курсор, значок) 


ЕТпуа11АСгарВ1с- Ехсер®1оп Программа пытается выполнить 
Орега*1оп недопустимую графическую операцию 
Е1пуа11АСбг1аОрега®1оп| Ехсерё1оп 
(например, обратиться 
к несуществующим столбцу или строке) 
ЕТпуа]11АТтазе ЕЕ1]екхЕггог | Программа пытается прочитать ресурс 
изображения из файла, в котором этого 
ресурса нет | 
ЕТпуа11АО0р ЕМаесвЕггог | Ошибка в операциях с плавающей 
точкой (недопустимая инструкция, 
переполнение стека сопроцессора и т. п.) 
Ехсер*1оп Не имеющий окна компонент пытается 
выполнить операцию, требующую 
дескриптора окна 


Попытка использовать 
недействительный указатель 


Программа пытается выполнить 
недопустимую операцию с таблицей 


ЕТпуа11ЧО0рега*1оп 


ЕТпуа11АРо1окег 


ЕНеар- 


Ехсер&1оп 
Эта ошибка связана с неверными 
действиями программы по отношению 
к разного рода спискам. Например, 
обращение к элементу списка 
с индексом меньше нуля или больше 


ЕМаесвЕггог Ехсер*1оп Любая ошибка при выполнении 
вычислений с плавающей точкой 
с идентификатором, который уже 
ЕМеепоаМоеГоцпа ЕЕР11ехЕггког Программа прочитала из потока данных 


Е $СЕГЕОГ Ехсер®1оп 
максимально допустимого 
ЕМепаЕггог Ехсер*1оп Ошибка при работе программы с меню. 
определен в меню 
объект, по не может найти связанный 
ЕСоттопСа- 


ЕГомСарас1® уЕггог Ехсер®*1оп Ошибка возникает при попытке 
выделения памяти на устройстве, 
у которого нет нужной свободной 
памяти 
Например, при добавлении элемента 
ЕМСТО1у1сеЕггог Ошибка возникла в медиаплейере 
с классом объекта метод 
1епаагЕггог 


ЕМопЕПСа1Еггог 


Возбуждается компонентом класса 
ТМопЕПСа1епааг при попытке ввода 
неправильной даты 


Ехсере1оп Программа не может установить связь 
с элементом АсиуеХ 
продолжение +7 


ЕО1есСЕех]Ехггог 
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Клас | Родитель _ | Обрабатываемое исключение 


ЕО1еЕггог Ехсере1оп Низкоуровневая ошибка в технологии 
ОГЕ 


ЕО1еЕхсер®1оп ЕО1ебузЕгкохг | Программа использует неверный 
ОГЕ-интерфейс 


ЕО1еКедч1 $ га&1опЕгкох| ЕО1еЕггог Ошибка регистрации ОГЕ-объекта 
в реестре \/114о\5$ 


ЕО1е5узЕггог ЕО1еЕггог Возникает при неправильном 
выполнении команды О.Е 
автоматизации 


ЕО 11 пеЕггог* 


Ехсер®*1оп Возникает при ошибке доступа 
к компоненту класса ТОсчЕТ1пе 


ЕОчеОЕМетогу Эта ошибка возникает, когда программа 
запрашивает слишком большой для 
данной конфигурации \/т4о\$ объем 


памяти 


ЕНеар- 
Ехсер&1оп 


ЕОс ОЕВезопгсе ЕОсЕОЕМепокгу | Программа требует от \п4о\$ 


дескриптор окна, но операционная 
система исчерпала лимит дескрипторов 


ЕОуегЁ1ом ЕМаесрЕггог | Результат операций с плавающей точкой 

слишком велик, чтобы уместиться 

в регистрах сопроцессора 
ЕРаскКадеЕггог Ехсер®1оп Возникает при ошибке доступа к пакету 
ЕРагзегЕггог Ехсере1оп Ошибка преобразования текста 

| в двоичные данные при чтении из потока 

ЕРг1псег Ехсере1оп Система \/Лт4о\$ сообщила программе 

об ошибке принтера 


ЕРг1\у11еде Ехсер®1оп Программа пытается выполнить 


привилегированную операцию. 
Привилегированные операции могут 
ЕРгорегкуСопуегЕЕгког| Ехсер®1оп Ошибка при чтении или записи 
значения свойства 


выполняться только ядром \/1п40\$ 


ЕРгорег С уЕггок Ехсер®1оп Ошибка доступа к свойству при чтении 
или записи 


ЕРгорКеаАОп1у Ехсер®1оп Программа пытается присвоить 
значение свойству, из которого можно 


только читать (при использовании 
технологии ОГЕ) 


ЕРгор\Мг1 $ е0п1у Ехсер&1оп Программа пытается прочитать 
свойство, предназначенное только для 
записи 


ЕКапдеЕггог ЕТИСЕг Гог Целочисленный результат превышает 
емкость целого типа данных 


Стандартные классы исключенн_ 627 


Класс Родитель Обрабатываемое исключение 


ЕВеаЯЕгког ЕР1]егЕггог | Программа не может прочитать из пото- 
ка данных нужного количества байтов 


Ошибка обновления данных 
В ТС1 1еп*Рафазеё 


ЕРафаБазе- 


ЕГГОГ 
Ошибка, связанная с операцией над 


ЕВКеч1 56 гуЕхсер*1оп Ехсере1оп 
реестром \/1п40\$ 

ЕКезМоеГоцпа Ехсере1оп Программа не может найти указанный 
ресурс в файле ресурсов 

ЕЗоскееСоппес®1оп- Ехсер®1оп Ошибка связана с работой 

Еггог с сокетами \Мт4о\/з 

ЕбоскееЕггог Ехсер*1оп Ошибка связана с работой с сокетами 
МИт4о\5 

ЕбЗфаскОуегЕ1 ом Ехсер*1оп Исчерпан объем выделенного 
программе стека 

Е5сгеамЕггог Ехсер*1оп Любая ошибка при работе с потоком 
данных 


Е к1па15ЕЕгког Ехсер*1оп Программа ссылается на строку, индекс 
которой выходит из диапазона 
возможных значений для списка строк 

ЕТьгеаа Ехсер&1оп Ситуация борьбы за общий ресурс 
в программе с несколькими потоками 
команд 

ЕТгее\У1емЕггог Ехсер*1оп Указан неверный индекс при обращении 

К ТТгееУ1ем 

ЕОпаегЕ1ом ЕМаесвЕгкгог | Результат операций с плавающей точкой 
слишком мал, чтобы уместиться 
в регистрах сопроцессора (исчезновение 
порядка) 


ЕОпзиррог6еЯТуреЕггог Выбран недопустимый тип поля 


в качестве измерения в кубе решений 


ЕВесопс11еЕггог 


ЕОрдафеЕггог Ехсере1оп Ошибка обновления набора данных 
провайдера 

ЕУаг1ап Еггог Ехсер*1оп Ошибка при работе с типом Уаг1апк: 
недопустимое приведение типов; 
недопустимая операция; обращение 
к скалярной переменной как к варианту- 
массиву; индекс варианта-массива 
выходит из допустимых значений 

ЕМ1п3З2Егког ЕхсерЕ1оп Ошибочное обращение к АР1-функции 
\У/т4до\з. Свойство Меззаде содержит 
номер ошибки и связанное с ней 
сообщение 

ЕМг1сеЕггог ЕЕ11егЕггог | Ошибка записи в поток данных 

Е2егор1\1ае ЕМаеспЕкггог | Вещественное деление на ноль 
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А 
адрес, 146 
анимация, 362 


библиотека типов, 529 
буква, 103 


вариант, 184 
выравнивания компонентов, 572 
значения, 184 
преобразования, 186 
работа, 187 
структура, 185 
тин данных, 523 
вешка 
перемещения, 392 
разбивки, 339 
всплывающая подсказка, 288 
выражение, 79, 106 


г 


главное меню формы, 296 
главное окно, 27 
глобально уникальный 
идентификатор, 517 
группа 
переключателей, 312 
флажков, 338 


д 


дата-время, 366 
действие, 283, 298, 314 
деструктор, 176 
диаграмма, 349 
диалоговое окно 
выбора 
цвета, 426 
шрифта, 424 
настройки параметров 
печати, 426 
принтера, 428 


диалоговое окно (продолжение) 
открытия 
изображений, 423 
файлов, 420 
поиска, 428 
поиска и замены, 430 
сохранения 
изображений, 423 
файлов, 420 
динамически подключаемая 
библиотска, 503 
директива 
абзегась, 175 
аззетЫег, 156 
Чупапис, 174 
ехбегпа|, 156 
{аг, 156 
Еог\ага, 169 
юг\у’ага, 156 
тобеггирье, 156 
пеаг, 156 
оуегг4е, 174 
угвиа|, 174 
директивы 
компилятора, 62 
стандартные, 104, 156 


Е 


единица программная, 61 


з 


заглушка, 96, 527 
заголовок 
подпрограммы, 98 
программы, 62 
процедуры, 96 
управляющий, 383 
заместитель, 527 
запись, 129 
поле вариантное, 130 
разделы, 129 


зарезервированное слово, 62, 67, 103 


апа, 79 


630 Алфавитный указатель 


зарезервированное слово (продолжение) 


аггау, 92, 125 
а$, 921 
аиютабе4, 180 
Берт, 63 

сазе, 87, 130 
С]а5$, 177 

соп5ь, 67, 99 
соп$ёгисфог, 176 
Чеаи 1, 550 
Чезегиссог, 176 
Ч15риа, 522 
Ч5рицкегасе, 522 
Чу, 73 

Чо, 82 

Чо\/п`о, 84 

е]зе, 78 
спа, 61, 215 
ехрог($, 504 

Ме, 192 
Нпа|17айоп, 215 
Нпа|у, 230 

юг, 82 

воо, 90 

1, 78 
ппр!ететцаНогп, 64 
ипретепе$, 521 
11, 133, 455 
[прегкеа, 177 
тинаниайол, 215 
ицегвасе, 64, 215, 516 
1аБе], 68, 91, 99 
ПЬгагу, 504 
те5заве, 498 
то, 73 

пШ, 149 

по, 79 

оф 87, 92, 125, 130, 133, 192 
опепоа4, 177 
ог, 79 

оц, 161 

раске4, 125 
рнуаже, 180 
ргосеЧиге, 96 
ргоргат, 61, 455 
ргорегу, 179 
ргоесцед, 180 
рис, 180 
риБ1зЪед, 180 
га1зе, 233 

геа4, 179 
геп&годисе, 178 
гереак, 86 

зес, 133 

5еппяа, 136 


зарезервированное слово (продолжение) 
еп, 78 
со, 82 
(ту, 230 
Суре, 66 
ип, 64, 215 
ипб|, 86 
и$ез, 62, 215, 455 
уаг, 66, 99 
ЕВ, 130 
\тце, 179 
защищенный блок, 83, 230 
звук, 405, 412 
значок, 257 


И 


идентификатор, 67, 104 
глобально уникальный, 517 
интерфейса, 517 

иерархический список, 378 

иерархическое дерево, 369 

изображение, 334 

ИМЯ 
глобальное, 154 
локальное, 153 

индекс массива, 92 

индикатор 
величины, 432 
процесса, 360 

инкапсуляция, 171 

интерфейс, 526 
Ога &Ооск, 286 
Огаё&Огор, 283 
С аззРассогу, 528 
ГО1браесВ, 522 
ГОпКпо\,, 526 

интерфейсы, 516 
делегирование, 521 
дуальные, 524 

исключение, 84, 229 
возбуждение, 233 
обработчик, 230 
стандартные классы, 232 

исключительная ситуация, 229 


К 


календарь, 368 
канва, 253 
кисть, 250 
клавиши быстрого вызова, 280, 296, 298 
класс, 66 
ЕАБоге 622 
ЕАБзгас&Етггог 622 
ЕАссез$У1о|аноп 622 
ЕАрр]е Ехсериоп 622 


класс (продолжение) 
ЕАггауЕтгог 622 
ЕАз$зегнопЕа А 622 
ЕВизЕггог 622 
ЕВгокегЕхсерНоп 622 
ЕСазпеЕггог 622 
ЕС а$$Мо(Еоипа 622 
ЕСоттопСаепагЕтгог 623 
ЕСотропепЕггог 623 
ЕСопето]| 623 
ЕСопуегЕЕггог 623 
ЕСограП!зраёср 623 
ЕСограЕхсериоп 623 
ЕСограО5егЕхсериоп 623 
ЕПа(афазеЕггог 623 
Е)аеТитеЕггог 623 
ЕОВСШепе 623 
ЕОВЕЧКЕггог 623 
ЕОВЕпетеЕггог 623 
Е)Битепзюоп МарЕггог 623 
Е Бип 4ехЕггог 623 
ЕП1уВуего 623 
ЕОЗ\/гкег 624 
ЕЕжегпа!ЕхсерНоп 624 
ЕЕСгеаеЕггог 624 
ЕРЕегЕггог 624 
ЕЕРОрепЕггог 624 
ЕНеарЕхсериоп 624 
ЕИВСЙетЕггог 624 
Е]ВЕггог 624 
ЕВГ егфазсЕггог 624 
ЕпОщ Еггог 624 
ЕПуегргеесгЕггог 624 
Е Еггог 624 
ЕтеСа$Еггог 624 
Е ОуегНо\м 624 
Е]пуа!ЧАгвитепе 624 
Е]пуа|14Сазе 624 
Епуа1АСтарЬ!с 624 
Епуа!АСтарсОрегайоп 625 
Епуа1АСтАОрегайоп 625 
Етуа|14[ тазе 625 
Епуа|АОр 625 
Е]пуаНЧОрегаНоп 625 
Е]пуа!АРопиег 625 
ЕТ 1$ Еггог 625 
ЕГо\СараскуЕггог 625 
ЕМаесВЕггог 625 
ЕМСШеу!сеЕггог 625 
ЕМепиЕггог 625 
ЕМево4аМ№о(Еоипа 625 
ЕМоп Са] Еггог 625 
ЕОеСЕТЕггог 625 
ЕОеЕггог 626 
ЕОТеЕхсерйоп 626 
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класс (продолжение) 


ЕОеВев1$ганопЕггог 626 
ЕОе5у$Еггог 626 
ЕОцИтеЕггог 626 
ЕОцОЁМетогу 626 
ЕО ОЁЖВезоигсе 626 
ЕОуегЙо\м 626 
ЕРасКареЕггог 626 
ЕРагзегЕггог 626 
ЕРгикцег 626 
ЕРпу|еве 626 
ЕРгорегЕуСопуегЕтгог 626 
ЕРгорегуЕггог 626 
ЕРгорКеад4Оту 626 
ЕРгор\ИгиеОту 626 
ЕКапасЕггог 626 
ЕКеаЧЕтгог 627 
ЕКесопсИеЕггог 627 
ЕКев15$гуЕхсериоп 627 
ЕКВе5МоЕоипа 627 
Ебоске(СоппесиопЕггог 627 
ЕбоскеЕггог 627 
ЕЗасКОуегНо\ 627 

Е тгеатЕггог 627 
ЕЗечае [$ Етгог 627 
ЕТЬгеаа 627 
ЕтееУ1е\мЕтггог 627 
ЕОп4егНо\м 627 
ЕОпзиррогеЧТуреЕггог 627 
ЕОрдакеЕггог 627 
Е\УанапёЕггог 627 
Е\М1т32Еггог 627 
Е\!гцеЕггог 627 
Ехсериоп, 229, 231 
ЕЙегобмАе 627 
ТАсвоп, 315 

ТВгиз, 250 

ТСапуа$з, 253 
ТСотропепь 261, 544 
ТСопето|, 264, 544 
ТСизют(Сопето|, 544 
ТЕопь, 243 

ТЕогт, 66 
ТОтар с Сопето|, 261, 544 
ТСОтариис, 257 
ТНеадег$ссйоп, 385 
Т[сопОриоп, 382 
Тицегасе( ОБеси, 519 
ТТ4$% 235 

ТИ Кетз, 382 

ТМоп Саепдаг, 368 
ТОБесь, 66, 543 
ТРагаАгЬикез, 357 
ТРеп, 246 
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класс (продолжение) 
ТРегязепе, 261, 544 
ТРсите, 258 
ТКезсту, 480 
ТУавзРапе|, 387 
ТоаизРапе{[, 387 
ТУ геат, 211 
Тент [4$6, 240 
Т$иилв$, 239 
ТТооВибоп, 389 
ТТгееМодез, 374 
Т\У/тСопиго/, 261, 544 
классы, 170 
именование, 44 
инкапсуляция, 171 
компонентные, 518 
методы, 173 
наследование, 171 
определение, 44 
полиморфизм, 172 
поля, 17, 172 
свойства, 179 
секции объявления, 180 
стандартные, 44 
экземпляры, 44, 45 
кнопка 
обычная, 304 
панели инструментов, 319, 389, 390 
с изображением, 317, 319 
с фиксацией, 319 
спаренная, 361 
код 
АМЗТ, 115 
виртуальный, 279, 281 
коллекция, 539 
комбинированный список, 310 
комментарий, 62, 100 
компонент, 30, 48 
ТАсйоп Г 1$6, 314 
ТАсйопМапазег, 350 
ТАпипае, 362 
ТВеуе|, 337 
ТВивВиь, 49, 317 
ТВибоп, 304 
ТСаепдаг, 436 
ТСЪаг&, 349 
ТСЬагЕЕХ, 54 
ТсСЬесКВох, 49, 305 
ТСЬескГ1${ Вох, 50, 338 
ТСо]огО1а]ов, 426 
ТСо]огСна, 433 


компонент (продолжение) 
ТСотБоВох, 310 
ТСопго!Ваг, 341 
ТСоо!Вапа, 392 
ТРаеТитеРсКег, 366 
ТРОтескогуОц лапе, 435 
ТОгам\Сна, 330 
ТЕАК, 49, 299 
ТЕшаА0!аю8, 428 
ТЕоп 012108, 424 
ТЕогт, 439, 442 
ТСаивбе, 432 
ТСгоирВох, 312 
ТНеа4егСопего], 383 
ТГлабе, 334 
'Т[табе[.1$6, 356 
ТГаБе], 49, 298 
ТИ Вох, 306 
ТЕМ ех,, 378 
ТМашМепи, 296 
ТМазКЕах, 320 
ТМе4аР1ауег, 404 
ТМето, 302 
ТОеСожеатег, 413 
ТОреп 012108, 420 
ТОрепР!сеиге и], 423 
ТРазеСопёго|, 355 
ТРавезсгоПег, 394 
ТРаи( Вох, 403 
ТРапе|, 49, 313 
ТРорирМепи, 298 
ТРип(О1а10, 426 
ТРигегеир 012105, 428 
ТРгоетез$Ваг, 51, 360 
ТКад1оВи(оп, 49, 306 
ТВаоСгочр, 312 
ТКер!асеО1а]05, 430 
ТЕ сЬЕаик, 356 
Тбауе 012108, 420 
Т5ауеР!свигеО1а]юв, 423 
Т$сгоЙВаг, 311 
ТбсгоЙВох, 50, 337 
ТбВаре, 50, 336 
Туве СвапяеМойй_сг, 437 
Т$е]СотБоВох, 437 
Тове аз Мсу, 437 
Т$ве|ТгееМех,, 437 
Тбрее4Ви(оп, 319 
Т$ртВиКоп, 434 
ТЗртЕИ, 434 
Тбрицсег, 50, 339 
Таис Техь, 50, 340 


компонент (продолжение) 


ТУ асизВаг, 387 
ТбишеСна, 50, 321 
ТТабБСоп\го/, 353 
ТТитег, 400 
ТТооВаг, 389 
ТТгасКВаг, 360 
ТТгееМех,, 369, 370 
ТУрОо\п, 361 
ТУачецз&ЕКог, 344 
компоненты 
владелец, 263 
дочерние, 264 
клиентская часть, 267 
неоконные, 262 
оконные, 262 
определение, 261 
родительские, 264 
константа, 67, 105 
логическая, 105 
символьная, 105 
строковая, 106 


типизированная, 99, 222 


конструктор, 176 
массива, 164 
меню, 296 
множества, 106 

контейнер, 58 
изображений, 356 


панели инструментов, 341 


с вкладками, 353 
контекстное меню, 298 


конфигурация окон Дер, 30 


кромка, 337 
куча, 146, 147 


л 


литерал, 320 


маска ввода, 320 

массив, 91, 125 
вариантный, 188 
динамический, 127 
индекс, 92 
конструктор, 164 
открытый, 163 

менеджер действий, 350 

меню 
главное, 296 
контекстное, 298 
многоуровневое, 297 
со значками, 298 

метафайл, 258 

метка, 68, 90, 298, 340 
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метод 


АррИсайоп.[ш1а|12е, 63 
ВезтОгав, 286 
ВгояТоЕгоп\, 268 
015а]еАНегт, 268 
ОгаёОгор, 286 
ЕпаеЧАЙ5лп, 268 
ЕпаОгаз, 286 

Егее, 176 

СеЕТех Ву, 269 
СеТехЕЁеп, 269 
СеЕТиБОг4ег1 1$, 283 
Н!е, 268 

ЗепаТоВаск, 268 
ъеГосиз, 282 
ЗееТех(Вчь, 269 

ЭВо\, 268 
ТАррИсайоп.СтеацеГогт, 63 
ТАррИсайоп.Кип, 64 
Т$гил81415.АЗа, 71 
ТТьгеа4.ЗупсЬгогие, 491 


методы 


абстрактные, 175 
виртуальные, 172, 174 
деструктор, 176 
динамические, 174 
класса, 173 
конструктор, 176 
одноименные, 177 
перекрытие, 172 


многострочное текстовое поле, 302 
множество, 132 


включение в другое, 132 
конструктор, 133 

операции, 133 

пустое, 132 

эквивалентность другому, 132 


модуль, 40, 64, 214 


данных, 221 

динамической библиотеки, 221, 503 
завершающая часть, 217 
заголовок, 215 
инициализирующая часть, 217 
интерфейсная часть, 216 
интерфейсный, 510 
исполняемая часть, 216 
потока, 221, 489 

терминатор, 64 

форма, 220 


набор 


вкладок, 353 
страниц с вкладками, 355 


наследование, 171 
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О 


обработчик 

событий, 44 

сообщений УЛт4о\ъ, 343 
объект 

АррИсаЯоп, 63, 460 

СИрБоага, 473 

ОГЕ, 535 

Ригкег, 468 

ТОБесь, 171 

ТЗсгесп, 466 

СОМ, 526 
объектио-ориентированное 

программирование, 63 

объекты 

автоматизации, 522 

внедренные, 413 

методы, 63 

определенис, 63, 170 

отображения, 205 

поля, 63 

связанные, 413 


однострочное текстовое полс, 299 


окно 
браузера, 25 
всплывающее, 440 
выбора шаблона, 295 
главное, 25, 27 
дескриптор, 262 
диалоговое, 419 
для рисования, 403 
дочернее, 439 
инспектора объектов, 25, 32 
кода, 25, 34 
модальнос, 304, 452 
немодальнос, 452 
рамочнос, 439 
регистрации шаблона, 294 
ресурс, 261 
сервера, 414 
формы, 25, 31 
оперативная подсказка, 288 
оператор 
выбора, 86 
перехода, 90 
присваивания, 46 
присоединения, 130 
пустой, 78 
составной, 77 
условный, 78 
цикла 
юг, 82 
гереае... ип 1, 86 
\уВЦе, 84 


операция, 107 
логическая, 79, 108 
математическая, 73 
отношения, 70 
приоритет, 107 
сдвиговая, 109 
сцепления, 70 

открытый массив, 163 


п 
пакет, 221 
палитра компонентов, 30 
память 
адрес, 146 
выделение, 147 
динамическая, 146 
оперативная, 146 
освобождение, 148 
отображаемая, 494 
панель 
без заголовка, 313 
группировапия, 312 
ииструмептов, 341, 389, 392 
с кнопками прокрутки, 394 
с полосами прокрутки, 337 
строки состояния, 387 
параметр 
вариантный массив, 165 
значение, 159 
именованный, 9523 
константа, 159 
нетипизированный, 161 
переменная, 159 
позиционный, 523 
умалчиваемый, 162 
пароль, 321 
переключатель, 306, 312 
переменная 
гези[Е, 98 
глобальная, 160 
инициализация, 99 
инициализированная, 222 
локальная, 537 
определенис, 68 
файлового типа, 193 
перо, 246 
пиксел, 42 
подпрограмма, 68, 94, 152 
вызов, 152 
опережающее описание, 169 
описанис, 152 
параметр 
вариантный массив, 165 
вызова, 45 
значение, 160 


подпрограмма, параметр (продолжение) 


константа, 160 
нетипизированный, 161 
открытый массив, 163 
переменная, 160 
умалчиваемый, 162 
рекурсия, 154 
стандартная, 95 
формальные параметры, 157 
поле 
многострочное текстовое, 302 
однострочное с меткой, 348 
однострочное текстовое, 299 
с маской ввода, 320 
формата КТЕ, 356 
ползунок, 360 
полиморфизм, 172 
полоса 
панели инструментов, 392 
прокрутки, 311 
Поток 
данных, 211 
команд, 221, 486, 489 


предложение языка программирования, 45 


признак конца 
строки, 199 
файла, 199 
приоритет операций, 107 
пробел, 103 
программа 
Ауегаве, 92 
Са[с, 87 
СоруТхь, 71 
ЕрзИоп, 85 
ШЕМи 73 
шпеити, 83 
[пеТез+, 80 
Ритфек 134 
Орзеппв, 95 
программирование нисходящее, 96 
программная единица 
определение, 61 
терминатор, 62 
программы 
визуализация загрузки, 456 
заголовок, 62 
защита паролем, 457 
исполнение, 39 
кодирование, 98 
компиляция, 39 
компоновка, 39 
консольные, 457 
учебныс, 55 
элементы, 66 
произвольная таблица, 330 
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процедура, 94 
Арреп4, 194 
Аз$1епЕЙе, 193, 194 
Веер, 412 
В оскВеад, 204 
Воск\У!гке, 204 
Ьгеак, 86 
СЬОи,, 620 
С]озеЕ Пе, 194 
сопЯпце, 86 
ДаеТипеТоЗилпяв, 142 
Реете, 140 
П\15розе, 148, 149 
Егазе, 195 
Ехс]аде, 133 
ЕПерРоз, 203 
ЕпаНае, 127 
ЕтаС ое, 195 
ЕщзВ, 195 
ЕгееМет,, 149, 150 
Егехр, 609 
Се, 195 
Се{Мет, 149, 150 
[пс] иде, 133 
Тпзеге, 140 
МеззавеВеер, 82 
МЕ, 195 
МотепКемКигеоз$, 610 
№ \, 147, 150 
гапЧопияе, 121 
Кеад, 200, 201, 203 
ВеааГлп, 200, 202 
Вепаште, 196 
Кезе%, 193, 196 
Ке\угцке, 193, 196 
КаОтг, 196, 622 
Зеек, 203 
Зе епя( В, 141 
(тг, 143 
УГРСору, 138 
\а]|, 142 
\УагСаз%, 188 
Уаг еаг, 188 
УагСору, 188 
\/гце, 200, 202, 203 
МУгкеГл, 200, 203 

процедуры 
вызов, 94 
заголовок, 45, 96, 156 
оконные, 264, 495 
тело, 45, 96 

процесс, 486 


Р 


раскрывающийся список, 310 
растр, 258 


636 Алфавитный указатель 


редактор 

библиотеки типов, 531 

действий, 314 

иерархического дерева, 370 

изображений, 341 

меню, 296 

списков специализированный, 344 
реестр \Лт4о\з, 480 
рекурсия, 154, 167, 168 


С 


свойство, 179 
Асвоп, 283 
АЦеп, 267 
АНептепь, 269 
Апсрогв, 274 
Ацо$17е, 274, 287 
ВИ Моде, 292 
Воип4$Весе, 267 
СапРоси$, 282 
СП!епеТо$сгееп, 267 
Со]ог, 270 
СотОЪесь, 290 
СотропепСоип\, 263 
Сотропеп($, 263 
Сопз& га! $, 274, 287 
Соп(го|Соцпь, 265 
Сопетго[5, 265 
СопгоЗже, 291 
Сопго| уе, 291 
СИЗа, 268 
ПезКорЕопь, 270 
РосКОпегшканоп, 287 
ОгаёСогзог, 284 
ОгаёКап4, 286 
ОгаёМосде, 284 
ЕпаЫед, 268 
В]оаип8Ооск$1еС]аз$, 287 
Еосизе4, 282 
ЕопЕ, 269 
НазэВь, 267 
НерСогисхь, 290 
Ншь 288 
НшЕСо]юог, 290 
НшЕеНаеРаизе, 290 
НиеРацзс, 290 
Нше$рогРацзе, 290 
[пеМоде, 292 
ГпеМаше, 292 
КеуРгемем,, 279 
Гек, 267 
Г.В ГосК\Латр, 287 
Мате, 58 
О\м/пег, 263 
РагепЕ, 264 


свойство (продолжение) 
‚РагепСо]ог, 273 


РагепЕСИЗ4, 273 
РагепЕЕРопЕ, 273 
Рагеп Нат, 273 
РорирМепи, 290 
ЗсгсепТоС|епк, 267 
ЗБом Ниш, 288 
ТаБОгаег, 283 
ТаБЗгор, 283 

Тав, 82, 263 
ТВБоскНазЪь, 287 
ТВиВт.Кила, 59 
ТЕак.Ге&, 58 
ТЕДИ.Техь 59 
ТЕЧи.Тор, 58 

ТЕК. Ма, 58 
ТЕогт.АПеп, 98 
ТЕогт.Неерь, 57 
ТЕогт.РозИлоп, 58 
ТЕогт.\М/1АЕЬ, 57 
ТМазКЕак.ЕЧ4КМа5К, 75 
ТМето.АйЙел, 59 
ТМето.Глпс$, 59 
ТМето.5сго|Ваг$, 59 
ТМето.М/ога\!гар, 59 
Тор, 267 
ТРапе]|.Веуе|Оцщег, 58 
ТРапсе!.Сарйогп, 58 
ОпоскНе5 ВЕ, 287 
Ошоск\Лать, 287 
УСЕСотОЪБесь 290 
\1$51Ые, 268 

МИАЬ, 267 


секретность ввода, 321 
сервер 


ОГЕ, 413 
регистрация, 528 
служба, 526 


серия, 349 
символ 


сскретный, 321 
специальный, 103 


событие 


ОпСИСК, 278 
ОпСгеаке, 46 
ОпрЫСИЦСК, 278 
Оп)оскКОгор, 287 
ОпПосКОусг, 287 
Оп)гаёОгор, 285 
ОпОга8Еуспь 284 
ОпЕп@Огав, 285 
ОпСекешю, 288 
Оп[4[е, 466 


событие (продолжение) 
ОпКеу)о\п, 279 
ОпКеуРгсз$, 279 
ОпКеуОр, 279 
ОпМоцзе)о\уп, 278 
ОпМоцзеМоуе, 278 
ОпМоцзеОр, 278 
ОпОпОоск, 288 

сообщенис, 343, 495 

список, 235 
выбора цвета, 348 
действий, 314 
иерархический, 378 
комбинированный, 310 
обычный, 306 
раскрывающийся, 310 
с расширенными возможностями, 395 
сортировка строк, 241 
строк и объектов, 239 

стандартная фигура, 336 

стек, 168 

строка 
заканчивающаяся нулем, 136 
короткая, 136 
состояния, 387 
форматирующая, 144 
широкая, 136 

счетчик, 361 


т 


таблица 
произвольная, 330 
текстовая, 321 
таймер, 400 
текст 
ввод и отображение, 302 
формата ВТЕ, 356 
текстовая метка, 340 
текстовая таблица, 321 
тело процедуры, 96 
терминатор программной единицы, 62 
технология 
ОПЕ, 52, 525 
ОГЕ, 52, 525 
СОМ, 525 
тик, 400 
тип, 67, 69 
СрВаг, 69 
э(г!п, 69, 136 
ТЕшт4Орноп, 428 
ТЕопОлаю5Ориоп, 425 
ТСи4Ориоп$, 324 
ТМРТитеЕРогтак$, 409 
ГОрепОриоп$, 421 
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ТИПЫ 
варианты, 184 
вещественные, 85, 111, 119 
дата-время, 111, 123 
диапазоны, 92, 118 
записи, 129 
индексные, 125 
классы, 170 
логические, 71, 114 
массивы, 125 
множества, 132 
определение, 110 
перечисленные, 116 
порядковые, 111 
приведение, 250 
простые, 111 
процедурные, 166 
псевдонимы, 150 
символьные, 114 
строковые, 136 
структурированные, 125 
указатели, 146 
файлы, 192 
целые, 73, 112 


У 


указатель, 146 
мыши 
нестандартный, 275 
стандартный, 275 
нетипизированный, 147 
разыменование, 148 
типизированный, 146 
управляющий заголовок, 383 


Ф 


фабрика классов, 528 

файл, 192 
динамической подкачки, 205 
инициализации, 475 
инициализация, 193 
модуля, 458 
настройки, 459 
нстипизированный, 203 
отображение в память, 205 
переменная, 193 
подкачки, 494 
проекта, 61, 454 
резервный, 460 
ресурсов, 277, 459 
текстовый, 199 
типизированный, 203 

флажок, 305 

фокус ввода, 72, 282 

форма, 439 
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форматирующий спецификатор, 144 


фрейм, 293 
функции 
вызов, 152 
заголовок, 156 
преобразования типа, 117 
функция, 68, 95 
абз, 112, 121 
АД@г, 149 
Ап! Го\егСа$е, 140 
Ап! ОррегСазе, 140 
АгсСо$, 607 
АгсСозН, 608 
АгсУ1п, 607 
АгсытН, 608 
агсбап, 121 
АгсТап2, 607 
АгсТапН, 608 
Сей, 609 
сваг, 97 
срг, 112, 116 
С]озеНапе, 207 
Сопсаф, 140 
Сору, 140 
со$, 121 
Со$Н, 608 
Сотап, 607 
СтееЕ!еМаррипв, 205 
СтебеО]еОБес%, 535 
СтсаеРгосез$, 486 
Сус!сТоКаа, 608 
аее, 123 
ОжеТипеТоЕ Ис, 620 
РаёеТитеТо$г, 123, 142 
РасТоз%г, 123, 142 
Дес, 112 
ОеёТоВа4, 608 
О15КЕгее, 620 
015КЗрасе, 620 


Боцерес!птеВа|апсе, 611 


ЕОЕ, 195 

Ео]п, 200 

схр, 121 

ЕЙе Арс, 621 
ЕПеСгеже, 205 
ЕЙе)ажеТо)жеТите, 621 
ЕЙеЕх!$5, 194, 195, 421 
Е|ЙеСеОже, 621 
Е|еОреп, 205 

ЕЙебе Оазкс, 621 
ЕПеб1те, 203 

ЕтаЕ!$ье 195 
ЕтаМ№схь, 195 
ЕоаТоЗ(т, 86, 142 
Ноа(То$ТЕ, 142 


фупкция (продолжение) 


Еоог, 609 
Еогтае, 143, 144 


ЕогтаОаеТите, 123, 143 


ЕогтаЕ]оак, 143 
Гас, 121 
ЕисигеУаис, 611 
Ста4ТоВач4, 608 

1, 112 

НизВ, 119 

Нуро\, 607 

1пс, 112 

шь 121 
[егезРаутепе, 611 
[Гееге$( Васе, 611 
[пеегпа| Вас, 611 
[п(Ро\усг, 609 
[пеГоНсх, 143 
пеГозиг, 143 
[.Чехр, 609 

Гепя(, 97, 139, 140 
п, 121 

10, 112 

[.о\, 119 
Г.о\егСазс, 140 
МарУ1е\м ОТЕИЬ, 206 
Мах, 609 

Мах шЕ\Уае, 610 
МахУаше, 610 
Меап, 610 
МеззареВеер, 412 
Мез5ареВох, 463 
Мтъ, 610 
МтшЕ\Уа|е, 610 
МтУа|ис, 610 

Ме Регсеп(\Уаше, 611 
№ гит, 610 

№ м, 123 
МитьБегОЁРегю4$, 6121 
ога, 97, 111 
Раутеп, 611 
Рего4Раутеп\, 612 
Регзеп(\Уаше, 612 
ра, 121 

Р]ауЗоипч, 412 
Роу, 609 
Рорп$гЧОеу, 610 
Рорп\Уатапсе, 610 
Роз, 141 

Ро\уег, 609 

Рге4, 111 
Ва4ТоСус{е, 608 
КаЧТоОсв, 608 
Ка4ТоСгач, 608 
ВапаС, 610 


функция (продолжение) 
Вапдот, 82 
гапЧот, 113, 121 
ЗееКЕоф, 200 
ЗееКЕо|п, 200 
Зе епр В, 127 
Зе \Лт4о\/$Роз, 440 
ут, 121 
эшпСо$, 607 
у2еоЬ 150 
$ МПергемайоп, 612 
5аг, 113, 121 
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ЧЕБНИК 
ДИТЯ ВУЗОВ 


Рефры. Программирование на языкевысокого уровня 


Валерий Васильевич Фаронов 25 лет проработал 
преподавателем на кафедре «Системы автоматического 
управления» в МВТУ им. Н. Э. Баумана. В настоящее время — 
консультант и разработчик систем управления базами данных, 
преподаватель на курсах по Вер, технический писатель. 
Свою первую книгу «Программирование на персональных ЭВМ 
в среде Турбо Паскаль» написал еще в 1989 году. С тех пор 
вышло более 20 книг, посвященных главным образом 
программированию в Тифо Разса! и Веры. 


Бер! — не только прекрасный инструмент разработки программного 
обеспечения, но и язык программирования, позволяющий писать 

как небольшие программы и утилиты для персонального использования, 

так и крупные корпоративные системы, работающие с базами данных 

на различных платформах, распределенные приложения и меб-сервисы. 

В книге рассматривается среда разработки Верт: галереи компонентов, 
хранилища объектов, вспомогательный инструментарий, дается описание 
языка Шер! (в шестой и более ранних версиях он назывался ОШес{ Разса!), 
включая компоненты программ, динамически подключаемые библиотеки, 
интерфейсы, технологию СОМ и систему МодеМакег. 


Базовый курс для студентов высших учебных заведений, обучающихся 
по направлению «Информатика и вычислительная техника» 
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